Question

以下面的代码为例，说明Cell A3的内容是大于还是小于0.25，其中在Cell 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

我认为没有选择。一直在寻找它。计算的细胞没有变化事件。唯一的选择是检查计算字段的依赖关系，但在这种情况下没有。

Answer 2

使用计时器怎么样？这个函数每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

Worksheet.Change事件在Excel中实时

2 个答案: