Excelのセルに変化する値を記録する方法は？

Excelで頻繁に変更されるセルのすべての変更値を記録するにはどうすればよいですか？ たとえば、セルC2の元の値は100ですが、数値を100から200に変更すると、元の値100がセルD2に自動的に表示されて記録されます。 200から300に変更すると、番号200がセルD3に挿入され、300から400に変更すると、300からD4が表示されます。 この記事の方法は、それを達成するのに役立ちます。

VBAコードを使用してセルに変化する値を記録する

VBAコードを使用してセルに変化する値を記録する

以下のVBAコードは、Excelのセルに変化するすべての値を記録するのに役立ちます。 次のようにしてください。

1.ワークシートに、変化する値を記録するセルが含まれている場合は、[シート]タブを右クリックして、[ コードを表示 コンテキストメニューから。 スクリーンショットを参照してください：

2.次に、 アプリケーション向け Microsoft Visual Basic ウィンドウが開いています。以下のVBAコードをコードウィンドウにコピーしてください。

VBAコード：セルに変化する値を記録する

Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
        Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
    Else
        If xVal <> Range("C2").Value Then
         Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
        End If
    End If
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xVal = Range("C2").Value
End Sub

ノート：コードでは、C2はすべての変化する値を記録するセルです。 D2は、C2の最初に変化する値を入力するセルです。

3。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

これ以降、セルC2の値を変更するたびに、以前の変更値がD2とD2の下のセルに記録されます。