按alt+F11调出代码输入界面,先双击左边表格名,在右边复制以下代码:Private Sub Calendar1_Click()ActiveCell.Value = Calendar1.ValueCalendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 Then '这是A列,如果要B列则改为2,其他同理.
With Calendar1