Worksheet.Change Событие в Excel в реальном времени

Question

Возьмем, к примеру, следующий код, который должен указать, больше или меньше содержимого ячейки A3 или меньше 0,25, где в ячейке A3 имеется формула, такая как RAND() whoch генерирует случайные числа между 0 и 1.

Private Sub Worksheet_Change(ByVal Target As Range) 

Calculate 

    If Range("A3") > 0.25 Then 

     Range("B3") = "greater than 0.25" 

    Else: Range("B3") = "smaller than 0.25" 

    End If 

End Sub 

Как сделать условия этого события проверяться в непрерывном режиме?

Answer 1

Как насчет использования таймера? эта функция вызывает каждую секунду

Sub Test() 

    Calculate 

    If Range("A3") > 0.25 Then 
     Range("B3") = "greater than 0.25" 
    Else 
     Range("B3") = "smaller than 0.25" 
    End If 

    Application.OnTime Now + TimeSerial(0, 0, 1), "Test" 
End Sub 

Answer 2

Я думаю, что для этого нет выбора. Искал это сам. Для расчетных ячеек нет события изменения. Единственный вариант - проверить зависимости вычисленного поля, но в этом случае их нет.