如何在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 中單元格被更改的次數,以突出顯示特定資料集。
廣告