Запустить формулу по клику ячейки

Question

Я пытаюсь запустить макрос, который запускает следующую формулу при нажатии на ячейку и заполняет ее округленной цифрой:

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

Это занимает время от А1 и округляет его до ближайших 15 минут.

Для этого можно выбрать диапазон ячеек D5:X46.

Answer 1

Один из способов добиться этого - с помощью Worksheet_SelectionChange() . Поместите этот код в модуль листа, в котором вы хотите использовать эту функцию.

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

Оператор IF проверяет, что клик был в желаемом диапазоне. Вы можете нажать на несколько ячеек, и они будут все заполнены

https://msdn.microsoft.com/en-us/library/office/ff194470.aspx