需要用得自己添加？
这个是添加在日历控件按钮下的
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 Subhttps://www.cnblogs.com/mlj001/p/4509912.html
https://mp.csdn.net/postlist/list/all?undefined=all
https://jingyan.baidu.com/article/29697b912b5d25ab20de3cf0.html
扫描二维码关注公众号，回复：
9186414 查看本文章
