如何在EXCEL单元格中制作可以选择的下拉日历并自动填充

Question

如题所述

Answer 1

用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本回答被提问者采纳