excel_vba_编程教程(完整版)-第75章

按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！


工或者列表框和集合里面列出的所有员工更新薪水。cmdUpdate_Click过程核实用户是否选择了适　
当的选项按钮，然后在文字框里输入增加数字。取决于你选择了哪个选项按钮，给某个员工或者所　
有员工更新的薪水量可以是按照百分比，也可以是按照某个固定的量。薪水的更改也会反映在工作　
表里。图11…15显示James　Nolan的薪水，以按百分之十增加了该薪水。在文字框里面输入负数，你　
可以按照特定的百分比或者量减少薪水。　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
图11…5　可以按照特定的百分比或者固定量增加或者减少员工的薪水　　
14。　选择“插入”｜“模块”在当前工程里插入一个标准模块，重命名该模块为WorkAndPay，输入　
　　　　下述过程来显示窗体Employees　and　Salaries：　　
　　　　　Sub　ClassDemo（　）　　　
　　　　　　　　　　Salaries。Show　　　
　　　　　End　Sub　　　
15。　运行过程ClassDemo，使用自定义类。　　
你可以点击窗体的背景并且按下F5，运行窗体Salaries，或者你也可以在工作表里放置一个按钮，　
并将过程ClassDemo指定给它（参见第十章，如何将按钮放在工作表里）。　　

15。观察　VBA　过程的执行　　

为了帮助你理解代码运行时会发生什么，以及你的自定义对象如何工作，我们来逐步运行过程　
cmdSave_Click。本练习也可以说是第十三章里将包括的调试技巧的简单介绍。　　
1。　　在工程浏览窗口，选择Salaries窗体，并点击窗口上面的查看代码按钮　　
2。　　出现Salaries代码窗口时，从代码窗口左上角的复合框里选择过程cmdSave　　
3。　　在下述代码行的左边框上点击一下，设置断点：　　
　　　　　If　txtLastName。Value　=　〃〃　Or　txtFirstName。Value　=　〃〃　Or　_　　　
　　　　　txtSalary。Value　=　〃〃　Then　　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　229　

…　页面　246…

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
图11…6　边框上的红色圆圈代表断点。当VBA遇到带断点的语句时，它就会自动切换到代码窗口并且　
显示该白字红底的文本。　　
4。　　在工程浏览窗口，选中模块WorkAndPay并点击查看代码按钮　　
5。　　将光标放在过程ClassDemo里的任意位置，并且按下F5，或者选择“运行”｜“运行子过程/用　
　　　　户窗体”　　
6。　　当窗体出现时，在Last　Name，First　Name和Salary文字框里输入数据，然后点击窗体的按钮　
　　　　Save。现在VB将切换到代码窗口，因为它碰到了过程cmdSave_Click第一行的断点。　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
图11…7　当VB运行过程遇到断点时，它会切换到代码窗口，并在中断过程的语句的左边边框上显示　
一个黄色箭头　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　230　

…　页面　247…

7。　　通过按F8逐句运行代码，VB运行当前语句，并且自动向前移动到下一句然后停止执行。当前语　
　　　　句的边框上显示了黄色箭头，并且为黄色底色。不断地按F8逐句执行该过程。当VB遇到With　emp　
　　　　语句时，它会切换到过程Class_Initialize。　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
图11…8　当VB遇到对对象emp的引用的时候，它就会出去执行过程Class_Initialize。在它执行完该　
过程里的语句之后，VBA会返回到过程cmdSave_Click里面。　　
当VB遇到语句Cells（Index；　1）。Formula　=　emp。ID时，它就会出去执行类模块CEmployee里的过程　
Property　Get　Id。　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
图11…9　对自定义对象属性的读取要通过过程Property　Get来实现。　　
8。　　使用F8键，追踪过程cmdSave_Click的执行，直到结束。　　
　　　　当VBA遇到过程的结束（End　Sub）时，黄色加亮将会关闭。这时候，点击屏幕下面的视窗任务　
　　　　栏上的Excel按钮返回到当前窗体。输入一个新员工的数据，然后点击按钮Save。当VB显示代　
　　　　码窗口时，选择“调试”｜“清除所有断点”。现在按F5运行完剩余的代码。　　
技巧11…6　VBA调试工具　　
VB提供了许多调试工具，帮助你分析你的应用程序如何操作，以及找到你过程里的错误源。参见第　
十三章这些工具的使用。　　

16。接下来……　　

在本章里，你学习了在VBA过程里如何创建和使用你自己的对象和集合。你使用了类模块来创建一　
个用户定义（自定义）对象。你已经看到了如何使用Property　Get和Property　Let过程定义你的自　
定义对象的属性。你也学习了如何给你的自定义对象编写方法，再有，你看到了如何通过创建一个　
自定义窗体使得类模块为用户可用。最后，你学习了如何通过逐句执行代码来分析你的VBA程序。　
在下一章，你将学习如何通过自定义菜单和工具条让你的VBA程序为终端用户所用。　　

　　　　　　　　　　　　　　　　　　　　　　　　第十二章　使用　VBA　创建自定义菜单和工具栏　　

注意，使用中文版的用户需要将相应的代码作一定的修改。下面列出了中文版的工作表菜单栏标题　　
文件（&F）　编辑（&E）　视图（&V）　插入（&I）　格式（&O）　工具（&T）　数据（&D）　窗口（&W）　帮助（&H）　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　231　

…　页面　248…

用户肯定期望在任何Windows应用程序里有一个方便的方法来选择命令和选项，因此，当你对某个　
工作表自动化编写完VBA程序时，你还应该花些时间添加一些功能，让你的应用程序更加使用方便　
和快捷。用户界面最为期望的功能就是自定义菜单和工具栏，当你的VBA程序包含很多个过程时这　
尤为重要。简单地在内置菜单或者自定义工具栏上创建一个控件，就可以对某个命令提供一个快捷　
访问。　本章将教你如何编程使用菜单和工具栏。　　

