<em>excel日期控件</em>输入，a列作为日期列，可以手动输入日期，也...-日期控件

EXCEL有日历控件，首先插知入一个日历控件，

ALT F11
将下面代码复制进去，
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If

End Sub

这个道没有按钮，鼠标单击第一列 控件就回会出现，
如果非要答按钮的话，HI我
用VBA做一个代码，可以在选中E2单元格时弹出一个日历抄控件，选择日期后日历控件就自动隐藏，同时E2单元格显示刚才选中的日期值。
先在工作表中添加一百个日历控件，然后点下面工作表标签名字，按鼠标右键，从弹出的快捷菜单中选“查看代码”，然后把下面代码粘贴进去，回到excel窗口就度能使用了。
Private Sub Calendar1_Click()
Range("e2") = Calendar1.Value '让E2单元格显示日历控件的值
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$2" Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub

1、首先打开Excel建立一个日期列表，设置好表格，在B5单元格中录入日期。

2、然后选择开发工具，点击“设计模式”zd。

3、点击插入ActiveX控件，出现的列表框中选择“其他控件”。

4、其他控件列表框中拉到最下面，选择“日历控内件”。

5、在表格中把日历控件画出来，调整好喜欢的大小与格式，默认日历控件名称为：Calendar1。

6、双击日历控件，进入VBE代码区，输入下面的代码。容

7、再回到Excel的页面可以看到日期的控件，设置就完成了。