操作方法
设置好表格，如需要在B5单元格中录入日期
选择开发工具，点击“设计模式”
点击插入ActiveX控件，出现的列表框中选择“其他控件”
其他控件列表框中拉到最下面，选择“日历控件”
在表格中把日历控件画出来，调整好自己喜欢的大小与格式，默认日历控件名称为：Calendar1
进入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.Today Else Calendar1.Visible = False End If End Sub ----------------------------- 双击控件选择日期，代码如下： --------------------------------- Private Sub Calendar1_DblClick() ActiveCell.Value = Calendar1.Value Calendar1.Visible = False End Sub ------------------------------ 设置好两段代码后即可完成，关闭Visual Basic
回到表格，关闭开发模式下的“设计模式” 此时日期控件就会自动隐藏， 当你点击B5时，日起控件出现，你就可以选择任意日期，双击，自动填入B5中