ALT F11 将下面代码复制进去, Private Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.Visible = False End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then Me.Calendar1.Visible = True Else Me.Calendar1.Visible = False End If