Excel日历控件教程(详细).doc

文档介绍：学习文档 仅供参考
Alt+F11 按下显示代码窗口后,再松开Alt+F11.
然后按F7 ,调出VBA 窗口。
学习文档 仅供参考
粘贴以下代码.
Private Sub Calendar1_Click(学习文档 仅供参考
Alt+F11 按下显示代码窗口后,再松开Alt+F11.
然后按F7 ,调出VBA 窗口。
学习文档 仅供参考
粘贴以下代码.
Private Sub Calendar1_Click()
Dim MyDay As Date
'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
= + Cells(, 3).Left
Else
= 0
End If
End Sub
打开文件→保存book1(S)
学习文档 仅供参考
打开视图→对象窗口
学习文档 仅供参考
→对象窗口
学习文档 仅供参考
，按确定退出。
〔A列〕中的任一单元格，选择日历中的需要的日期即可。
学习文档 仅供参考
备注：
要改变日期输入位置，可按以下方法调整代码，找到下面的代码行〔此代码行的意思是在A列〔第1列〕中添加日历。
If