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

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

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

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

備註：此方法僅適用於32位Microsoft Excel。

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

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

1。 按 其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口中，單擊 插入 > 用戶窗體.

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

備註：此代碼可以幫助在從日曆中選擇日期後將日期插入到選定的單元格中。

步驟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。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。

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

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

本節介紹 日期選擇器 的效用 Excel的Kutools。 啟用此功能後，單擊日期單元格將彈出一個日曆，您可以輕鬆地用新日期替換現有日期。 請按照以下步驟應用此功能。

1。 點擊 庫工具 > 內容 > 啟用日期選擇器.

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

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

注意：

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

相關文章:

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