怎样使用VBA利用日历控件输入日期

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Private Sub CnCalendar1_Click() '单击日历时将日历的当前值赋予单元格ActiveCell.Value=UserForm1.CnCalendar1.ValueEnd SubPrivate Sub UserForm_Activate() '窗体激活时日历显示当日日期Me.CnCalendar1.Value=DateEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column=1 And Target.Count=1 Then '如果选择第一列而且只选中单个单元格UserForm1.Show 0 '显示窗体Target=UserForm1.CnCalendar1.Value '将日历控件的值输入到单元格Else '否则UserForm1.Hide '隐藏窗体End IfEnd Sub

5、选择A列等输入日期的撮劝丛食单元格，单元格立即出现当日日期，同时显示日历；如果单元格中需要的是其他日期，则单击日历控件中相应的日期，代码立即将选择的日期赋予单元格