Excel 利用日期控件输入时间

首先先在sheet1中插入一个日期控件DTPicker（日期拾取器）

然后输入代码：

 

ThisWorkBook中的代码：

 Private Sub Workbook_Open()

   
'调整DTP控件的大小

    With
Sheet1.DTPicker1

       
'设置DTP控件的高度等于行高

       
.Height = Sheet1.Cells(1, 4).Height

       
'设置DTP控件的宽度略大于第三列的宽度，使得DTP控件的下拉按钮在单元格外

       
'此处我们假设第三列的所有单元格的高度相同，否则在每次显示DTP控件时,

       
'都应根据当前单元格调整控件大小

       
.Width = Sheet1.Cells(1, 4).Width + 18

       
.Visible = False

    End
With

End Sub

 

Sheet1中的代码：

 

Private Sub
DTPicker1_CloseUp()

   
'禁用事件，在将DTP控件的值更新到单元格时，防止Worksheet_Change被误激活

   
Application.EnableEvents = False

   
ActiveCell.Value = Me.DTPicker1.Value

   
Me.DTPicker1.Visible = False

    '启用事件

   
Application.EnableEvents = True

End Sub

Private Sub
Worksheet_Change(ByVal Target As Range)

   
'判断是否只选中了单个单元格

    If
Target.Count = 1 Then

       
'如果删除第三列的单元格内容，则隐藏DTP控件

       
If Target.Column = 3 And Target = "" Then

           
Me.DTPicker1.Visible = False

       
End If

    End If

End Sub

Private Sub
Worksheet_SelectionChange(ByVal Target As Range)

    If
Target.Count = 1 Then

   
Application.EnableEvents = False

       
If Target.Column = 4 Then

           
With Me.DTPicker1

               
.Visible = True

               
'调整DTP控件的位置，使其显示在当前单元格之中

               
.Top = Target.Top

               
.Left = Target.Left

               
If Target <> "" Then

                   
'如果当前单元格已有内容，则设置DTP控件初始值为当前单元格日期，否则为系统当前日期

                   
.Value = Target.Value

               
Else

                   
.Value = Date

               
End If

           
End With

       
Else

           
Me.DTPicker1.Visible = False

       
End If

       
Application.EnableEvents = True

    End If

End Sub

 

代码好了以后，在sheet1中，点击第4列（也就是D列）的任意单元格，就会出现选择时间的DTPicker

选择以后，就会在单元格留下刚才选择的日期。

怎么样，挺好玩的。哈