精选优质文档-倾情为你奉上1. Alt+F11 按下显示代码窗口后,再松开Alt+F11.2. 然后按F7 ,调出VBA 窗口。3. 粘贴以下代码.Private Sub Calendar1_Click()Dim MyDay As DateActiveCell = Calendar1.ValueMydate = Calendar1.ValueMsgBox MydateCalendar1.Visible = 0End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Or Target.Column = 1 And Target.Row 0 Then If IsDate(Target) Then Calendar1.Value = Target Else Calen