Excel的InputBox方法中有缺陷部分的替代解决方案

第３０卷第３期　

计算机应用与软件　

Ｖｏ１．３０　Ｎｏ．３　

２０１３年３月　

Ｃｏｍｐｕｔｅｒ　Ａｐｐｌｉｃａｔｉｏｎｓ　ａｎｄ　Ｓｏｆｔｗａｒｅ　

Ｍａｒ．２０１３　

Ｅｘｃｅｌ的ＩｎｐｕｔＢｏｘ方法中有缺陷部分的替代解决方案　

孔令旗　吴允波　张琛　

（焦作师范高等专科学校计算机与信息工程系河南焦作４５４０００）　

（焦作师范高等专科学校现代教育技术中心河南焦作４５４０００）　

摘要　运用Ｅｘｃｅｌ　２００３中自定义函数、用户窗体与事件处理的“并发”运行和数据传递技术，设计一个ＶＢＡ宏程序，它满足了在　

任何条件下都能返回用户选定区域引用的ＶＢＡ编程需求。设计该宏的目的是为了替代Ｅｘｃｅｌ　２００３　Ａｐｐｌｉｃａｔｉｏｎ．ＩｎｐｕｔＢｏｘ方法中有缺　

陷的部分。程序亦能运行在提供ＶＢＡ环境、但缺少交互式选择区域方法的ｗＰｓ　２０１２专业增强版上。　

关键词　Ｅｘｃｅｌ软件缺陷　ＶＢＡ方法　事件处理　区域宏　

中图分类号ＴＰ３９１．１３　文献标识码Ａ　ＤＯＩ：１０．３９６９／ｊ．ｉｓｓｎ．１０００・３８６ｘ．２０１３．０３．０８４　

ＡＮ　ＡＬＴＥＲＮＡＴＩＶＥ　ＳｏＬＵＴＩｏＮ　ＦｏＲ　ＤＥＦＥＣＴＩＶＥ　ＰＡＲＴ　ＯＦ　

ＩＮＰＵＴＢＯＸ　ＭＥＴＨｏＤ　ＩＮ　ＥＸＣＥＬ　

Ｋｏｎｇ　Ｌｉｎｇｑｉ　Ｗｕ　Ｙｕｎｂｏ　Ｚｈａｎｇ　Ｃｈｅｎ　

（Ｄｅｐａｒｔｍｅｎｔ　ｏｆＣｏｍｐｕｔｅｒ　ａｎｄ　Ｉｎｆｏｒｍａｔｉｏｎ　Ｅｎｇｉｎｅｅｒｉｎｇ，Ｊｉｏｎｚｕｏ　Ｔｅａｃｈｅｒｓ　Ｃｏｌｌｅｇｅ，Ｊｉａｏｚｕｏ　４５４０００，Ｈｅｎａｎ，Ｃｈｉｎａ）　

。（Ｍｏｄｅｒｎ　Ｅｄｕｃａｔｉｏｎ　Ｔｅｃｈｎｏｌｏｇｙ　Ｃｅｎｔｅｒ，Ｊｉｏｎｚｕｏ　Ｔｅａｃｈｅｒｓ　Ｃｏｌｌｅｇｅ，Ｊｉｏｎｚｎｏ　４５４０００，Ｈｅｎａｎ，Ｃｈｉｎａ）　

Ａｂｓｔｒａｃｔ　Ｕｓｉｎｇ　ｔｈｅ　ｔｅｃｈｎｉｑｕｅｓ　ｏｆ“ｃｏｎｃｕｒｒｅｎｔ’’ｅｘｅｃｕｔｉｏｎ　ｏｆ　ｕｓｅｒ－ｄｅｆｉｎｅｄ　ｆｕｎｃｔｉｏｎｓ，ＵｓｅｒＦｏｒｍｓ　ａｎｄ　ｅｖｅｎｔｓ　ｈａｎｄｌｉｎｇ　ａｓ　ｗｅｌｌ　ａｓ　ｄａｔａ　

ｔｒａｎｓｆｅｒ　ｉｎ　Ｅｘｃｅｌ　２００３，ｗｅ　ｄｅｓｉｇｎ　ａ　ＶＢＡ（Ｖｉｓｕａｌ　Ｂａｓｉｃ　ｆｏｒ　Ａｐｐｌｉｃａｔｉｏｎｓ）ｍａｃｒｏ，ｗｈｉｃｈ　ｍｅｅｔｓ　ｔｈｅ　ｐｒｏｇｒａｍｍｉｎｇ　ｒｅｑｕｉｒｅｍｅｎｔ　ｏｆ　ＶＢＡ　ｔｈａｔ　ｉｔ　

ｃａｎ　ｒｅｔｕｒｎ　ｔｏ　ｃｉｔａｔｉｏｎ　ｏｆ　ｕｓｅｒ—ｓｅｌｅｃｔｅｄ　ｒａｎｇｅ　ｉｎ　ａｎｙ　ｃｏｎｄｉｔｉｏｎ．Ｔｈｅ　ｐｕｒｐｏｓｅ　ｏｆ　ｄｅｓｉｇｎｉｎｇ　ｔｈｅ　ｍａｃｒｏ　ｉｓ　ｔｏ　ｒｅｐｌａｃｅ　ｔｈｅ　ｄｅｆｅｃｔｉｖｅ　ｐａｒｔ　ｉｎ　Ａｐｐｌｉｃａｔｉｏｎ　

