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

Question

如题所述

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，功能实现。

Answer 2

安装日历控件即可完成。

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

2.工程窗口中双击对应的SHEET，将代码复制到弹出窗口中。

3.给日历控件添加单击事件代码。

4.到这里就完成了，效果图如下。

Answer 3

步骤稍微复杂，希望你能明白。
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，功能实现。