工作表。在Excel中实时更改事件

以下面的代码为例，该代码应说明单元格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

---

如何在连续时间内验证此事件条件？

我认为没有选择。我自己一直在找。计算单元没有更改事件。唯一的选择是检查计算字段的依赖关系，但在这种情况下没有。使用计时器怎么样？此函数每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

---

将您的代码放入

工作表\u Calculate

事件