在EXCEL中使用日历控件：[1]

时间：2024-10-30 15:15:13

工具：EXCEL2010

目的：规范日期输入

设计：激活A列中的单元格后，弹出日历控件；在日历制件中选择日期后，自动填充到激活的单元格中。

步骤：

1、选取开发工具/插入/其他控件。2、在其他控件列表的最下面找到“日历控件12.0”，选中它，确定。3、如果需要调整控件大小，可以点开发工具/设计模式（开启）。调整好后，再点一下（关闭）。4、进入开发工具/VBA窗口。5、在工程资源管理器中，双击需要使用日历控件的工作表。6、在代码编辑窗口输入（粘贴）以下代码：

private Sub Calendar1_Click()Selection = Calendar1.ValueEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 ThenCalendar1.Visible = TrueCalendar1.Value = DateElseCalendar1.Visible = FalseEnd If

End Sub

图例