如何在 Excel 中點擊特定儲存格時自動彈出行事曆？

作者Siluvia修改日期2024-10-31

假設工作表中有一個欄位範圍，您需要頻繁在其中輸入並修改日期，但每次手動輸入或調整都相當費時又乏味。如何才能快速輸入日期，而不必逐一在該欄位範圍內打字？本文將介紹一種高效方法：當您在指定範圍內點選任一儲存格時，系統會自動彈出行事曆；只要從行事曆中挑選所需日期，即可立即將該日期填入對應的儲存格中。

使用 VBA 程式碼在按一下特定儲存格時彈出行事曆

步驟 1：建立含行事曆的使用者表單
步驟 2：在按一下儲存格時啟用行事曆

實用工具，協助您在按一下儲存格時輕鬆彈出行事曆

使用 VBA 程式碼在按一下特定儲存格時彈出行事曆

請依照下列步驟逐步解決此問題。

注意：此方法僅適用於 Microsoft Excel 32 位元版本。

步驟 1：建立含行事曆的使用者表單

請建立一個使用者表單（UserForm），內含行事曆，當您在按一下儲存格時自動彈出。

1. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，按一下插入＞ 使用者表單。

3. 此時會彈出使用者表單與工具箱視窗。在工具箱中，請點選任一控制項並按下滑鼠右鍵，再從右鍵功能表中選取其他控制項。請參閱截圖：

4. 在其他控制項對話方塊中，向下捲動至可用控制項方塊，勾選 Microsoft MonthView Control 選項，然後按一下確定按鈕。

5. 此時您會看到 MonthView 按鈕已新增至工具箱視窗。請點選此 MonthView 按鈕，再於 UserForm 1 視窗上點擊，即可在使用者表單中輕鬆建立行事曆！

注意：您可以拖曳使用者表單的邊框，輕鬆調整大小以完美契合所插入的行事曆。

6. 在 UserForm 1 中雙擊所插入的行事曆後，於程式碼視窗中，將原始程式碼取代為下列 VBA 腳本。

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

注意：此程式碼可在您從行事曆選擇日期後，自動將該日期插入至所選儲存格。

步驟 2：在按一下儲存格時啟用行事曆

現在，您需要指定某些儲存格，讓它們在被點擊時彈出行事曆。請依照下列步驟操作：

7. 在左側專案窗格中，雙擊包含目標儲存格的工作表名稱，然後將下方 VBA 程式碼複製並貼上至程式碼視窗。請參閱截圖：

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

注意：程式碼中的 A2:A10 是您要按一下以彈出行事曆的儲存格範圍，請依需求調整。

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

從現在起，當您在目前工作表的指定範圍內點選任一儲存格時，就會彈出如下圖所示的行事曆；選取日期後，該日期將自動填入所選儲存格中。

使用 VBA 程式碼在按一下特定儲存格時彈出行事曆

本節介紹日期提取工具（屬於）Kutools for Excel）。啟用此功能後，只要點選日期儲存格，就會立即彈出行事曆，讓您輕鬆以新日期取代現有日期！請依照下列步驟快速套用此實用功能。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 按一下 Kutools > 內容 > 啟用日期提取。

2. 啟用此功能後，只要點擊日期儲存格，右側便會立即彈出行事曆圖示。

3. 按一下行事曆圖示，即可開啟日期提取對話方塊，輕鬆選取新日期取代所選儲存格中的日期！

注意事項：

復原按鈕：按一下此按鈕可復原日期取代作業；
關閉按鈕：按一下此按鈕可關閉日期提取對話方塊；
此功能僅適用於包含日期的儲存格。

想免費試用此工具 30 天嗎？立即下載，並依照上述步驟操作！

最佳 Office 生產力工具

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