如何在点击Excel中的特定单元格时弹出日历？

假设工作表中有一列范围，需要频繁输入和更改日期，但每次都手动输入或更改日期非常繁琐。如何快速输入日期而无需手动键入到该列范围呢？本文将介绍在点击某个范围内的单元格时弹出日历，然后在日历中选择日期后自动插入到所选单元格的方法。

使用VBA代码在点击特定单元格时弹出日历

请按照以下步骤逐步解决此问题。

注意：此方法仅适用于Microsoft Excel 32位版本。

步骤1：创建带有日历的用户窗体

请创建一个包含日历的用户窗体，您可以通过点击单元格来弹出该日历。

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 用户窗体。

3. 接着会弹出一个用户窗体和一个工具箱窗口，在工具箱中点击任意控件并右击，然后从右键菜单中选择其他控件。参见截图：

4. 在 其他控件 对话框中，向下滚动并勾选 可用控件 框中的 Microsoft MonthView 控件选项，然后点击 确定 按钮。

5. 然后您可以看到 MonthView 按钮被添加到了 工具箱 窗口中。请点击这个 MonthView 按钮，然后点击 UserForm1 窗口以在用户窗体中创建日历。

注意：您可以通过拖动用户窗体的边框来调整用户窗体窗口的大小以适应插入的日历。

6. 双击用户窗体中的已插入日历，然后在代码窗口中，请将原始代码替换为以下VBA脚本。

VBA代码：创建带有日历的用户窗体

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代码：点击单元格弹出日历

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 的日期选择器功能。启用此功能后，点击日期单元格将弹出日历，您可以轻松地用新日期替换现有日期。请按照以下步骤应用此功能。

1. 点击 Kutools > 文本 > 启用日期选择器。

2. 启用此功能后，点击日期单元格，单元格右侧将弹出一个日历图标。

3. 点击日历图标打开 日期选择器对话框，然后点击新日期以替换选定单元格中的日期。

注意事项：

• 撤销按钮：点击此按钮可撤销日期替换；
• 关闭按钮：点击此按钮可关闭日期选择器对话框；
• 此功能仅适用于包含日期的单元格。

相关文章：

• 如何通过点击Excel中的特定单元格触发或运行宏？
• 如何在Excel中点击或选择单元格时更改单元格颜色？
• 如何在Excel中点击某个单元格时弹出消息框？
• 如何在Excel中点击一次后禁用按钮？
• 如何在Excel中禁用工作表标签上的右键单击？