ＩｎｐｕｔＢｏｘ　ｍｅｔｈｏｄ　ｏｆ　Ｅｘｃｅｌ　２００３．Ａｎｄ　ｉｔ　ｃａｎ　ａｌｓｏ　ｒｕｎ　ｏｎ　ＷＰＳ　２０１２　ｐｒｏｆｅｓｓｉｏｎａｌ　ｐｌｕｓ　ｖｅｒｓｉｏｎ　ｗｈｉｃｈ　ｐｒｏｖｉｄｉｎｇ　ＶＢＡ　ｅｎｖｉｒｏｎｍｅｎｔ　ｂｕｔ　ｌａｃｋｉｎｇ　ａ　

ｍｅｔｈｏｄ　ｆｏｒ　ｉｎｔｅｒａｃｔｉｖｅ　ｓｅｌｅｃｔｉｏｎ　ｏｆ　ａ　ｒａｎｇｅ．　

Ｋｅｙｗｏｒｄｓ　Ｅｘｃｅｌ　Ｓｏｆｔｗａｒｅ　ｄｅｆｅｃｔ　ＶＢＡ　Ｍｅｔｈｏｄ　Ｅｖｅｎｔｓ　ｈａｎｄｌｉｎｇ　Ｒａｎｇｅ　Ｍａｃｒｏ　

法　为程序设计中人机交互功能的实现提供了语言级支持。　

０引　言　

当ＩｎｐｕｔＢｏｘ方法的Ｔｙｐｅ参数取值８时，可让用户用鼠标拖动或　

键盘输入方式确定选定区域，并返回该区域的引用。遗憾的是　

Ｅｘｃｅｌ是微软办公软件Ｍｉｃｒｏｓｏｆｔ　Ｏｆｉｆｃｅ的组件之一，它可以　

在Ｔｙｐｅ参数取值８时，ＩｎｐｕｔＢｏｘ方法存在软件缺陷　。经过反　

进行各种数据的处理、统计分析和辅助决策操作，广泛应用于管　

复试验发现，当选择的区域符合下列条件之一时：　

理、统计、财经、金融等领域。尽管Ｅｘｃｅｌ已从２００３先后升级到　

１）区域中的单元格有逻辑运算公式的条件格式；　

２００７和２０１０，但由于用户使用习惯、软件购置成本，以及信息技　

２）区域毗邻的单元格有逻辑运算公式的条件格式。　

术应用教育内容一般相对滞后等因素，Ｅｘｃｅｌ　２００３还有相当广　

ＩｎｐｕｔＢｏｘ方法极有可能出现程序运行错误。尽管该软件缺　

泛的用户群。　

陷在２００３以后的版本中已得到了修复，但它还是困扰着Ｅｘｃｅｌ　

１９９４年发行的Ｅｘｃｅｌ　５．０版本即具备了ＶＢＡ的宏功能。　

２００３的ＶＢＡ开发应用人员。　

ＶＢＡ基于Ｖｉｓｕａｌ　Ｂａｓｉｃ　ｆｏｒ　Ｗｉｎｄｏｗｓ发展而来，它提供了面向对　

使用扩展了ＶＢＡ功能的ＷＰＳ　２０１２专业增强版时，发现它　

象的程序设计机制和一种完整的程序设计语言。ＶＢＡ可以使　

不支持Ａｐｐｌｉａｃａｔｉｏｎ．ＩｎｐｕｔＢｏｘ方法，即ＷＰＳ　２０１２缺少了在ＶＢＡ　

用宏记录器记录用户的各种操作，将其转换为ＶＢＡ程序，易于　环境下采用交互方式选定区域的语言级功能，这也在一定程度　

学习掌握。ＶＢＡ程序的开发与应用有助于数据处理工作的自　上影响了国产优秀软件ＷＰＳ的深度应用。　

动化。　

针对上述问题，本文给出了一个替代Ａｐｐｌｉｃａｔｉｏｎ．ＩｎｐｕｔＢｏｘ　

区域（Ｒａｎｇｅ）是Ｅｘｃｅｌ操作中使用最为频繁的对象之一。　

方法中有软件缺陷部分的ＶＢＡ编程解决方案。　

进行ＶＢＡ程序设计开发时，“先获取用户选定区域，再对区域内　

对象进行处理”的流程模式，贯彻了“以用户为中心设计和评　

收稿日期：２０１２—０４—２４。孔令旗，副教授，主研领域：数据库，数据　

估”的基本原则…。Ｅｘｃｅｌ中Ａｐｐｌｉａｃａｔｉｏｎ对象的ＩｎｐｕｔＢｏｘ方　

挖掘。吴允波，讲师。张琛，讲师。　

３２０　计算机应用与软件　２０１３生　

１技术方案　

１．１　Ｅｘｃｅｌ对象模型简述　

ＶＢＡ环境下，Ｅｘｃｅｌ是由不同类型的对象组构成的应用程　

序体，同一类型的对象组成一个对象集合，不同类型的对象、对　

象集合又按层次结构进行组织。每一种类型的对象都拥有自己　

的属性与方法。当对象能主动响应外部发生的随机变化时，该　

对象类型还拥有事件。Ｅｘｃｅｌ内建对象的方法代码由Ｅｘｃｅｌ本　

身提供　ＶＢＡ程序只能调用；而事件处理代码则由有事件捕获　

需要的用户自行设计，事件处理代码的程序框架规范由Ｅｘｃｅｌ　

