在EXCEL中表格中如何实现单击A列中任意一个单元格，即有日历弹出！

Question

今天工作的时候，发现一个问题：A列中要输入日期，我觉得哦，很麻烦求求各位EXCEL老鸟们，用VBA编个程序。本人在此悬赏5个大洋啊。

Answer 1

步骤稍微复杂，希望你能明白。
1. 插入一日期控件：
2007版，点菜单的开发工具（如果没有，到Excel选项里，常用里第3个选项就可以显示它），插入，右下角的“更多控件/命令"，Calendar Control 12.0，然后用鼠标按着向右下拖一个比较适合的大小

2003版，点菜单的工具，自定义，命令，里面有插入控件的命令，把它拖到菜单栏，确定。然后...

假设该控件叫Calendar1

2. 右键点工作表的名字（在左下角，如Sheet1），查看代码，粘贴如下代码：
Private Sub Calendar1_Click()
Selection = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Calendar1.Left = Target.Offset(0, 1).Left
Calendar1.Top = Target.Top
Calendar1.Visible = True
End If
End Sub

回到Excel，功能实现。