我经过多次实验，使用这个代码，可以在1和2列上同时使用日历控件了，并且点击其他列也不会出现。 Private Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column1 Then
（意思是小于并包含2列，并且不包含第一行） Me.Calendar1.Visible = True
...
