單擊Excel中的特定單元格時如何彈出日歷？

網友投稿 1149 2025-03-31

單擊Excel中的特定單元格時如何彈出日歷？

假設工作表中有一個列范圍，您需要經常在其中輸入和更改日期，但是每次手動輸入或更改日期很無聊。如何快速輸入日期而無需手動輸入列范圍？本文討論的是單擊某個范圍內的單元格時彈出日歷，然后在日歷中選擇日期后將日期自動插入到選定的單元格中。

單擊帶有VBA代碼的特定單元格時彈出日歷

步驟1：使用日歷創建UserForm

步驟2：點擊單元格時激活日歷

方便的工具，可幫助您在單擊單元格時輕松彈出日歷

單擊帶有VBA代碼的特定單元格時彈出日歷

請按以下步驟解決此問題。

備注注意：此方法僅適用于32位Microsoft Excel。

步驟1：創建帶有日歷的用戶窗體

請創建一個用戶窗體，其中包含您將通過單擊單元格彈出的日歷。

1。按其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊插頁 > 用戶表格.

3.然后 用戶表格 的網絡 工具箱 窗口彈出 工具箱，單擊任意一個控件，然后右鍵單擊，然后選擇 附加控制 從右鍵單擊菜單中。看截圖：

4.在 附加控制 對話框中，向下滾動以檢查 Microsoft MonthView控件 在選項 可用控件 框，然后單擊 OK 按鈕。

5.然后您可以看到 月視圖 按鈕添加到 工具箱 窗口。請單擊此MonthView按鈕，然后在UserForm1窗口上單擊以在用戶窗體中創建日歷。

備注：您可以通過拖動用戶窗體的邊框來調整用戶窗體窗口的大小以適合插入的日歷。

6.雙擊UserForm1中的插入日歷，然后在代碼窗口，請用以下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

Copy

備注：此代碼可幫助在從日歷中選擇日期后將日期插入到選定的單元格中。

步驟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

Copy

備注：在代碼中，A2：A10是您要單擊以彈出日歷的單元格。請根據需要更改單元格范圍。

8。按其他 + Q 同時關閉按鍵 Microsoft Visual Basic應用程序 窗口。

從現在開始，單擊當前工作表中指定范圍內的任何單元格，將彈出一個日歷，如下圖所示。從日歷中選擇日期后，日期會自動插入到選定的單元格中。

單擊帶有VBA代碼的特定單元格時彈出日歷

本節介紹 日期選擇器 實用程序 Kutools for Excel。啟用此功能后，單擊日期單元格將彈出日歷，您可以輕松地用新日期替換現有日期。請按照以下步驟應用此功能。

1。點擊 Kutools > 內容 > 啟用日期選擇器.

2.啟用此功能后，單擊日期單元格，日歷圖標將在該單元格的右側彈出。

3.單擊日歷圖標以打開 日期選擇器 對話框，然后單擊一個新日期以替換所選單元格中的日期。

筆記：

撤消按鈕：單擊此按鈕可以撤消替換日期；關閉按鈕：單擊此按鈕可關閉“日期選擇器”對話框；此功能僅適用于包含日期的單元格。

如果您想免費試用（30-day) 這個實用程序， 請點擊下載，然后按照上述步驟進行操作。

相關文章: 如何通過單擊Excel中的特定單元格來觸發或運行宏？在Excel中單擊或選擇單元格時如何更改單元格顏色？單擊Excel中的某個單元格時如何彈出消息框？在Excel中單擊一次后如何禁用按鈕？如何在Excel中禁用工作表標簽上的右鍵單擊？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？利用的力量 Kutools for Excel - 您終極的節省時間的工具。簡化復雜的任務并像專業人士一樣瀏覽數據。以閃電般的速度體驗 Excel！