Note: The other languages of the website are Google-translated. Back to English

單擊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) 這個實用程序, 請點擊下載,然後按照上述步驟進行操作。


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (18)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
我想在所選單元格下顯示彈出日曆。我應該怎麼做?
網站主持人對此評論進行了最小化
我使用了這些 VBA 代碼,到目前為止一切都很好。 範圍是 A2:A10,當您在其中選擇一個單元格時會彈出日曆。 但是,如果您再次將行從 2 標記到 10,日曆會再次彈出。 如果您標記它,則與列“A”相同,日曆再次彈出。 我應該如何繼續,以便僅在我定義的範圍內獲取日曆?
網站主持人對此評論進行了最小化
大家好,

誰能告訴我如何在一系列單元格中彈出日曆,但僅從表格標題下方的單元格開始,然後在 Excel 列的下方開始。


謝謝你在前進。
網站主持人對此評論進行了最小化
美好的一天,
對不起,我沒有得到你的問題。 如果您能提供您正在嘗試做的事情的屏幕截圖,那就太好了。
網站主持人對此評論進行了最小化
使用即:範圍(“B6:C30”)
網站主持人對此評論進行了最小化
使用即:範圍(“B6:C30”)
網站主持人對此評論進行了最小化
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor。 teşekkür ederim
網站主持人對此評論進行了最小化
如果我嘗試選擇一行,彈出窗口將激活並且日期出現在該行的每個單元格中


我怎樣才能避免這種情況
網站主持人對此評論進行了最小化
你好山姆,
代碼已在文章中更新,解決了問題。 請試一試,感謝您的評論。
網站主持人對此評論進行了最小化
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
網站主持人對此評論進行了最小化
嗨,是否可以將日期選擇器彈出多個列,因為在我的工作表中我有“開始日期”、“結束日期”和“協議日期”。 如果是,那怎麼辦?
網站主持人對此評論進行了最小化
嗨,傑特,
按照這些步驟,將第二個 VBA 代碼中的範圍“A2:A10”替換為您的列範圍(例如 C2:E2)。
網站主持人對此評論進行了最小化
非常感謝! 這些方向非常有用:)
網站主持人對此評論進行了最小化
日曆會顯示,但是當我單擊日期時,單元格不會填充
網站主持人對此評論進行了最小化
嗨,
該代碼在我的情況下運行良好。 您使用的是哪個 Excel 版本?
網站主持人對此評論進行了最小化
沒有列出 Microsoft MonthView 控件(Office 365),並且此處的說明沒有說明如何獲得該控件,因此除非您使用的是舊版本的 Excel,否則這幾乎沒有用。
網站主持人對此評論進行了最小化
我沒有在列表中看到 Microsoft MonthView 控件,但可能正如 Pete (#32847) 提到的,這在 Office 365 或 64 位 Microsoft Office 中不起作用。
網站主持人對此評論進行了最小化
嗨蒂根考德爾,
我搜索並嘗試了google建議的方法,但最終無法在Microsoft 365中註冊MonthView控件。
帶來不便敬請諒解。 也許你可以看看這個。
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護