作者：乔山办公网日期：
返回目录：office365
1、在某个单元格中插入日历控件
（1）选择要插入日历控件的单元格，并将单元格格式设置为日期类型。
（2）工具栏，单击“对象-插入日历控件”
（3）在快捷方式Alt+F11中，双击插入控件的工作表名称，粘贴以下代码，单击A1时弹出日历控件，单击日历控件，将选择的日期值记入A1隐藏控件。
private Sub Calendar 1_Click（）
Active Cell=Calendar 1
Calendar 1.Visible=False
a.Select
End Sub
private Sub Worksheet_Selection Change（ByVal Target As Range）
If Target.Address=「$A 1」The n Calender 1.Visible=True
End Sub
本文标签：