excel中實現(xiàn)日期選擇輸入(日歷控件)

1、excel 中實現(xiàn)日期選擇輸入（日歷控件）推薦第一種方法：首先這個控件需要一個名為 MSCOMCT2.O 颯空件文件，這個文件大家先在電腦里搜索一下，如果沒有的話就求助 baidu嘍.下載下來后把它復(fù)制到 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三月|三月，網(wǎng)二J星期日 星期一 星期二星期三周做用工商差而二42729134561Sj這個很簡單啊，因為你這臺電腦沒有安裝日歷控件下一個或者拷貝一個注冊就行了1 .下載或者拷貝日歷控件 12.0,或者日歷控件 11.0 等等下載地址：MSCAL.rar(50.41KB)從別的電腦拷貝：路徑如下C:ProgramFilesMicrosoftOfficeOFFICE11MSCAL.OCX或者 C:ProgramFilesMicrosoftOfficeOFFICE12MSCAL.OCX2 .拷貝該控件到?jīng)]有安裝的電腦C:WINDOWSs