定义。　

Ｅｘｃｅｌ的Ｗｏｒｋｂｏｏｋ对象代表打开的一个工作簿，它是　

Ｗｏｒｋｂｏｏｋｓ集合的成员。Ｗｏｒｋｂｏｏｋｓ集合包含当前打开的所有　

工作簿的Ｗｏｒｋｂｏｏｋ对象实例。ｓｈｅｅｔｓｅ１ｅｃｔｉ０ｎｃｈａｎｇｅ事件是　

Ｗｏｒｋｂｏｏｋ对象众多事件中的一个　。当任一工作表上的选定　

区域发生变化时，都将触发该事件。Ｅｘｃｅｌ的下级对象定义的事　

件有时在上级对象中也有定义。例如Ａｐｐｌｉｃａｔｉｏｎ是Ｗｏｒｋｂｏｏｋ　

的上级对象，其中也定义了和Ｗｏｒｋｂｏｏｋ一样的ＳｈｅｅｔＳｅｌｅｃｔｉｏｎ．　

Ｃｈａｎｇｅ事件。下面的示例用Ｗｏｒｋｂｏｏｋ的ｓｈｅｅｔｓｅｌｅｃｔｉ０ｎｃｈａｎｇｅ　

事件处理代码，在状态栏上显示选定区域所在的工作表名称及　

选定区域地址。　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｗｏｒｋｂｏｏｋ

图１　程序模块间的信息与控制流　

实线表示数据流；虚线表示控制流　

２程序设计　

Ｅｘｃｅｌ的对象模型与ＷＰＳ　ＥＴ（电子表格）的对象模型存在　

差异。为了保证所设计的代码在两个系统下都能正常运行，代　

码设计时选择二者都支持的对象、属性、方法和事件。　

２．１　Ｇｌｏｂａｌ变量设计　

在ＶＢＡＰｒｏｊｅｃｔ的模块夹中创建“模块１”，在其内设计两个　

Ｇｌｏｂａｌ变量：　

Ｇｌｏｂａｌ　ｒｎｇＳｅｌｅｃｔｅｄ　Ａｓ　Ｒａｎｇｅ　

Ｇｌｏｂａｌ　ｂｌｎＦｏｒｍＲｕｎｎｉｎｇ　Ａｓ　Ｂｏｏｌｅａｎ　

ＳｈｅｅｔＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ（一　

ＢｙＶａｌ　Ｓｈ　Ａｓ　Ｏｂｊｅｃｔ，ＢｙＶａｌ　Ｔａｒｇｅｔ　Ａｓ　Ｅｘｃｅ１．Ｒａｎｇｅ）　

Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｔｕｓＢａｒ：Ｓｈ．Ｎａｍｅ＆”：　＆Ｔａｒｇｅｔ．Ａｄｄｒｅｓｓ　

Ｅｎｄ　Ｓｕｂ　

在Ｅｘｃｅｌ对象模型中，Ａｐｐｌｉｃａｔｉｏｎ位于所有对象的顶部，代　

表启动的Ｅｘｃｅｌ应用。Ｅｘｃｅｌ运行期间，Ｗｏｒｋｂｏｏｋｓ对象实例的　

多寡依赖于打开工作簿的个数，但Ａｐｐｌｉｃａｔｉｏｎ对象实例有且仅　

有一个。　

。　

Ｒａｎｇｅ型变量ｒｎｇＳｅｌｅｃｔｅｄ存储选定区域的引用；Ｂｏｏｌｅａｎ型　

变量ｂｌｎＦｏｒｍＲｕｎｎｉｎｇ供ＵＤＦ检测ＵｓｅｒＦｏｒｍ是否关闭（判断用　

户是否完成区域选定）。ＵＤＦ启动ＵｓｅｒＦｏｒｍ时将其置为Ｔｒｕｅ，　

ＵｓｅｒＦｏｒｍ关闭时将该变量置为Ｆａｌｓｅ。　

１．２方案目标与思路　

本方案的目标是设计一个用户自定义函数ＵＤＦ（Ｕｓｅｒ　Ｄｅ—　

ｉｆｎｅｄ　Ｆｌａｎｃｔｉｏｎ），它能接受在工作簿的任一个工作表中用鼠标拖　

动或键盘输入确定的一个或多个区域，并返回这些区域所对应　

的一个Ｒａｎｇｅ对象的引用。程序既能在Ｅｘｃｅｌ　２００３及后续版本　

上运行，也能在扩展了ＶＢＡ后的ｗＰＳ　２０１２上运行。　

解决问题的基本思路是运用ＵＤＦ、ＵｓｅｒＦｏｒｍ（用户窗体）、　

Ｗｏｒｋｂｏｏｋ对象的ＳｈｅｅｔＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ事件处理的“并发”执行　

２．２　ＵｓｅｒＦｏｒｍ设计　

ＵｓｅｒＦｏｒｍ的名称为ＩｎｐｕｔＲａｎｇｅＦｏｒｍ，在ＶＢＡＰｒ￣ｅｃｔ的“用户　

窗体”夹中创建。窗体内有提示信息标签控件ＰｒｏｍｐｔＬａｂｅｌ，文　

本框控件ＡｄｄｒｅｓｓＴｅｘｔＢｏｘ，确定按钮ＣｏｎｆｉｒｍＢｕｔｔｏｎ，取消按钮　

