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。    

③ 關閉屬性編輯頁面返回工作表，點擊控件工具欄中的〖退出設計模式〗，退出控件設計模式。

④ 點擊日期控件圖標，彈出活動日曆，選擇需要編輯的日期。可以對該列調整單元格格式以滿足自己的需要。