Execute a fórmula no clique da célula

Question

Estou tentando executar uma macro que executa a seguinte fórmula quando uma célula é clicada e a preenche com a figura arredondada:

= Round((A1 + "0:02") * 96, 0) / 96 

Isso leva o tempo de A1 e o arredonda para os 15 minutos mais próximos.

O intervalo de células que podem ser clicadas para isso é D5: X46 .

    

Answer 1

Uma maneira de conseguir isso é com um Worksheet_SelectionChange() Sub. Coloque este código no módulo de folha em que você deseja ter essa funcionalidade.

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("D5:X64")) Is Nothing Then Exit Sub
    Target.Formula = "= Round(($A$1 + " & Chr(34) & "0:02" & Chr(34) & ") * 96, 0) / 96"
End Sub

A instrução IF verifica se o clique está no intervalo desejado. Você pode clicar em várias células e todas elas serão preenchidas

link