Excel 2010 表格中插入日历选择
sjb1. 进入表单，选择Developer（开发），点击Inrt（插入）
2. 点击弹出对话框中More Controls (更多控制)选项
3. 选择弹出对话框中Microsoft Date and Time Picker Control 6.0 (日历控件)
bacteria4. 点击OK
5. 对话框消失，鼠标变成十字符。
6. 移动十字符到需要的位置，按住鼠标左键，拉动鼠标，选择合适大小，出现如下图
7. 如果有需要可调整该框的大小。
8. 双击该框内任意一点，对该控件进行编程，出现如下对话框
9. 将下面程序拷入
起立的英文Private Sub DTPicker21_cloup()
ActiveCell = DTPicker21.Value
Me.DTPicker21.Visible = Fal
am oled
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
DTPicker21.Left = Target.Left
DTPicker21.Top = Target.Top太傻咨询
Me.DTPicker21.Visible = True
ElIf Target.Column = 4 Then
DTPicker21.Left = Target.Left
DTPicker21.Top = Target.Top
Me.DTPicker21.Visible = True
ElIf Target.Column = 6 Then
DTPicker21.Left = Target.Left
DTPicker21.Top = Target.Top
Me.DTPicker21.Visible = Truecouchsurf>imp
El
Me.DTPicker21.Visible = Fal
End If
forgivenEnd Sub
10. 出现如下状况
11. 点击Excel图标，进入表单
12. 点击Design Mode（设计模式），以进入编辑模式
13. 程序中Target.Column = 4 是选择哪一列用来输入日历，如果需要，可多加或减少列数。
4就是D列。
14. 点击选择按钮
ancii
15. 选择日期
16. 任务完成
17. 存盘时应选择xlsm类型，否则控件将无法保存。
enum
18. 也有用click（）功能取代Cloup（），亦可实现，多试试就会有新发现。
