Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then '这儿添加控件显示的条件
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub
原例 target.column=3表示第3列,即C列,同时限制 column和row就是指定单元格,如果用其他条件,就可以设定一个范围。