VBA中，窗体控件中添加日期控件并赋值，如图。谢谢大家！！

在工具箱点鼠标右键——附加控件，在附加控件窗口中选择如图的控件，如没有，请上网下载安装。确认后选择控件在窗体中添加。

控件代码如下

Private Sub DTPicker1_Change()

[O2] = Me.DTPicker1.Value

End Sub

Private Sub DTPicker2_Change()

[O3] = Me.DTPicker2.Value

End Sub

需要绑定日历控件，建议不要采用这个花销的方式。一是，日历控件并不是系统自带的，所以并不是每台电脑上都有，如果给别人使用，还要带上日历控件并注册，比较麻烦。二是，使用日历控件来输入日期，并不见得比直接输入日期来的方便快捷。

建议让用户直接输入就好了，但程序要做好判断工作，使用cdate（text1.text），函数，判断下用户输入的是否是日期

第一首先要用

Private

Sub

Worksheet_Change(ByVal

Target

As

Range)

触发事件。第二要用到日期控件：方法一：先将控件工具箱调出来。视图－工具栏－控件工具箱。

在控件工具箱上最下面那个按钮是其他控件，打开它，找到Microsoft

Date

and

Time

Picker

Control，

这个就是日历控件。然后在一个单元格上拖画一个框，日历控件就出来了。

然后在控件工具箱上退出设计模式，日历控件就能使用了。

在你所要用到的单元格内画出，大小要和单元格一样；

选中控件，右键单击选择菜单“设置控件格式”，在"属性"选项中选择“大小、位置均随单元格而变”，确定；

右键单击控件选择菜单“查看代码”，进入VBA后，键入以下代码：

Private

Sub

DTPicker1_Change()

Sheet1.Cells(1,

1)

=

CStr(DTPicker1)

End

Sub

Private

Sub

DTPicker1_Click()

Sheet1.Cells(1,

1)

=

CStr(DTPicker1)

End

Sub

返回到Excel,调整单元格大小使控件完全显示；

退出设计模式，OK。如果没有这个控件可以自己去网上下载个控件或者用方法2. 方法2:在EXCEL窗口中执行“视图”→“工具栏”→“控件工具箱”添加“日历控件11.0”

---