如何在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 中單元格被更改的次數,以突出顯示特定資料集。
廣告
資料結構
網路
關係資料庫管理系統 (RDBMS)
作業系統
Java
iOS
HTML
CSS
Android
Python
C語言程式設計
C++
C#
MongoDB
MySQL
Javascript
PHP