Worksheet.Change Excel中的事件實時

Question

以下面的代碼應該說明單元格A3的內容是大於還是小於0.25，在單元格A3中我們有一個像RAND（）這樣的公式，它生成隨機數在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

如何使用計時器？此函數每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

我認爲這是沒有選擇。一直在找我自己。計算的單元格沒有更改事件。唯一的選擇是檢查計算字段的依賴性，但在這種情況下沒有。