VBA 日期控件

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