在EXCEL中插入日历控件后，如何添加到单元格上（带下拉箭头），点击后出现日历，选择一个日期自动填充并隐

Posted 2023-03-14

在EXCEL中插入日历控件后，如何添加到单元格上（带下拉箭头），点击后出现日历，选择一个日期自动填充到单元格并自动隐藏日历

参考技术A 用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、视图-工具栏-控件工具箱-其他控件-日历控件11.0后出现一个日历图表2、点击图表，用右键选择“查看代码”，后出现VBA窗口，在Calendar1窗口有两行代码，我把原来的两行代码去掉，粘贴上你给的代码，关闭回到EXCEL。我同时去掉了你的代码中的'让E2单元格显示日历控件的值

追答

看一下控件工具箱左侧“设计模式”是否处于选中状态，如果是选中状态，无法运行代码。

本回答被提问者采纳