如何使用Excel绘制清晰的表格
549
2024-01-07
单击Excel中的特定单元格时如何弹出日历？
单击Excel中的特定单元格时如何弹出日历？
假设工作表中有一个列范围，您需要经常在其中输入和更改日期，但是每次手动输入或更改日期很无聊。 如何快速输入日期而无需手动输入列范围？ 本文讨论的是单击某个范围内的单元格时弹出日历，然后在日历中选择日期后将日期自动插入到选定的单元格中。
单击带有VBA代码的特定单元格时弹出日历
步骤1：使用日历创建UserForm
步骤2：点击单元格时激活日历方便的工具，可帮助您在单击单元格时轻松弹出日历
单击带有VBA代码的特定单元格时弹出日历
请按以下步骤解决此问题。
备注注意：此方法仅适用于32位Microsoft Excel。
步骤1：创建带有日历的用户窗体请创建一个用户窗体，其中包含您将通过单击单元格弹出的日历。
1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。
2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 用户表格.
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
Copy
备注：此代码可帮助在从日历中选择日期后将日期插入到选定的单元格中。
步骤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
Copy
备注：在代码中，A2：A10是您要单击以弹出日历的单元格。 请根据需要更改单元格范围。
8。 按 其他 + Q 同时关闭按键 Microsoft Visual Basic应用程序 窗口。
从现在开始，单击当前工作表中指定范围内的任何单元格，将弹出一个日历，如下图所示。 从日历中选择日期后，日期会自动插入到选定的单元格中。
单击带有VBA代码的特定单元格时弹出日历本节介绍 日期选择器 实用程序 Kutools for Excel。 启用此功能后，单击日期单元格将弹出日历，您可以轻松地用新日期替换现有日期。 请按照以下步骤应用此功能。
1。 点击 Kutools > 内容 > 启用日期选择器.
2.启用此功能后，单击日期单元格，日历图标将在该单元格的右侧弹出。
3.单击日历图标以打开 日期选择器 对话框，然后单击一个新日期以替换所选单元格中的日期。
笔记：
撤消按钮：单击此按钮可以撤消替换日期； 关闭按钮：单击此按钮可关闭“日期选择器”对话框； 此功能仅适用于包含日期的单元格。如果您想免费试用（30-day) 这个实用程序， 请点击下载，然后按照上述步骤进行操作。
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
立即下载，与 Excel 一起穿越时空！
阅读更多
免费下载... 采购...
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
阅读更多
免费下载... 采购...
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