ＣａｎｃｅｌＢｕｔｔｏｎ。ＣｏｎｆｉｒｍＢｕｔｔｏｎ按钮的Ｃｌｉｃｋ事件代码设计如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＣｏｎｆｉｒｍＢｕｔｔｏｎ

—

Ｃｌｉｃｋ（）　

Ｔｈｅｎ　Ｉｆ　ＡｄｄｒｅｓｓＴｅｘｔＢｏｘ．Ｔｅｘｔ＝　

ＭｓｇＢｏｘ咻未选择区域！　

Ｅｌｓｅ　文本框有非空字符串　

捕获文本框键盘输入区域地址错误　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ＥｒｒｏｒＨａｎｄｌｅｒ　

和数据传递技术，实现交互式选定区域的功能。细化的逻辑设　

计如下：　

设计一个ＵｓｅｒＦｏｒｍ，ＵｓｅｒＦｏｒｍ中的文本框控件接受用户输　

入或鼠标选择的区域地址；用户用鼠标选择区域时，通过Ｗｏｒｋ—　

ｂｏｏｋ对象的ＳｈｅｅｔｓｅｌｅｃｔｉｏｎＣｈａｎｇｅ事件处理，把用户选定区域的　

Ｓｅｔ　ｍｇＳｅｌｅｃｔｅｄ：Ｒａｎｇｅ（ＡｄｄｒｅｓｓＴｅｘｔＢｏｘ．Ｔｅｘｔ）　

改变状态变量　

ｂｌｎＦｏｒｍＲｕｎｎｉｎｇ＝Ｆａｌｓｅ　

地址置入ＵｓｅｒＦｏｒｍ中的文本框。　

由于ＵｓｅｒＦｏｒｍ运行时不能直接向ＵＤＦ传递数据，需要用　

Ｇｌｏｂａｌ（全局）变量作为数据交换缓冲，实现它们之问的数据交　

换。当ＵｓｅｒＦｏｒｍ关闭时，ＵｓｅｒＦｏｒｍ的退出事件处理将地址指向　

的Ｒａｎｇｅ对象引用写入Ｇｌｏｂａｌ变量；ＵＤＦ检测到ＵｓｅｒＦｏｒｍ关闭　

后，从Ｇｌｏｂａｌ变量中获取Ｒａｎｇｅ引用，再予以返回。　

卸载ＵｓｅｒＦｏｒｍ　

Ｕｎｌｏａｄ　Ｍｅ　

Ｅｘｉｔ　Ｓｕｂ　

ＥｒｒｏｒＨａｎｄｌｅｒ：　

Ｍｓ￣ｏｘ愉人的区域地址有错误！　

ＥｎｄＩｆ　

Ｅｎｄ　Ｓｕｂ　

方案中ＵＤＦ、ＵｓｅｒＦｏｒｍ、Ｗｏｒｋｂｏｏｋ及用户四者间的信息流　

和控制流参见图１。　

ＣａｎｃｅｌＢｕｔｔｏｎ按钮的Ｃｌｉｃｋ事件处理完成的操作有：置变量　

ｍｇＳｅｌｅｃｔｅｄ为Ｎｏｔｈｉｎｇ，变量ｂｌｎＦｏｒｍＲｕｎｎｉｎｇ为Ｆａｌｓｅ，卸载　

第３期　

ＵｓｅｒＦｏｒｍ。　

孔令旗等：Ｅｘｃｅｌ的ＩｎｐｕｔＢｏｘ方法中有缺陷部分的替代解决方案　

Ｏｐｔｉｏｎａｌ　ＢｙＶａｌ　Ｐｒｏｍｐｔ　Ａｓ　Ｓｔｉｒｎｇ）Ａｓ　Ｒａｎｇｅ　

３２１　

当ＵｓｅｒＦｏｒｍ通过标题栏的关闭按钮关闭时，需要对　

ＵｓｅｒＦｏｒｍ的ＱｕｅｒｙＣｌｏｓｅ事件处理进行编码，当ＵｓｅｒＦｏｒｍ的　

ＣｌｏｓｅＭｏｄｅ属性不等于１时，设置ｒｎｇＳｅｌｅｃｔｅｄ为Ｎｏｔｈｉｎｇ，ｂｌｎ—　

以无模式方式显示用户窗体　

ＩｎｐｕｔＲａｎｇｅＦｏｒｍ．Ｓｈｏｗ　０　

设置ＵｓｅｒＦｏｒｍ的标题　

ＦｏｒｍＲｕｎｎｉｎｇ为Ｆａｌｓｅ。代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＵｓｅｒＦｏｒｍ

—

ＱｕｅｒｙＣｌｏｓｅ（Ｃａｎｃｅｌ　Ａｓ　Ｉｎｔｅｇｅｒ，一　

ＣｌｏｓｅＭｏｄｅ　Ａｓ　Ｉｎｔｅｇｅｒ）　

ｉｆ　ＣｌｏｓｅＭｏｄｅ＜＞ｌ　Ｔｈｅｎ　

Ｓｅｔ　ｒｎｇＳｅｌｅｃｔｅｄ＝Ｎｏｔｈｉｎｇ　

ｂｌｎＦｏｒｍＲｕｎｎｉｎｇ　Ｆａｌｓｅ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｓｕｂ　

ＵｓｅｒＦｏｒｍ的Ｉｎｉｔｉａｌｉｚｅ事件处理将对ＡｄｄｒｅｓｓＴｅｘｔＢｏｘ文本框　

