1、设置好表格，如需要在B5单元格中录入日期
2、选择开发工具，点击“设计模式”
3、点击插入ActiveX控件，出现的列表框中选择“其他控件”
4、其他控件列表框中拉到最下面，选择“日历控件”
5、在表格中把日历控件画出来，调整好自己喜欢的大小与格式，默认日历控件名称为：Calendar1
6、进入Visual Basic，设置日历控件的代码：显示隐藏日历控件，当B5单元格被选中时，日历控件自动出现，日期为当前系统日期，代码如下：--------------------------Pivate Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 And Target.Row = 5 Then Calendar1.Visible = True Calendar1.Left = ActiveCell.Left + ActiveCell.Width Calendar1.Top = ActiveCell.Top Calendar1.TodayElse Calendar1.Visible = False End If End Sub-----------------------------双击控件选择日期，代码如下：---------------------------------Private Sub Calendar1_DblClick()ActiveCell.Value = Calendar1.ValueCalendar1.Visible = FalseEnd Sub------------------------------设置好两段代码后即可完成，关闭Visual Basic
7、回到表格，关闭开发模式下的“设计模式”此时日期控件就会自动隐藏，当你点击B5时，日起控件出现，你就可以选择任意日期，双击，自动填入B5中