1。工具栏　　

术语“工具栏”既指工具栏又指菜单栏，工具栏给用户提供了对应用程序命令的快捷方便的访问。　
可以通过自定义对话框（参见图12…1）轻松才创建和修改工具栏。访问该对话框的方法之一是选择　
　“工具”｜“自定义”，你也可以选择“视图”｜“工具栏”｜“自定义”，或者在工具栏的任意位置　
单击右键，然后从快捷菜单上选择“自定义”。工具栏可以包括按钮，菜单，或者两者都有。菜单　
栏位于应用程序窗口的顶部（紧挨着它的标题栏），它是一种特殊的工具栏。除了命令之外，菜单　
栏也可以包含图片，允许用户很快将命令和工具栏上相应的按钮联系起来。例如，“文件”菜单里　
的“新建”和“打开”，在该命令的左边显示了图片，这些相同的图片也可以在Excel“常用”工具　
栏里面找到。　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
图12…1　使用自定义对话框，可以手动自定义菜单和工具栏　　
自定义对话框包含三页：工具栏，命令和选项。使用工具栏页，你可以创建一个新工具栏、更改现　
有工具栏的名称、清除工具栏或者重新设置工具栏。命令页允许你将新的命令拖曳到活动菜单里或　
者任何可见的工具栏。点击某个类别后，你可以看到它里面可用的命令清单。选项页让你通过设置　
图标大小，显示关于工具栏的屏幕提示以及选择动画，来设置你个性化的菜单和工具栏。如果你需　
要重新看一下如何通过对话框操作菜单和工具栏的话，可以看看在线帮助。本章侧重于VBA语句和　
过程，以获取对应用程序的菜单和工具栏的完全控制。　　
使用对象mandBar　　
mandBars是对象集合，代表当前应用程序里的所有工具栏。该集合里的每个对象称为　
mandBar。术语“mandBar”用来代表菜单栏、快捷菜单或者工具栏。因为mandBar对象可　
以代表各种工具（工具栏，菜单栏，快捷菜单），所以该对象有个专门的属性Type，可以用来返回　
工具栏的特定类型，如表12…1所示。　　
表12…1　集合mandBars里的mandBar对象类型　　
对象类型　　　　　　　　　　　　　　　　索引　　　　　　　　　　　常量　　
工具栏　　　　　　　　　　　　　　　　　　0　　　　　　　　　　　　　msoBarTypeNormal　　
菜单栏　　　　　　　　　　　　　　　　　　1　　　　　　　　　　　　　msoBarTypeMenuBar　　
快捷菜单　　　　　　　　　　　　　　　　2　　　　　　　　　　　　　msoBarTypePopup　　
　　
1。　打开一新工作簿并保存为Chap12。xls　　
2。　切换到VB编辑器屏幕　　
3。　选择当前VBA工程Chap12。xls　，并重命名为CustomTools　　
4。　添加一个新模块　　
5。　输入过程MyToolBars，如下所示：　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　232　

…　页面　249…

　　　　Sub　MyToolBars（　）　　　
　　　　　　　　　Dim　bar　As　mandBar　　　
　　　　　　　　　Dim　r　As　Integer　　　
　　　　　　　　　r　=　1　　　
　　　　　　　　　ActiveSheet。Range（“A1”）。Formula　=　“List　of　Toolbars”　　　
　　　　　　　　　For　Each　bar　In　mandBars　　　
　　　　　　　　　　　　　　　If　bar。Type　=　msoBarTypeNormal　Then　　　
　　　　　　　　　　　　　　　　　　　　With　Worksheets（〃Sheet1〃）。Range（〃A1〃）　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　。Offset（r；　0）　=　bar。Name　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　。Offset（r；　1）　=　bar。Index　　　
　　　　　　　　　　　　　　　　　　　　End　With　　　
　　　　　　　　　　　　　　　　　　　　r　=　r　＋　1　　　
　　　　　　　　　　　　　　　End　If　　　
　　　　　　　　　Next　　　
　　　　　　　　　Set　bar　=　Nothing　　　
　　　　End　Sub　　　
上面的过程在集合mandBars里面搜索工具，并且只选择Type属性为msoBarTypeNormal的工具。　
如果集合mandBars里面的某个成员是工具栏的话，那么VB就会将它的名称输入到活动工作表的　
第一列，B列将保存该对象的索引号。　　　
修改上面的过程，让它输入集合mandBars里所有对象（工具栏，菜单栏，快捷菜单）的名称到　
工作表中去，使用表12…1作为参考。　　
可以使用工具栏的名称或者索引号来引用mandBars集合里的某个特定的工具栏。　　
1。　　在立即窗口里输入下述语句：　　
　　　　？mandBars（1）。Name　　　
当你按下回车键后，VB就会返回mandBars集合里的第一个成员的名称。　　
2。　　在立即窗口输入下述语句：　　
　　　　？mandBars（〃Circular　Reference〃）。Type　　　
VB返回0，这是工具栏的索引号码（参见表12…1）　　
3。　　要计算mandBars集合里可用工具的总数，可以使用Count属性。在立即窗口里输入下述语句：　　
　　　　？mandBarsunt　　　

2。创建自定义工具栏　　

要创建自定义工具栏、菜单栏或者快捷菜单，可以使用mandBars对象的Add方法。　　
假设你想要创建一个叫做“Budget　Plans”的新工具栏，你要调用的Add方法如下所示：　　
mandBars。Add（Name；　Position；　MenuBar；　Temporary）　　　
可选参数