控件的Ｔｅｘｔ属性进行初始化，其值置为Ａｐｐｌｉｃａｔｉｏｎ．Ｓｅｌｅｃｔｉｏｎ．　

Ａｄｄｒｅｓｓ。代码为：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＵｓｅｒＦｏｒｍ

—

Ｉｎｉｔｉａｌｉｚｅ（）　

ＡｄｄｒｅｓｓＴｅｘｔＢｏｘ．Ｔｅｘｔ＝Ａｐｐｌｉｃａｔｉｏｎ．Ｓｅｌｅｃｔｉｏｎ．Ａｄｄｒｅｓｓ　

Ｅｎｄ　Ｓｕｂ　

２．３　ＳｈｅｅｔＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ事件代码设计　

Ｗｏｒｋｂｏｏｋ对象的ＳｈｅｅｔＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ事件处理代码比较　

简单，处理逻辑为当ＩｎｐｕｔＲａｎｇｅＦｏｒｍ窗体对象存在时，进行数据　

的推送。即将事件处理过程参数Ｔａｒｇｅｔ所携带区域引用的地址　

值置入ＩｎｐｕｔＲａｎｇｅＦｏｒｍ中ＡｄｄｒｅｓｓＴｅｘｔＢｏｘ控件的Ｔｅｘｔ属性。事　

件处理代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｗｏｒｋｂｏｏｋ　

．

ＳｈｅｅｔＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ（——　

ＢｙＶａｌ　Ｓｈ　Ａｓ　Ｏｂｊｅｃｔ，ＢｙＶａｌ　Ｔａｒｇｅｔ　Ａｓ．Ｒａｎｇｅ）　

Ｉｆ　Ｎｏｔ　ＩｎｐｕｔＲａｎｇｅＦｏｒｍ　ｉｓ　Ｎｏｔｈｉｎｇ　Ｔｈｅｎ　

ＩｎｐｕｔＲａｎｇｅＦｏｒｍ．ＡｄｄｒｅｓｓＴｅｘｔＢｏｘ．Ｔｅｘｔ＝

一　

Ｔａｒｇｅｔ．Ａｄｄｒｅｓｓ　

ＥｎｄＩｆ　

Ｅｎｄ　Ｓｕｂ　

此处的代码放在“ＴｈｉｓＷｏｒｋＢｏｏｋ”夹中。　

２．４　ＵＤＦ设计　

设计的ＵＤＦ函数名为ＩｎｐｕｔＲａｎｇｅ，它有两个可选参数，其值　

分别作为ＵｓｅｒＦｏｒｍ的标题和提示信息。函数返回值类型为　

Ｒａｎｇｅ引用。　

由图１可以看出，本方案须使ＵＤＦ、ＵｓｅｒＦｏｒｍ和ＷｏｒｋＢｏｏｋ　

事件处理等三个模块“并发”运行。在程序设计初期，本以为　

ＵｓｅｒＦｏｒｍ无模式显示（目的是让用户能对工作表实施操作）后，　

ＵＤＦ等待ＵｓｅｒＦｏｒｍ关闭，同时用户应该可以对ＵｓｅｒＦｏｒｍ和工　

作表进行操作。但真实情况是ＵＤＦ进入了查询循环后，独占了　

临界资源——ｃＰｕ资源和变量ｂｌｎＦｏｒｍＲｕｎｎｉｎｇ资源，使该变量　

的值永远保持为Ｔｒｕｅ，发生了死锁　。　

解决死锁的关键是在ＵＤＦ查询循环后，能让ＵｓｅｒＦｏｒｍ和　

事件处理过程能获得ＣＰＵ资源的使用权。查阅了ＶＢＡ有关资　

料后发现，ＶＢＡ函数库中提供了一个ＤｏＥｖｅｎｔｓ函数。该函数执　

行时将控制传递给操作系统，操作系统处理完事件队列中所有　

事件和ＳｅｎｄＫｅｙｓ队列的所有键后，将控制返回到调用ＤｏＥｖｅｎｔｓ　

的进程中　ｊ。于是在ＵＤＦ的状态查询的循环体内，加入Ｄｏ－　

Ｅｖｅｎｔｓ库函数的调用，使系统有机会处理事件和键盘输入，进而　

使ｂｌｎＦｏｒｍＲｕｎｎｉｎｇ有被改变的机会，死锁问题迎刃而解。　

下面是ＵＤＦ代码。程序中已进行了注释，此处不再说明。　

这里的代码存放在“模块１”内。　

Ｆｕｎｃｔｉｏｎ　ＩｎｐｕｔＲａｎｇｅ（Ｏｐｔｉｏｎａｌ　ＢｙＶａｌ　Ｔｉｔｌｅ　Ａｓ　Ｓｔｉｒｎｇ，—．　

ＩｆＴｉｔｌｅ＝　”Ｔｈｅｎ　

ＩｎｐｕｔＲａｎｇｅＦｏｒｍ．Ｃａｐｔｉｏｎ＝　选择区域　

Ｅｌｓｅ　

ＩｎｐｕｔＲａｎｇｅＦｏｒｍ．Ｃａｐｔｉｏｎ＝Ｔｉｔｌｅ　

Ｅｎｄ　Ｉｆ　

设置ＵｓｅｒＦｏｒｍ的信息提示　

Ｉｆ　Ｐｒｏｍｐｔ＝　Ｔｈｅｎ　

