excel中使用日历控件来选择日期

设置好表格，如需要在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.ValueCalendar1.Visible = FalseEnd Sub------------------------------设置好两段代码后即可完成，关闭Visual Basic

回到表格，关闭开发模式下的“设计模式”此时日期控件就会自动隐藏，当你点击B5时，日起控件出现，你就可以选择任意日期，双击，自动填入B5中