打开 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
注:此代码是第一列第二行开始显示控件供选择