excel中实现日期选择输入(日历控件)

1、excel 中实现日期选择输入（日历控件）推荐第一种方法：首先这个控件需要一个名为 MSCOMCT2.O 飒空件文件，这个文件大家先在电脑里搜索一下，如果没有的话就求助 baidu喽.下载下来后把它复制到 c:windowssystem32 里.最后就在开始。运行里注册 MSCOMCT2.OCW.那么如何注册呢，方法很简单输入 regsvr32MSCOMCT2.OCXok 拉这时打开 excel 控件工具箱点击其它控件找到 MicrosoftDateandTimePickerControl6.0,这个东东就是我们要的日期控件拉第二种方法：MSCAL.OCXPrivateSubCalendar1

2、_Click()ActiveCell=Calendar1.ValueMe.Calendar1.Visible=FalseEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)此处的 6 和 7 为你要显示日历的列序号IfTarget.Column=6OrTarget.Column=7ThenMe.Calendar1.Left=Target.LeftMe.Calendar1.Top=Target.TopIfTarget.ValueThenMe.Calendarl.Value=Target.ValueElseMe.Calendar

3、l.Value=Now()EndIfMe.Calendarl.Visible=TrueElseMe.Calendarl.Visible=FalseEndIfEndSubPrivateSubCalendar1_Click()ActiveCell=Calendarl.ValueMe.Calendarl.Visible=FalseEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)此处的 1 为你要显示日历的列序号IfSelection.Rows.Count=1AndSelection.Columns.Count=1AndTarg

4、et.Column=1ThenMe.Calendar1.Left=Target.LeftMe.Calendar1.Top=Target.TopIfTarget.ValueThenMe.Calendar1.Value=Target.ValueElseMe.Calendar1.Value=Now()EndIfMe.Calendar1.Visible=TrueElseMe.Calendar1.Visible=FalseEndIfEndSubMscomct2.zipMSCAL.rarDIE|F62008三月xS三|200TT闾工情IOB国iil三国喜同岛口也寓雨1同工ES 234567S9101711

5、1213141515IS19202122232425262723293Q313T29Fab200303Msr200303Mar20001Hu与购Xin29Feb2CO303Mar200S03Mar200SUHaiXin1-配工uua29Feb200329Feb200803M郎30082008三月|三月，网二J星期日 星期一 星期二星期三周做用工商差而二42729134561Sj这个很简单啊，因为你这台电脑没有安装日历控件下一个或者拷贝一个注册就行了1 .下载或者拷贝日历控件 12.0,或者日历控件 11.0 等等下载地址：MSCAL.rar(50.41KB)从别的电脑拷贝：路径如下C:ProgramFilesMicrosoftOfficeOFFICE11MSCAL.OCX或者 C:ProgramFilesMicrosoftOfficeOFFICE12MSCAL.OCX2 .拷贝该控件到没有安装的电脑C:WINDOWSs