Excelでセルが変更された回数を数える方法は?

Excel で指定されたセルが変更された回数をカウントするには、この記事で提供されている VBA コードが役立ちます。

VBAコードでセルが変更された回数を数える

VBAコードでセルが変更された回数を数える

次の VBA コードは、指定したセルが Excel で変更された回数をカウントするのに役立ちます。

1. 合計変化を計算する必要がある XNUMX つまたは複数のセルを含むワークシートで、シート タブを右クリックし、 コードを表示 コンテキストメニューから。 スクリーンショットを参照してください：

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウで、次の VBA コードのいずれかをコピーして Code あなたの必要性に従って窓。

VBA コード 1: XNUMX つのセルのみの変更を追跡する

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

Note：コードでは、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

Note: この行で "xRRg = xCell.Offset(0, 1) を設定します。"、 数字 1 開始参照の右側にオフセットする列の数を表します (ここでは開始参照は列です) B、および返したいカウントは列にあります C 列 B の隣にあります)。 結果を列に出力する必要がある場合 S、番号を変更 1 〜へ 10.

これ以降、セル B9 または範囲 B9:B1000 内のいずれかのセルが変更されると、変更の総数が重ね合わされ、指定されたセルに自動的に入力されます。