Excel单元格中插入了开发工具选项中的时间日期控件，但是点...-excel2013选择日期,excel

插入控百件度Calendar
Private Sub Calendar2_Click()
Range("C3") = Calendar2.Value '点击问c3单元格显答示日历控件专的值属
Calendar2.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$3" Then
Calendar2.Visible = True

Else
Calendar2.Visible = False
End If
End Sub

用VBA做一个代码，可以在选中E2单元格时弹出一个日zd历控件，选择日期后日历控件就自动隐藏，同时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文档，然后点击右上百角的“开发工具”菜单度。

2、这时会打开开发工具标签，在工具栏上点击“插入”图标。

3、在打开的插入下拉菜单中点击“更多工具”按钮。

4、这时会打开其它控件窗口，在窗口中找到Microsoft data and Time Picker Control,Version 6.0一项知，然后点击确定按钮。

5、这时在Exce文档中点击一下鼠标，就可道以把Excel日历控件插入到文档中了哦。这时选中刚刚版插入的日权历控件。

6、这时选中刚刚插入的日历控件，然后点击一下工具栏上的“设计模式”按钮，就可以使用了。

我试了下没问题 ，可以使用啊，你是不是没有把代码放在 对应的sheet模块里？