excel表格插入日历控件

《excel表格插入日历控件》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、Excel 2007中日历控件使用 1. 先需下载并注册安装Excel2007的日期控件文件MSCAL.OCX。在Microsoft网站或internet上下载日历控件文件MSCAL.OCX（不同版本Office有不同的日历控件文件），保存到C:WindowsSystem32文件夹中，打开CMD窗口，输入命令“Regsvr32mscal.ocx”后显示注册成功。2. 在Excel中显示“开发工具”菜单栏。3.     点击“插入”的“其他控件”。4.     浏览到最底部看到注册安装的日历控件，点击“确定”

2、。5.     在VB编辑器中输入如下的代码（如图所示）：********************************PrivateSubCalendar2_Click()ActiveCell=Calendar2.ValueMe.Calendar2.Visible=FalseEndSub PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfTarget.Column=6Then'D列为日期输入列，只对应excel的字母列，例如D对应4，'G对应7

3、，不是实际的显示列对应的数字Calendar2.Left=Target.Left+Target.Width'设置日历控件弹出后的位置Calendar2.Top=Target.Top+Target.Height'同上Calendar2.Value=Date'设置默认日期为系统日期Calendar2.Visible=True'使日历控件可见ElseIfTarget.Column=6Then'F列为日期输入列Calendar2.Left=Target.Left+Target.WidthCalendar2.Top=Ta

4、rget.Top+Target.HeightCalendar2.Value=DateCalendar2.Visible=TrueElseCalendar2.Visible=False'单击其他列时隐藏日历控件EndIfEndSub********************************6.     点击“保存”，选择“Excel启用宏”的格式文件进行保存。7.     打开EXCEL文件，运行原来的宏，有可能出现“宏”被禁止运行的提示，解决的方法如下：在EXCEL操作中执行“工具”→“宏”→“安全性”中

5、修改宏打开的安全级别。