如何在Excel中統計單元格被更改的次數?


在協作環境中,當您想要監控特定單元格或單元格區域的歷史記錄時,跟蹤 Excel 中的更改非常重要,多個使用者可以訪問同一個工作簿。透過計算單元格被更改的次數,您可以輕鬆跟蹤對單元格所做的修改,並識別是誰進行了更改以及何時進行了更改。在本教程中,我們將向您展示如何使用簡單的公式來計算 Excel 中單元格被更改的次數,以及如何根據您的需求自定義它。無論您是 Excel 初學者還是經驗豐富的使用者,本教程都將幫助您提高技能,並更有效地跟蹤 Excel 工作簿中的更改。那麼,讓我們開始吧!

統計單元格被更改的次數

在這裡,我們將使用 VBA 應用程式來完成此任務。讓我們來看一個簡單的過程,瞭解如何在 Excel 中統計單元格被更改的次數。

步驟 1

考慮任何 Excel 表格,右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟 VBA 應用程式,然後將下面提到的程式碼複製到文字框中,如下所示。

右鍵單擊 > 檢視程式碼 > 插入 > 模組 > 複製程式碼。

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("A2") Then
      xCount = xCount + 1
      Range("B2").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("B2").Value = xCount
   End If
      Application.EnableEvents = True
End Sub

步驟 2

從現在開始,每次我們更改單元格 A2 中的值時,我們都可以在單元格 B2 中看到計數,如下所示。

注意

如果我們需要應用於一系列單元格,可以使用以下程式碼:

Private Sub Worksheet_Change(ByVal Target As Range)
   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

結論

在本教程中,我們使用一個簡單的示例來演示如何統計 Excel 中單元格被更改的次數,以突出顯示特定資料集。

更新於:2023年7月12日

461 次瀏覽

開啟您的職業生涯

完成課程獲得認證

開始學習
廣告