1、在某一单元格中插入日历控件 　　（1）选中要插入日历控件的单元格，设置单元格格式为日期型； 　　（2）点击工具栏，“插入—对象—日历控件”， 　　（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。 　　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