如何使用 Excel VBA 時間戳插入自動事件日誌

時間戳是識別事件發生時間的重要資源。Microsoft Excel允許您選擇以 dd: mm: yyyy hh: mm: ss 格式添加時間戳。大多數情況下，您需要使用鍵盤快捷鍵或執行 Excel 函數來添加時間戳，這是一項手動且容易出錯的任務。

Excel Visual Basic 代碼編輯器可以幫助您使用 VBA 時間戳腳本自動執行整個任務。您還可以添加複雜的條件以進一步自動化任務，而無需依賴數據輸入操作員或協作者。繼續閱讀，了解使用 VBA 在 Excel 中添加時間戳的一些簡單技巧。

1. 如何添加VBA時間戳：QAT宏

通過以下 VBA 代碼，您只需從 Excel 快速訪問工具欄或 QAT 中單擊一次即可隨時運行事件日誌功能。它類似於運行Excel VBA宏，因此您需要在應用 VBA 代碼後使用啟用宏的文件擴展名保存現有工作表：

右鍵單擊工作表選項卡，然後從上下文菜單中單擊“查看代碼” 。
將此 VBA 代碼複製粘貼到代碼編輯器中，然後單擊“保存”。

Sub vba_timeStamp() Dim ts As Date With Selection .Value = 日期 + 時間 End With End Sub

將工作簿另存為啟用宏的文件。
現在，單擊“文件”選項卡並從“文件”菜單中選擇“選項” 。
單擊“快速訪問工具欄” (QAT)，然後滾動列表以查找“查看宏”。
將“查看宏”添加到 QAT 並單擊“確定”關閉“選項”菜單。
現在，當您需要通過執行 VBA 代碼添加時間戳時，從 QAT 運行宏。

要完全自動化時間戳創建任務，您可以使用下面提到的 VBA 腳本。

2. 如何添加VBA時間戳：當工作表更改時

當以下 VBA 代碼檢測到A列的相應單元格發生更改時，將在B列的單元格中添加時間戳：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 如果 Target.Column = 1 且 Target.Value <> "" 那麼 Application.EnableEvents = False Target.Offset(0, 1) = Format(Now(), "dd-mm-yyyy hh:mm:ss") Application.EnableEvents = True End If End Sub

按照第一種方法中提到的步驟打開 VBA 代碼編輯器。現在，雙擊 VBAProject (Book1) 菜單下的 Sheet1(Sheet1) 以激活工作表更改跟踪。

代碼編輯器應在左側下拉列表中顯示Worksheet ，並在右側下拉列表中顯示SelectionChange 。您現在可以復制粘貼上述 VBA 代碼。完成後，不要忘記將文件另存為啟用宏的 Excel 工作簿。

每當您運行此宏時，如果您在A列中寫入內容，Excel 會自動在B列中添加時間戳。您還可以按照前面添加 VBA 腳本的方法中提到的步驟將宏添加到 QAT。

最後的話

現在您已經知道如何將 Excel VBA 代碼編輯器與上述 VBA 時間戳代碼結合使用，您可以開始修改 Excel 工作簿以在需要時自動插入時間戳。

但是，如果按撤消熱鍵，通過執行 VBA 代碼在 Excel 工作表中所做的任何更改都不會消失。因此，在應用這些簡單的 VBA 腳本之前，請先製作備份副本。Excel VBA 還可以執行其他很酷的功能，例如，您可以使用 VBA 在 Microsoft Excel 中插入行。