單擊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.單擊日曆圖標以打開 日期選擇器 對話框，然後單擊一個新日期以替換所選單元格中的日期。
筆記：
撤消按鈕：單擊此按鈕可以撤消替換日期；
關閉按鈕：單擊此按鈕可關閉“日期選擇器”對話框；- 此功能僅適用於包含日期的單元格。
如果您想免費試用（30-day) 這個實用程序， 請點擊下載，然後按照上述步驟進行操作。
相關文章:
- 如何通過單擊Excel中的特定單元格來觸發或運行宏？
- 在Excel中單擊或選擇單元格時如何更改單元格顏色？
- 單擊Excel中的某個單元格時如何彈出消息框？
- 在Excel中單擊一次後如何禁用按鈕？
- 如何在Excel中禁用工作表標籤上的右鍵單擊？
最佳辦公效率工具
Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%
- 重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
- 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
- 合併單元格/行/列 不會丟失數據； 拆分單元格內容； 合併重複的行/列...防止細胞重複； 比較範圍...
- 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
- 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
- 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
- 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
- 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
- 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆
- 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！
