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

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

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

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

4、在模块当中输入如下代码，然后运行

Private Sub CnCalendar1_Click() '单击日历时将日历的当前值赋予单元格

ActiveCell.Value=UserForm1.CnCalendar1.Value
End Sub
Private Sub UserForm_Activate()  '窗体激活时日历显示当日日期
Me.CnCalendar1.Value=Date
End Sub

Private 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 If
End Sub

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