2020-12-12 19:45:14
1、在某一单元格中插入日历控件
(1)选中要插入日历控件的单元格,设置单元格格式为日期型;
(2)点击工具栏,“插入—对象—日历控件”,
(3)用
Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub

2021-03-31 23:24:52
2023-06-21 10:24:32
2023-05-25 07:23:16
2023-10-04 22:56:41