如何計算 Excel 中儲存格變更的次數？

要計算 Excel 中指定儲存格變更的次數，本文提供的 VBA 程式碼可以幫助您完成。

使用 VBA 程式碼計算儲存格變更的次數

使用 VBA 程式碼計算儲存格變更的次數

以下 VBA 程式碼可幫助您計算 Excel 中指定儲存格變更的次數。

1. 在包含需要計算總變更次數的一或多個儲存格的工作表中，右鍵單擊工作表標籤，然後從快捷選單中選擇 檢視程式碼。請參見截圖：

2. 在開啟的 Microsoft Visual Basic for Applications 視窗中，根據您的需求將下列 VBA 程式碼之一複製並貼到 程式碼 視窗中。

VBA 程式碼 1：僅追蹤單一儲存格的變更

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

備註：在程式碼中，B9 是您需要計算其變更次數的儲存格，而 C9 是用來填入計數結果的儲存格。請根據需要進行更改。

VBA 程式碼 2：追蹤多個列儲存格中的變更

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

備註：在這一行 "Set xRRg = xCell.Offset(0, 1)" 中，數字 1 表示從起始參考位置向右偏移的列數（這裡的起始參考是 B 列，您希望返回的計數位於相鄰的 C 列）。如果您需要將結果輸出到 S 列，請將數字 1 改為 10。

從現在開始，當 B9 儲存格或範圍 B9:B1000 中的任何儲存格發生變更時，變更的總次數將會疊加並自動填入指定的儲存格中。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！