當您在 Excel 中更新相鄰儲存格時，如何自動填入日期？

作者Siluvia修改日期2024-09-19

當您在更新特定欄位中的儲存格時，或許希望同步記錄此次變更的最新日期。本文將為您推薦一種 VBA 解決方案：一旦儲存格內容被修改，相鄰的儲存格將自動填入當前日期。

使用 VBA 程式碼在相鄰儲存格更新時自動填入目前日期

使用 VBA 程式碼在相鄰儲存格更新時自動填入目前日期

假設您需要更新的資料位於 B 欄，當 B 欄中的儲存格內容更新時，系統將自動在 A 欄的相鄰儲存格填入當前日期。請參閱以下截圖：

當您在相鄰儲存格更新時，自動在儲存格中填入目前日期

您可以執行下列 VBA 程式碼，輕鬆解決此問題。

1. 請在需要根據相鄰儲存格更新而自動填入日期的工作表分頁上按一下滑鼠右鍵，然後從右鍵功能表中點選檢視程式碼。

從右鍵選單中點選「檢視程式碼」

2. 在 Microsoft Visual Basic for Applications 視窗中，請將下方的 VBA 程式碼複製並貼上至程式碼視窗。

VBA 程式碼：當相鄰儲存格更新時，自動在儲存格中填入目前日期

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

注意事項：

1）。在程式碼中，B:B 表示需更新的資料位於 B 欄。

2）。-1 表示目前日期將填入 B 欄左側一欄。若您希望目前日期填入 C 欄，請將 -1 改為 1.

3. 同時按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

從現在起，當您在 B 欄更新儲存格時，A 欄對應的儲存格將立即自動填入當前日期。請參閱以下截圖：

當您在 B 欄儲存格進行更新時，A 欄的相鄰儲存格將自動填入目前日期

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
自訂公式：打造專屬公式，讓您的工作流程更順暢！
VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
公式解析：輕鬆掌握複雜公式！
文字翻譯：輕鬆打破試算表中的語言隔閡！

運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多