1、效果:
1)单击A列某一个单元格,弹出日期选择控件(跟随选择的单元格移动)。
2)选择日期后点击日期控件,自动将日期写入A列的单元格,控件隐藏。
2、代码:
Private Sub DTPicker21_Click()
ActiveCell = DTPicker21.Value
Me.DTPicker21.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.DTPicker21.Visible = True
Me.DTPicker21.Top = Target.Top
Else
Me.DTPicker21.Visible = False
End If
End Sub
说明:DTPicker21是实际的控件名称,根据实际情况修改,插入的日期控件是Microsoft Date and Time Picker Control 6.0