ＩｎｐｕｔＲａｎｇｅＦｏｒｍ．ＰｒｏｍｐｔＬａｂｅ１．Ｃａｐｔｉｏｎ＝

一　

请选择一个或多个区域”　

Ｅｌｓｅ　

ＩｎｐｕｔＲａｎｇｅＦｏｒｍ．ＰｒｅｍｐｔＬａｂｅ１．Ｃａｐｔｉｏｎ＝Ｐｒｏｍｐｔ　

ＥｎｄⅡ　

ｂｌｎＦｏｒｍＲｕｎｎｉｎｇ　Ｔｒｕｅ　

循环测试，等待ＵｓｅｒＦｏｒｍ关闭　

使事件处理代码有获得ＣＰＵ资源的机会　

Ｄｏ　Ｕｎｔｉｌ　Ｎｏｔ　ｂｌｎＦｏｒｍＲｕｎｎｉｎｇ　

ＤｏＥｖｅｎｔｓ　

Ｌｏｏｐ　

函数返回值置为用户选定区域的引用　

Ｓｅｔ　ＩｎｐｕｔＲａｎｇｅ＝ｒｎｇＳｅｌｅｃｔｅｄ

．　

Ｅｎｄｉｆ　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

２．５设计附注　

前面提及的“并发”运行的实现并非真正意义上的多进程　

或多线程并发运行，而是借助于事件随机触发性和ＵＤＦ主动出　

让ＣＰＵ资源占有权来实现的。宏观上就象ＵＤＦ、ＵｓｅｒＦｏｒｍ和　

ＷｏｒｋＢｏｏｋ的事件处理在并发运行一样。　

上述程序代码在Ｅｘｃｅｌ和ＷＰＳ　ＥＴ均可正常运行。实验时　

发现Ｅｘｃｅｌ和ＷＰＳ　ＥＴ在程序运行外观上还是存在细微的差异。　

对于Ｗｏｒｋｂｏｏｋ的Ｓｈｅｅｔｓｅ１ｅｃｔｉｏｎｃｈａｎｇｅ事件，在Ｅｘｃｅｌ运行上可　

理解为：“工作表选定区域改变后”；而ＷＰＳ　ＥＴ可理解为：“当　

工作表选定区域改变时”。　

３宏的封装与使用　

３．１加载宏概述　

一

个ＶＢＡ加载宏是一个Ｅｘｃｅｌ启动时可以自动加载的．ｘｌａ　

文件。一般而言，加载宏包含了一些Ｅｘｃｅｌ本身不具备的功能　

函数。创建加载宏是分发用户定义函数、提高软件重用性的一　

种有效途径。　

加载宏创建初期，它是一个工作簿（．ｘｌｓ）文件，用Ｖｉｓｕａｌ　

Ｂｉｓｉｃ可在其中创建ＵＤＦ，并进行调试。加载宏中的函数如果都　

不涉及对象的事件处理，只需进行一些简单处理后将工作簿另　

存为．ｘｌａ类型文件，就把工作簿文件封装成一个加载宏文件；如　

若不然，在封装前需要设计程序代码，将扩展了事件处理的对象　

与相应的对象实例关联起来　。　

ＶＢＡ提供了有ＷｉｔｈＥｖｅｎｔｓ选项的声明语句，用该选项声明　

的对象拥有了对象类型的事件处理机能。可以套用ＶＢＡ事件　

处理过程的框架来设计事件处理代码。有了事件处理代码的对　

象还是一个“虚对象”，它的事件处理过程代码不会受外界影响　

３２２　计算机应用与软件　２０１３丘　

而触发。虚对象和相同类型的对象实例建立关联后，虚对象的　复选框状态，再点击确定按钮来实现宏的加载或卸载。　

程序代码被“嫁接”到对象实例上，对象实例就拥有虚对象定义　

的事件处理功能。对象关联需要用“Ｓｅｔ虚对象＝对象实例”　

语句来实现。　

由于本加载宏内的自定义函数ＩｎｐｕｔＲａｎｇｅ返回Ｒａｎｇｅ对象　

的引用，故只适合在ＶＢＡ编程中调用。调用的语法格式为：　

Ｓｅｔ　ｒａｎｇｅＯｂｊｅｃｔ＝一　

Ａｐｐｌｉｃａｔｉｏｎ．Ｒｕｎ（　ＳｅｌｅｃｔＲａｎｇｅ．ｘｌａ！ＩｎｐｕｔＲａｎｇｅ”，一　

ＴｉｔｌｅＰａｒａ，ＰｒｏｍｐｔＰａｒａ）　

３．２封装策略与代码实现　

将本程序封装为加载宏的要求是只要Ｅｘｃｅｌ完成本宏的加　

载，Ｅｘｃｅｌ运行期间所有打开、新建或激活的工作簿都可以调用　

ＩｎｐｕｔＲａｎｇｅ函数。　

执行上述语句后，如果变量ｒａｎｇｅＯｂｊｅｃｔ　ｉｓ　Ｎｏｔｉｎｇ为Ｔｒｕｅ，表　

明用户没有选定区域；否则ｒａｎｇｅＯｂｊｅｃｔ为选定区域Ｒａｎｇｅ对象　

的引用。下面是Ｓｈｅｅｔ１的命令按钮的Ｃｌｉｃｋ事件代码。放在　

“Ｓｈｅｅｔｌ”夹中：　

２．３节中的代码扩展的是ＷｏｒｋＢｏｏｋ对象的事件处理，如果　

