excel表格插入日历控件

上传人:宝路 文档编号:2156731 上传时间:2017-07-20 格式:DOCX 页数:5 大小:327.04KB
返回 下载 相关 举报
excel表格插入日历控件_第1页
第1页 / 共5页
excel表格插入日历控件_第2页
第2页 / 共5页
excel表格插入日历控件_第3页
第3页 / 共5页
excel表格插入日历控件_第4页
第4页 / 共5页
excel表格插入日历控件_第5页
第5页 / 共5页
亲,该文档总共5页,全部预览完了,如果喜欢就下载吧!
资源描述

《excel表格插入日历控件》由会员分享,可在线阅读,更多相关《excel表格插入日历控件(5页珍藏版)》请在金锄头文库上搜索。

1、Excel 2007 中日历控件使用 1. 先需下载并注册安装 Excel 2007的日期控件文件 MSCAL.OCX。在 Microsoft网站或 internet上下载日历控件文件 MSCAL.OCX(不同版本 Office有不同的日历控件文件),保存到 C:WindowsSystem32文件夹中,打开 CMD窗口,输入命令“Regsvr32 mscal.ocx”后显示注册成功。2. 在 Excel中显示“开发工具”菜单栏。3. 点击“插入”的“其他控件”。4. 浏览到最底部看到注册安装的日历控件,点击“确定 ”。5. 在 VB 编辑器中输入如下的代码(如图所示):*Private Sub

2、 Calendar2_Click()ActiveCell = Calendar2.ValueMe.Calendar2.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 6 Then D 列为日期输入列,只对应 excel 的字母列,例如 D 对应 4,G 对应7,不是实际的显示列对应的数字Calendar2.Left = Target.Left + Target.Width 设置日历控件弹出后的位置Calendar2.Top = Target.

3、Top + Target.Height 同上Calendar2.Value = Date 设置默认日期为系统日期Calendar2.Visible = True 使日历控件可见ElseIf Target.Column = 6 Then F 列为日期输入列Calendar2.Left = Target.Left + Target.WidthCalendar2.Top = Target.Top + Target.HeightCalendar2.Value = DateCalendar2.Visible = TrueElseCalendar2.Visible = False 单击其他列时隐藏日历控件End IfEnd Sub*6. 点击 “保存” ,选择“Excel 启用宏”的格式文件进行保存。7. 打开 EXCEL 文件,运行原来的宏,有可能出现“宏”被禁止运行的提示,解决的方法如下:在EXCEL 操作中执行“工具”“宏”“安全性”中修改宏打开的安全级别。

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 中学教育 > 试题/考题

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号