Excel日历控件教程详细.docx

文档介绍：Revised by BLUE on the afternoon of December 12,2020.
Excel日历控件教程详细
Alt+F11 按下显示代码窗口后,再松开Alt+F11.
然后按F7 , Revised by BLUE on the afternoon of December 12,2020.
Excel日历控件教程详细
Alt+F11 按下显示代码窗口后,再松开Alt+F11.
然后按F7 ,调出VBA 窗口。
粘贴以下代码.
Private Sub Calendar1_Click()
Dim MyDay As Date
ActiveCell =
Mydate =
'MsgBox Mydate
= 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If = 1 Or = 1 And > 0 Then
If IsDate(Target) Then
= Target
Else

End If
= -1
= +
Else
= 0
End If
End Sub
打开文件→保存book1(S)
打开视图→对象窗口
→对象窗口
，按确定退出。