如何在 Excel 中透過雙擊儲存格，自動輸入目前的日期或時間？

作者Siluvia修改日期2025-10-10

在 Excel 儲存格中頻繁輸入目前日期或日期與時間，往往是一項重複性高的工作，特別是在撰寫記錄、追蹤進度或管理行事曆時更是如此。每次手動輸入不僅耗時，還容易出錯。本文將為您介紹一種高效解決方案：只需輕鬆雙擊，即可自動將目前日期或日期與時間插入工作表中的任何指定區域。依照以下步驟操作，立即簡化您的工作流程，確保資料輸入的一致性與準確性。

使用 VBA 程式碼雙擊以自動加入/輸入目前日期或日期時間

使用 VBA 程式碼雙擊以自動加入/輸入目前日期或日期時間

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

若您希望只需雙擊儲存格，就能快速插入當前日期或日期時間，透過簡短的 VBA 程式碼即可輕鬆實現。此方法特別適合用於表單、出席記錄表，或任何需要迅速且精準記錄日期的場合。VBA 解決方案還能靈活指定特定儲存格範圍，讓您雙擊後立即更新內容。

1. 在您的工作表中，於底部的工作表標籤上按一下滑鼠右鍵，選擇檢視程式碼。這將開啟該工作表專屬的 Visual Basic 編輯器；請務必確認您正在編輯正確的工作表，因為此程式碼僅適用於該工作表。

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

VBA 程式碼：雙擊以在儲存格中加入目前日期

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

注意事項：

1. 程式碼中的範圍 A1:B10 指定了一組儲存格，在這些儲存格中雙擊即可自動插入日期。您可以根據工作表的資料配置與作業需求調整此範圍。

2. 預設情況下，程式碼會輸入目前日期。若要同時插入日期與時間，請將程式碼中的 Date 替換為 Now()。此自訂設定可確保插入的值包含雙擊瞬間的完整日期與時間。

按一下「檢視程式碼」並將程式碼插入模組中

實用提示：在指定範圍外雙擊不會觸發日期插入功能；請確保目標儲存格位於該範圍內。

錯誤提醒：若程式碼未如預期執行，請確認您已將程式碼輸入至正確的工作表（而非一般模組），並確保 Excel 環境中已啟用巨集。若安全性設定封鎖巨集活動，請前往【檔案】 > 【選項】 > 【信任中心】 > 【信任中心設定】進行調整。

3. 輸入程式碼後，同時按下 Alt+Q，即可關閉 Microsoft Visual Basic for Applications 視窗並返回工作表，確保編輯器中的所有變更都已儲存。

現在，當您在限定區域（例如）A1:B10）內雙擊任一儲存格時，Excel 將根據您的程式碼設定，自動填入目前日期或日期與時間。這項簡易自動化功能不僅節省時間，更有助於維持記錄格式的一致性！

kutools for excel AI 的螢幕截圖

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

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

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

相關文章：

最佳 Office 生產力工具

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

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

Excel

Word

Outlook

Tabs

PowerPoint

全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
30 天完整功能試用— 無需註冊，無需信用卡
超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……