如何在VBA的用户窗体中插入日历控件

在工具箱点鼠标右键——附加控件，在附加控件窗口中选择如图的控件，如没有，请上网下载安装。确认后选择控件在窗体中添加。 控件代码如下 Private Sub DTPicker1_Change()[O2] = Me.DTPicker1.ValueEnd SubPrivate Sub DTPicker2_Change()[O3] = ...

打开一个EXCEL工作簿，进入一个工作表中，按“视图－工具栏－控件工具箱”，会调出控件工具箱。

用鼠标点击工具箱中的“其他控件”按钮，会出现下面窗口，用滚动条向下拉动它，从中找到“日历控件11.0”，用鼠标选择它。(控件后面的版本号可能不同）

用鼠标选中它后，鼠标指针会变成一个十字形光标，然后在EXCEL窗口中按住鼠标左键拖出一个大小适中的“日历控件”。

如果你的电脑中找不到此控件，可从其他电脑上的 c:\windwos\system32\mscal.ocx 位置拷贝mscal.ocx到你电脑上的相同位置粘贴。也可以从网上下载这个mscal.ocx文件。

如果电脑中存在mscal.ocx文件，而不能正常使用日历控件，就需要在系统的【开始】－【运行】中输入 regsvr32 mscal.OCX 进行注册。

---