別のセルのデータが変更されたときに現在のタイムスタンプを挿入するにはどうすればよいですか？

特定の列のデータを修正する必要があるワークシートを受け取ったとします。そして、ワークシートを修正した後、どのセルが変更されたかを他の人に知らせるために修正したタイムスタンプを挿入する必要があります。これをどのように処理すればよいでしょうか？この記事では、下記のスクリーンショットに示すように、Excelで別のセルのデータが変更されたときに現在のタイムスタンプを挿入する方法を紹介します。

VBAコードを使用して、別のセルのデータが変更されたときに現在のタイムスタンプを挿入する

VBAコードを使用して、別のセルのデータが変更されたときに現在のタイムスタンプを挿入する

以下のスクリーンショットに示すように、列Cの対応するセルが変更された場合、列Eにタイムスタンプを入力する必要があります。以下のように操作してください。

1. 修正してタイムスタンプを付ける必要のあるワークシートで、シートタブを右クリックし、表示されたメニューから「 コードの表示」をクリックします。

2. 次に、以下のVBAコードをMicrosoft Visual Basic for Applicationsウィンドウのコードウィンドウにコピーして貼り付けます。スクリーンショットをご覧ください：

VBAコード: 別のセルのデータが変更されたときに現在のタイムスタンプを挿入する

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
    If xCol = xCellColumn Then
       Cells(xRow, xTimeColumn) = Now()
    Else
        On Error Resume Next
        Set xDPRg = Target.Dependents
        For Each xRg In xDPRg
            If xRg.Column = xCellColumn Then
                Cells(xRg.Row, xTimeColumn) = Now()
            End If
        Next
    End If
End If
End Sub

注: コード内の数字の3は、列Cのデータを修正することを意味し、5はタイムスタンプが列Eに入力されることを示しています。必要に応じてこれらを変更してください。

3. Alt + Qキーを押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

これで、列Cのデータを変更すると、次のスクリーンショットに示すように、タイムスタンプが列Eの対応するセルに入力されます。

関連記事：

• Excelでワークシートに最後に保存したタイムスタンプを挿入または表示するにはどうすればよいですか？
• Excelでマクロを実行したときに特定のセルにタイムスタンプを挿入するにはどうすればよいですか？