Excel中使用日期控件

1. 插入日期控件
①. 打开需要插入日期控件的工作薄，依次点击【视图】【工具栏】【控件工具箱】，调出控件工具栏。

②. 点击控件工具栏中的〖其他控件〗，选择(Microsoft Date and Time Picker Control，version 6.0)控件。

       

③. 在工作表内需要填写日期的单元格中画出日期控件图标，调整大小与单元格一致。

 

 

2. 编辑代码
① 点击控件工具栏中的〖查看代码〗，进入代码编辑页面，编辑如下代码：
 
Private Sub DTPicker1_Change()
    ActiveCell.Value = DTPicker1.Value
    DTPicker1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.DTPicker1
        If Target.Column = 1 And (Target.Row = 1 Or Target.Row = 2)And Target.Count = 1 Then
            .Visible = True
            .Width = Target.Width + 15
            .Left = Target.Left
            .Top = Target.Top
            .Height = Target.Height
        Else
            .Visible = False
        End If
    End With
End Sub

 

【提示】：上列代码中，Target.Column = 1表示该控件作用于工作表中第一列。Target.Row = 1 Or Target.Row = 2表示该控件作用于工作表中第一行和第二行。Target.Count = 1表示选中的是1个单元格时才会触发事件。

② 关闭代码编辑页面返回工作表，点击控件工具栏中的〖属性〗，进入属性编辑页面，调整CheckBox属性为True。    

③ 关闭属性编辑页面返回工作表，点击控件工具栏中的〖退出设计模式〗，退出控件设计模式。

④ 点击日期控件图标，弹出活动日历，选择需要编辑的日期。可以对该列调整单元格格式以满足自己的需要。