定义ＷｏｒｋＢｏｏｋ为虚对象，就意味着打开、新建或激活的工作簿事　

件发生时，都要进行对象关联操作，处理代码略显繁琐。由于　

Ａｐｐｌｉｃａｔｉｏｎ对象拥有和ＷｏｒｋＢｏｏｋ一样的ＳｈｅｅｔＳｅｌｅｅｔｉｏｎＣｈａｎｇｅ事　

件，而Ｅｘｃｅｌ启动后仅有一个Ａｐｐｌｉｃａｔｉｏｎ对象实例，事件处理编码　

就会变得非常简洁。所以这里定义一个Ａｐｐｌｉｃａｔｉｏｎ对象类型的　

变量ａｐｐ。ａｐｐ对象的ａｐｐ—ＳｈｅｅｔＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ事件处理将完成　

鼠标选定区域地址的推送。事件处理代码设计如下：　

声明具有事件处理能力的对象ａｐｐ　

Ｄｉｍ　ＷｉｔｈＥｖｅｎｔｓ　ａｐｐ　Ａｓ　Ａｐｐｌｉｃａｔｉｏｎ　

ａｐｐ对象的ｓｈｅｅｔｓｅｌｅｃｔｉｏｎｃｈａｎｇｅ事件处理过程　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ａｐｐ

—

ＳｈｅｅｔＳｅｌｅｃｔｉ０ｎｃｈａｎｇｅ（一　

ＢｙＶａｌ　Ｓｈ　Ａｓ　Ｏｂｊｅｃｔ，ＢｙＶａｌ　Ｔａｒｇｅｔ　Ａｓ　Ｒａｎｇｅ）　

Ｉｆ　Ｎｏｔ　ＩｎｐｕｔＲａｎｇｅＦｏｒｍ　Ｉｓ　Ｎｏｔｈｉｎｇ　Ｔｈｅｎ　

ＩｎｐｕｔＲａｎｇｅＦｏｒｍ．ＴｅｘｔＢｏｘ１．Ｔｅｘｔ＝Ｔａｒｇｅｔ．Ａｄｄｒｅｓｓ　

ＥｎｄＩｆ　

Ｅｎｄ　Ｓｕｂ　

上面的程序代码还未实现ａｐｐ虚对象与已经存在的对象实　

例Ａｐｐｌｉｃａｔｉｏｎ的关联。　

从Ｅｘｃｅｌ　２０００开始，它有一个内置的Ｗｏｒｋｂｏｏｋ—Ｏｐｅｎ事件，　

当工作簿文件打开时该事件仅会触发一次川。加载宏可认为是　

一

个特殊的工作簿文件，它被加载时Ｗｏｒｋｂｏｏｋ＿Ｏｐｅｎ事件也会触　

发一次。可在Ｗｏｒｋｂｏｏｋ＿Ｏｐｅｎ事件处理中进行一些初始化工作。　

对于本程序而言，初始化工作就是建立ａｐｐ虚对象与Ａｐｐｌｉｃａｔｉｏｎ　

对象实例的关联。Ｗｏｒｋｂｏｏｋ＿Ｏｐｅｎ事件处理代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｗｏｒｋｂｏｏｋ

Ｏｐｅｎ（）　

Ｓｅｔ　ａｐｐ＝Ａｐｐｌｉｃａｔｉｏｎ　

Ｅｎｄ　Ｓｕｂ　

本小节的代码放在“ＴｈｉｓＷｏｒｋＢｏｏｋ”夹中。　

３．３加载宏的创建与使用　

创建加载宏的过程是，启动Ｅｘｃｅｌ创建一个空工作簿文件，　

单击工具栏中的Ｖｉｓｕａｌ　Ｂａｓｉｃ按钮启动ＶＢＥ（Ｖｉｓｕａｌ　Ｂａｓｉｃ　Ｅｄｉ—　

ｔｏｒ）窗口，在ＶＢＥ中完成ＵｓｅｒＦｏｒｍ的界面设计和上述代码的录　

入；在ＶＢＥ的工程管理器窗口右击顶级的工程名称（ＶＢＡ—　

Ｐｒｏｊｅｃｔ），弹出快捷菜单，再点击“ＶＢＡＰｒｏｊｅｃｔ属性”菜单项后弹　

出属性对话框，在“通用”选项卡中的工程名称框中输入“交互　

式选定区域宏”，然后关闭属性对话框；点击工具栏上的保存按　

钮，关闭ＶＢＥ窗口；将该工作簿另存为ＳｅｌｅｃｔＲａｎｇｅ．ｘｌａ文件。　

Ｅｘｃｅｌ会将该加载宏放在约定的文件夹Ｃ：＼Ｄｏｃｕｍｅｎｔｓ　ａｎｄ　Ｓｅｔ－　

ｔｉｎｇｓ＼＜Ｕｓｅｒ　Ｎａｍｅ＞＼Ａｐｐｌｉｃａｔｉｏｎ　Ｄａｔａ＼Ｍｉｃｒｏｓｏｆｔ＼Ａｄｄ￣ｓ中。至　

此就完成了加载宏的创建。　

宏的加载与卸载通过Ｅｘｃｅｌ工具栏的“工具”按钮一“加载　

宏…”菜单项弹出的“加载宏”对话框完成。如果要加载的宏在　

对话框左边的列表框中未出现，点击浏览按钮找到要加载的宏　

