计数细胞变化

Count Cell Changes

当前脚本跟踪单元格 A1 中的单元格更改并计算单元格 B1 中的这些更改。但是,它仅在您主动输入数字或文本然后在单元格 A1 中按回车键时才有效。当从另一个单元格引用 A1 单元格以计算更改时,我需要公式起作用。

Option Explicit
Private prevVal As String
Private Sub ToggleButton1_Click()

End Sub

Private Sub Worksheet_Calculate()
  If Worksheets("Sheet1").ToggleButton1.Value = True Then
  Application.EnableEvents = False
    If Me.Range("A1").Value <> prevVal Then
    Me.Range("B1").Value = Me.Range("B1").Value + 1
    prevVal = Me.Range("A1").Value
    End If
 End If
 Application.EnableEvents = True
End Sub

如果“A1”单元格值是公式的结果,您应该使用 Calculate 事件。请在 sheet 代码模块中复制此代码事件:

Option Explicit

Private prevVal As String
Private Sub Worksheet_Calculate()
   Application.EnableEvents = False
   If Me.Range("A1").value <> prevVal Then
        Me.Range("B1").value = Me.Range("B1").value + 1
        prevVal = Me.Range("A1").value
    End If
   Application.EnableEvents = True
End Sub