Excel2003单元格怎样设定点选任意日期？

　　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