翻新时间: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
下载文档
网友最新关注
- 《夏日里多变的阳光》
- 美丽的春天
- 四季姑娘
- 秋天的田野
- 秋天的色彩
- 秋天的色彩
- 多彩的秋天
- 哦,秋叶!
- 秋天的田野
- 秋天的色彩
- 秋妹妹的五彩水晶球
- 秋天的田野
- 秋天的树叶
- 观云
- 摘枣
- 对于物流管理创新人才栽培思索
- 分析物流管理课程教育的革新
- 分析经济责任审计质量控制的系统思考
- 上海企业管理,咨询服务
- 电子物流优势障碍及推动策略
- 搞垮企业的不是工人要求涨工资,而是管理层的高工资
- 基于民生审计导向的国家审计浅析
- 物流立法的问题及解决策略释解
- 浅议不合理工程签证的审计策略
- 试论小额贷款公司的特点和审计策略
- 分析炼钢天车物流体系创建思路
- 论物流管理体系设计与实践
- 审计理论研究课程教学模式改革探索
- 简述高校廉政审计的理论依据
- 对港口物流课程实践调查思索
- 《吃水不忘挖井人》教学设计1
- 《吃水不忘挖井人》教学设计5
- 《司马光》教学案例
- 《我们的画》教学设计
- 《吃水不忘挖井人》教学设计2
- 《司马光》教学设计三(1)
- 《吃水不忘挖井人》教学设计7
- 《四季》教学设计
- 《吃水不忘挖井人》教学设计8
- 《小小竹排画中游》教学设计
- 《司马光》教学设计二
- 《吃水不忘挖井人》教学设计4
- 《吃水不忘挖井人》教学设计6
- 《吃水不忘挖井人》教学设计3
- 《司马光》教学设计一