使用DTP控件輸入日期

1、技巧1 使用DTP控件輸入日期在工作表中輸入日期可以使用日期時(shí)間控件( Microsoft Date and Time Picker Control6.0 ,簡(jiǎn)稱DTP控件)。在工作表中單擊菜單“視圖” 一 “工具欄” 一 “控件工具箱”，選擇“其他控件”中的DTP控件如圖1-1所示，在工作表中添加一個(gè) DTP控件。LM Au" Effect BthtiwrLM Behavior FactoryLM Rtintint CntrlLacalLaimcher ClassM<crpffi«di « Fltih FictQry Obj ictMedi dZomm C

2、l usMi droioft ActivaX UplQ«d Contr。1, verti cm 1.5Ni crosoft Agent Co-ntrol 2.0Mikni用ti.Qn Csitml 6 0 BP4)WicroEoft Dat& and Tic Ficker Cmutr。1 El。 (5F4jMi crosoft BarCode Control 9. 0Hi白y"5力£七Dial。與 匚/rsiciR 6 (J183個(gè)控件 .圖1-1選擇DTP控件在設(shè)計(jì)模式下雙擊DTP控件寫入下面的代碼：# 001 Private Sub Worksheet

3、_SelectionChange(ByVal Target As Range)# 002 With Me.DTPicker1# 003 If Target.Count = 1 And Target.Column = 2 And (Not Target.Row =1) Or Target.MergeCells Then# 004.Visible = True# 005.Top = Selection.Top# 006.Left = Selection.Left# 007 .Height = Selection.Height# 008.Width = Selection.Width# 009If

4、Target.Cells(1, 1) <> "" Then# 010.Value = Target.Cells(1, 1).Value# 011Else# 012.Value = Date# 013End If# 014Else# 015.Visible = False# 016End If# 017 End With# 018 End Sub# 019 Private Sub DTPicker1_CloseUp()# 020 ActiveCell.Value = Me.DTPicker1.Value# 021 Me.DTPicker1.Visible = Fa

5、lse# 022 End Sub# 023 Private Sub Worksheet_Change(ByVal Target As Range)# 024 If Target.Count = 1 And Target.Column = 2 Or Target.MergeCells Then# 025If Target.Cells(1, 1).Value = "" Then# 026 DTPicker1.Visible = False# 027End If# 028 End If# 029 End Sub代碼解析：第1行到第18行代碼工作表的 SelectionChange

6、事件，當(dāng)選擇工作表的 B列第2行以下的單個(gè)單元格時(shí)顯示日期控件供用戶選擇日期。其中第3行代碼設(shè)置顯示日期控件的觸發(fā)條件。只有當(dāng)用戶選擇B列第2行以下單元格且只能選擇單個(gè)單元格時(shí)才顯示日期控件，因?yàn)楸纠鼴列中存在合并單元格，所以需要加上Or Target.MergeCells 這個(gè)條件，否則單擊合并單元格不顯示日期控件。第4行到第8行代碼顯示日期控件并設(shè)置日期控件的大小等于所選單元格的大小。第9行到第13行代碼，如果單元格已經(jīng)輸入了日期， 將單元格中的日期賦給日期控件， 否則將當(dāng)前日期賦給日期控件。因?yàn)楸纠?B列中存在合并單元格，而合并區(qū)域的值在該區(qū) 域左上角的單元格中指定，所以用 Target.Cells(1, 1)指定合并單元格的值，否則代碼會(huì)出 錯(cuò)。第15行代碼如果選擇的是其他列則隱藏日期控件。第19行到第22行代碼日期控件的CloseUp事件，將日期控件