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

Excel日历控件教程(详尽) Excel日历控件教程(详尽) PAGE / NUMPAGES Excel日历控件教程(详尽) 1. A l t + F 1 1 按 下 显 示 代 码 窗 口 后 , 再 松 开 A l t + F 1 1 . 而后按 F7, 调出 VBA窗口。 粘贴以下代码 . PrivateSubCalendar1_Click() DimMyDayAsDate MsgBoxMydate Calendar1.Visible=0 EndSub PrivateSubWorksheet_SelectionChange(ByValTargetAsRange) IfTarget.Column=1OrTarget.Column=1AndTarget.Row0Then IfIsDate(Target)Then Calendar1.Value=Target Else EndIf Calendar1.Visible=-1 Else Calendar1.Visible=0 EndIf EndSub 翻开文件→保留 book1(S) 翻开视图→对象窗口 翻开插入→对象窗口 找到日历控件 11.0 或 9.0 ，按确立退出。 单击第一列（ A 列）中的任一单元格，选择日历中的需要的日期即可。备注： 要改变日期输入地点，可按以下方法调整代码，找到下边的代码行（此代码行的意 思是在