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

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.Today

 Else

    Calendar1.Visible = False

  End If  

End Sub

-----------------------------

双击控件选择日期，代码如下：

---------------------------------

Private Sub Calendar1_DblClick()

ActiveCell.Value = Calendar1.Value

Calendar1.Visible = False

End Sub

------------------------------

设置好两段代码后即可完成，关闭Visual Basic

7、回到表格，关闭开发模式下的“设计模式”

此时日期控件就会自动隐藏，

当你点击B5时，日起控件出现，你就可以选择任意日期，双击，自动填入B5中