跳至主要内容

Kutools for Office — 一套工具，五种功能。事半功倍。

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

Author Siluvia Last modified

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

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

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

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

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

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

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

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

click Insert > UserForm

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

click any one control and right click, then select Additional Controls

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

check the Microsoft MonthView Control option

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

create a Calendar in the Userform

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

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

注意：此代码可以帮助在从日历中选择日期后将其插入到选定单元格中。

copy and paste the code into the module

步骤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 是您将点击弹出日历的单元格。请根据需要更改单元格范围。

copy and paste the code into the sheet module

8. 同时按下 Alt + Q 键关闭 Microsoft Visual Basic for Applications 窗口。

从现在开始，当点击当前工作表中指定范围内的任何单元格时，将弹出如下截图所示的日历。并且在从日历中选择日期后，日期将自动插入到选定单元格中。

when clicking on any cell inside the specified range, a calendar will pop up

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

本节介绍了 Kutools for Excel 的日期选择器功能。启用此功能后，点击日期单元格将弹出日历，您可以轻松地用新日期替换现有日期。请按照以下步骤应用此功能。

Kutools for Excel 提供了超过 300 种高级功能，简化复杂任务，提升创造力与效率。 通过集成 AI 能力，Kutools 能够精准自动执行任务，让数据管理变得轻松简单。Kutools for Excel 的详细信息...         免费试用...

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

click Enable Date Picker feature

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

click on a date cell, and a calendar icon will pop up

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

Click the calendar icon to open the Date Picker dialog box

注意事项：

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

  如果您想免费试用（30天）此工具，请点击下载，然后按照上述步骤进行操作。

相关文章：

最佳Office办公效率工具

🤖 Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找……
高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表……
列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列……
特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）……
15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| ……
Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言！

通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……

Office Tab为Office带来多标签界面，让您的工作更加轻松

  • 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
  • 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
  • 可提升50%的工作效率，每天为您减少数百次鼠标点击！

所有Kutools加载项，一键安装

Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。

Excel Word Outlook Tabs PowerPoint
  • 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
  • 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
  • 协同更高效——提升Office应用间的整体工作效率
  • 30天全功能试用——无需注册，无需信用卡
  • 超高性价比——比单独购买更实惠