當我們在Excel中輸入或更新數據時，有時需要自動添加一個時間戳，表示當前數據的最新更新時間。如下圖所示，當在C列更新數據時，在D列自動加入更新時的時間。

???

??? 可以用VBA代碼來實現，實現步驟如下：

??? 按Alt+F11，打開VBA編輯器。在“工程”窗口中雙擊“ThisWorkBook”，在右側的代碼窗口中粘貼下列代碼：

??? Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
????? If ActiveSheet.Name <> "Sheet1" Then Exit Sub
????? If Target.Column = 3 Then Target.Offset(0, 1) = Now
??? End Sub

??? 這樣，當“Sheet1”表C列單元格中的內容發生改變時，Excel會自動在D列同一行中的單元格中添加時間。

??? 如果要將目標區域指定為C2:C20，可以用下面的代碼：

??? Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
????? If ActiveSheet.Name <> "Sheet1" Then Exit Sub
????? With Target
?????? ?If .Column = 3 And .Row > 1 And .Row < 21="" then="" .offset(0,="" 1)="">
????? End With
??? End Sub

??? 需要注意的是，當目標區域中的任意單元格內容發生改變，包括刪除或更新數據時，都將觸發Worksheet.SelectionChange 事件。