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

《Excel日历控件教程(详细).pdf》由会员分享，可在线阅读，更多相关《Excel日历控件教程(详细).pdf（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1.1.Alt+F11Alt+F11 按下显示代码窗口后按下显示代码窗口后,再松开再松开 Alt+F11.Alt+F11.2.2.然后按然后按 F7F7,调出调出 VBAVBA 窗口。窗口。3.3.粘贴以下代码粘贴以下代码.Private Sub Calendar1_ClickDim MyDay As DateActiveCell=Calendar1.ValueMydate=Calendar1.ValueMsgBox MydateCalendar1.Visible=0End SubPrivate Sub Worksheet_SelectionChange If Target.Column=1

2、Or Target.Column=1 And Target.Row 0 Then If IsDate Then Calendar1.Value=Target Else Calendar1.Today End If Calendar1.Visible=-1 Calendar1.Top=ActiveCell.Top+ActiveCell.Height Calendar1.Left=ActiveCell.Left+Cells.Left Else Calendar1.Visible=0End IfEnd Sub4.4.打开文件保存打开文件保存 book1book15.5.打开视图对象窗口打开视图对象窗

3、口6.6.打开插入对象窗口打开插入对象窗口7.7.找到日历控件找到日历控件 11.011.0 或或 9.0,9.0,按确定退出。按确定退出。8.8.单击第一列单击第一列A A 列中的任一单元格列中的任一单元格,选择日历中的需要的日期即可。选择日历中的需要的日期即可。备注：备注：要改变日期输入位置要改变日期输入位置,可按以下方法调整代码可按以下方法调整代码,找到下面的代码行找到下面的代码行 此代码行的意此代码行的意思是在思是在 A A 列第列第 1 1 列中添加日历。列中添加日历。If Target.Column=1 Or Target.Column=1 And Target.Row 0 Then然后根据以下的方法覆盖粘贴此行代码然后根据以下的方法覆盖粘贴此行代码1.1.以下这一句就是以下这一句就是 B3:C5 B3:C5 区域调用日期控件区域调用日期控件.1/2If Target.Column=2 And Target.Row 2 And Target.Row 2 And Target.Row 0 Then3.3.这句是说在这句是说在 C2:C50C2:C50 调用日期控件调用日期控件.If Target.Column=3 And Target.Row 1 And Target.Row 51 Then2/2