如何计算Excel中单元格更改的次数？

Dim xCount As Integer Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range, xCell As Range On Error Resume Next If Target = Range("B9") Then xCount = xCount + 1 Range("C9").Value = xCount End If Application.EnableEvents = False Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9")) If Not xRg Is Nothing Then xCount = xCount + 1 Range("C9").Value = xCount End If Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Updated by Extendoffice 20220916 Dim xSRg As Range Dim xRRg As Range Set xSRg = Range("B9:B1000") Set xCell = Intersect(xSRg, Target) If xCell Is Nothing Then Exit Sub Application.EnableEvents = False On Error Resume Next Set xCell = xCell.Range("A1") Set xRRg = xCell.Offset(0, 1) xRRg.Value = xRRg.Value + 1 Application.EnableEvents = True End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！