翻新时间:2013-12-14
VBA在限定Excel工作表用户按钮中的应用
摘 要 通过研究VBE及其下层对象的访问方法,本文详细地探讨了按钮过程的代码控制技术,从而实现了Excel测试软件中工作表用户按钮的执行限定。
关键词 按钮过程 VBE 下层对象 代码限定
1 引言
作为一个优秀的表格处理软件和系统开发平台,Excel拥有许多无可替代的优势。基于Excel环境开发的管理信息系统,具有操作直观性强、开发周期短的特点,因此形成了熟悉Excel操作的广大用户。为了保证开发系统的正常渠道流通及著作者利益,必须保护系统的使用权限,本文通过VBA的开发应用,提出了一种Excel工作表用户按钮的限定方法,以此来完善其系统测试软件的功能。
2 限定按钮执行及其对应过程代码
限定工作表用户按钮的执行包括两个方面的含义,即限定其按钮对象的显示及其指定宏过程代码的有效性,两者结合在一起加以实现,才能起到既展现软件功能,又真正限制其过分执行操作的作用,从而体现对用户软件的测试目的。
2.1 查找按钮执行过程代码
限定按钮对象及其执行代码,首要的问题便是获得其对应的执行代码过程名,并在当前工程的所有代码模块中查找其代码位置。
实践表明,按钮对象与图形图像和艺术字体一样,都属于Shape形状对象,它们都有其对应的OnAction属性,代表其被指定的宏过程代码名称。需要指出的是窗体类型按钮对应的宏过程代码一般位于工程的标准模块中,而ActiveX按钮过程代码则位于工作表代码模块中,且其对应的正确执行过程名为其按钮名与相应的事件名的连接串。为了查找某个按钮对应的过程代码,需要对VBE(Visual Basic 编辑器)的下层对象VBComponents进行搜索。VBComponents对象代表VBE编辑器下的各个代码模块VBComponent。通过对某一VBComponent的下一层对象CodeModule的相关属性的访问,可以获得诸如模块代码总行数等信息,也可以通过其Find方法查找指定内容的代码行。下面即为查找按钮过程、处理按钮过程代码的算法代码。
SheetsCount = ActiveWorkbook.Worksheets.Count
'对所有工作表中的所有按钮对象循环
For i = 1 To SheetsCount
Set MySheet = Worksheets(i)
MySheet.Activate
For Each sh In MySheet.Shapes
sh.Visible = True
sh.Select
'取得选定对象所对应的过程名
MyProname = sh.OnAction
'对于ActiveX按钮,则只取得其onClick事件过程名
If sh.Type = msoOLEControlObject Then
MyProname = sh.Name
下载文档
网友最新关注
- 和邻居一起打羽毛球
- 三八节,我给外婆送份礼
- 美丽的洪泽湖
- 读《南瓜房子》有感
- 可爱的我
- 妈妈生病了
- 妈妈病了
- 家有喜事
- 我想去大海边看看
- 爱护花草树木
- 第一篇日记
- 我们去春游
- 胖乎乎的小手
- 春雨
- 游莲花湖
- 在职训练测验成绩表
- 致医院主任的感谢信
- 给全体客户的感谢信
- 各年度损益比较表
- 家长写给老师的感谢信范文
- 大三班家长的感谢信
- 实存帐存对比表
- 年度训练计划汇总表
- 盘存表
- 捐资建校感谢信
- 受助学生给学校的感谢信
- 损益平衡计算表
- 给医生及护士的感谢信
- 盘点盈亏报告表
- 物料耗用总表
- 从《十七岁的单车》看新生代导演
- 从产业特征看韩国电影振兴
- 世纪转折时期的历史见证 ----论90年代中国的影视文化
- 小波转换影像压缩模式之研究
- 简析电影作品的文化阐释价值
- 电影剧作模式论
- 中国电影与全球化趋势碰撞
- 聋人题材电影中的文化意义
- 国际化语境中的中国大陆电影(上)
- 剧作家的责任
- 位置·策略·前景--对中国电影跨世纪发展的一点感想
- 亚洲四大后现代电影大师
- 关于中国电影导演群体研究
- 论“第六代”电影中的保守倾向
- 电影小品练习:磨刀不误砍柴功
- 《失物招领》教学设计四
- 《美丽的小路》教后体会
- 《美丽的小路》教学设计六
- 《失物招领》教学设计五
- 《失物招领》教学设计一
- 《古诗两首》(所见/小池)教学设计四
- 《美丽的小路》文本解读
- 《美丽的小路》教学设计及理念
- 《美丽的小路》教学设计A、B案
- 《美丽的小路》实践课设计
- 《松鼠和松果》教学设计四
- 《美丽的小路》第三课时教学设计
- 《美丽的小路》教学片断赏析二
- 《美丽的小路》教学设计一
- 《失物招领》教学设计六