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

Question

Excel2003单元格怎样设定点选任意日期？像下图这样，可以点选。

Answer 1

　　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

Answer 2

这个是用VBA做的,你按ALT+F11,可以查看到源代码及窗体本回答被网友采纳

Answer 3

这类问题 已经有很多文章 描述过了 你自己搜一下 就能得到你需要的答案了……
http://wenku.baidu.com/link?url=DGy1KWwh1U55f3Xe6SxIxZKcmyuZjJJhrZCYtKBgVkpLEX8WD-alGeBDC2gud2g7aX4XHypt_00J27b1BZ451WAXdHF89XHeHfOebavR_FW