如何在Excel中輸入數據時自動加入一個時間戳

如何在Excel中輸入數據時自動加入一個時間戳

當我們在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 SubIf Target.Column = 3 Then Target.Offset(0, 1) = NowEnd 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 SubWith TargetIf .Column = 3 And .Row > 1 And .Row < 21 Then .Offset(0, 1) = NowEnd WithEnd Sub

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

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。