文件，文件名就会出现在列表框中。改变列表框中加载项前的　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＣｏｍｍａｎｄＢｕｔｔｏｎｌ

～

Ｃｌｉｃｋ（）　

Ｄｉｍ　ｒＡｓ　Ｒａｎｇｅ　

Ｓｅｔ　ｒ：ＩｎｐｕｔＲａｎｇｅ（）　

Ｉｆ　Ｎｏｔ　ｒ　Ｉｓ　Ｎｏｔｈｉｎｇ　Ｔｈｅｎ　

￣／ｓｇＳｏｘ　选择的区域为：　＆Ｒｅｐｌａｃｅ（ｒ．Ａｄｄｒｅｓｓ，一　

ｓ”　…　

Ｅｌｓｅ　

ＭｓｇＢｏｘ　未选中区域　

ＥｎｄＩｆ　

Ｅｎｄ　ＳＵｂ　

４结语　

本文通过一个具体程序的设计，给出了在ＶＢＡ中实现　

ＵＤＦ、ＵｓｅｒＦｏｒｍ和事件处理如何“并发”运行，以及它们之间如　

何进行数据交换的技术方案。经验也表明，在进行Ｅｘｃｅｌ或　

ＷＰＳ的ＶＢＡ应用开发时，若ＵＤＦ运行的时间较长，但又不希望　

它的运行影响用户与系统的交互，编码中于适当时机调用Ｄｏ・　

Ｅｖｅｎｔｓ函数不失为一种好的选择。　

本程序在Ｅｘｃｅｌ　２００３、２００７和２０１０三个版本都进行了测　

试，均能正常运行。该程序完全可以替代Ｅｘｃｅｌ　２００３的Ａｐｐｌｉｃａ—　

ｔｉｏｎ．ＩｎｐｕｔＢｏｘ方法中Ｔｙｐｅ参数为８时的功能。本程序同时也使　

原本不支持Ａｐｐｌｉｃａｔｉｏｎ．ＩｎｐｕｔＢｏｘ方法的ＷＰＳ　２０１２专业增强版　

具有了交互式选定区域的ＶＢＡ功能。因为ＷＰＳ　２０１２还没有加　

载宏的功能，所以ＷＰＳ的ＶＢＡ程序设计人员可以使用第２节　

的程序代码。　

参考文献　

［１］董建明，傅利民，饶培伦．人机交互：以用户为中心的设计和评估　

［Ｍ］．２版．北京：清华大学出版社，２００７．　

［２］Ｍｉｃｒｏｓｏｆｔ．Ｍｉｃｒｏｓｏｆｔ　Ｅｘｃｅｌ　２００３　ｌａｎｇｕａｇｅ　ｒｅｆｅｒｅｎｃｅ［ＥＢ／ＯＬ］．［２０１２－　

２—１０］．ｈｔｔｐ：／／ｗｗｗ．ｍｉｃｒｏｓｏｆｔ．ｃｏｍ／ｄｏｗｎｌｏａｄ／ｅｎ／ｄｅｔａｉｌｓ．ａｓｐｘ？ｄｉｓ—　

ｐｌａ　ｙｌａｎｇ＝ｅｎ＆ｉｄ＝７２７３．　

［３］Ｐａｔｔｏｎ　Ｒ．软件测试［Ｍ］．周予滨，姚静，等译．北京：机械工业出版　

社，２００２．　

［４］汤小丹，梁红兵，哲风屏，等．计算机操作系统［Ｍ］．３版．西安：西　

安电子科技大学出版社，２００７．　

［５］Ｍｉｃｒｏｓｏｆｔ．ＤｏＥｖｅｎｔｓ　ｆｕｎｃｔｉｏｎ［ＥＢ／ＯＬ］．［２０１２－０２—１２］．ｈｔｔｐ：／／ｏｆｆｉｃｅ．　

ｍｉｃｒｏ　ｓｏｆｔ．ｃｏｍ／ｅｎ—ｕｓ／ａｃｃｅｓｓ－ｈｅｌｐ／ｄｏｅｖｅｎｔｓ－ｆｕｎｃｔｉｏｎ—ＨＡ００１２２８８２７．　

ａｓｐｘ・　

［６］Ｐｅａｒｓｏｎ　Ｃ．Ａｐｐｌｉｃａｔｉｏｎ　ｅｖｅｎｔｓ［ＥＢ／ＯＬ］．［２０１２－０２－１２］．ｈｔｔｐ：／／ｗｗｗ．　

ｃｐｅａｒ　ｓｏｎ．ｃｏｍ／ｅｘｃｅｌ／ａｐｐｅｖｅｎｔ．ａｓｐｘ．　

ｆ　７］Ｍｉｃｒｏｓｏｆｔ．Ｈｏｗ　ｔｏ　ｍａｋｅ　ａ　ｍａｃｒｏ　ｔｈａｔ　ａｕｔｏｍａｔｉｃａｌｌｙ　ｓｔａｒｔｓ　ｗｈｅｎ　ｙｏｕ　ｏｐｅｎ　

ａ　ｗｏｒｋｂｏｏｋ　ｉｎ　Ｅｘｃｅｌ　２０００［ＥＢ／ＯＬ］．［２０１２－０２－１２］．ｈｔｔｐ：／／ｓｕｐｐｏｒｔ．　

ｍｉｃｒｏｓｏｆｔ．ｃｏｍ／ｋｂ／２６５１１　３／ｅｎ．ＵＳ．