Excel 中添加日期控件

 打开 Excel 中View-->ToolBars-->Control Toolbox  点击 More controls 选择 Microsoft Date and Time Picker control 6.0(SP4),调整大小及位置

鼠标移到控件上右键 View Code,编辑如下代码

Private Sub DTPicker1_Change()
Selection = CStr(DTPicker1)

End Sub

Private Sub DTPicker1_Click()
Selection = DTPicker1
DTPicker1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 And Target.Column = 1 And Target.Count = 1 Then
DTPicker1.Visible = True

DTPicker1.Top = Cells(Target.Row, 2).Top
DTPicker1.Left = Cells(Target.Row, 2).Left
DTPicker1.Visible = True
Else
DTPicker1.Visible = False
End If
End Sub

注：此代码是第一列第二行开始显示控件供选择