sub过程与程序流程控制语句

《sub过程与程序流程控制语句》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、ExcelHomeVBA培训班小结第四课时Sub过程与程序流程控制语句讲师：ggsmart（叶枫）学员：denkeyl内容大纲：—、Sub过程二、程序流程控制语句在前面的课程中，学习了VBA的开发环境，并通过录制宏功能认识到宏这种最简单的VBA程序的学习，对宏有了较为清楚的认识。录制宏是一个很方便也很有用的功能，特别是简单重复的操作，使用录制宏和执行宏能极大提高工作效率。尽管如此，使用录制宏功能得到的VBA代码，仍有很多的局限性，比如：不能进行人机交互，不能进行判断、循环等，宏只是简单录制下来执行的每一个步骤语句。显然，这远不能满足我们的需要。那么，自己动手编写可

2、以随意控制的程序以满足更高的需求，就是这一节课教给我的东西。—、Sub过程过程就是一个小程序，是一组相关操作命令的组合，即一个过程就是一组完成所需操作的VBA代码的组合。VBA中每一个程序都包含过程，且VBA的主体结构就是过程。VBA的过程主要包括Sub过程和Function过程两种，两种过程的区别在于：Sub过程不可以返回程序运行的值，Function程可以返回程序的运行值，即前者不可以返回值，后者可以返回值。本次课主要学习的是Sub过程。2、声明Sub过程录制的宏就是一个简单的Sub过程，使用录制宏功能只能生成Sub过程的代码。在示例1中通过录制宏功能，得到如

3、下代码：通过观察比较以上的两个宏代码，可以发现Sub过程的特点:(1)以“Sub过程名()”开头，以“EndSub”结尾；(2)Sub过程一般保存在“模块”里;(1)不返回运行结果。声明Sub过程的语法形式为：［Public

4、Private

5、Friend］［Static］Sub过程名称(［参数亿参数2……］)［语句块］［ExitSub］［语句块］EndSub其中，［冲括号括起来的部分表示可选的参数，如［Public

6、Private

7、Friend］.［Static］等，这些关键字与作用的范围有关，只能选择一个,含义分别为：(1)Public表示声明的过程是一个公共的

8、过程，即该工作簿中的其它模块中的过程也可以访问声明的这个过程；(2)Private表示声明的过程是一个私有的过程，只有在同一个模块中的其它过程才可以访问声明的这个过程。(3)Friend用在类模块里。(4)Static是静态的意思，表示声明的过程中的局部变量将被保存，在下次调用的时候仍保存原来的值。蓝色部分的Sub过程名称()、EndSub是必须的，分别标明过程的开始和结束。括号里的［参数1,参数2……］是一系列的变量，以逗号分隔将传递的参数值，如果过程没有任何参数，可以省略，如以上录制的两个宏都是没有参数的Sub过程。[ExitSub]表示在过程结束之前强制退出

9、。3、试着编写一个Sub过程新打开的VBE编辑器，在工程资源管理中的空白处单击右键，选择“插入T模块”，便新建了一个模块。可以在同一个模块里编写多个过程，也可以保存在不同的模块中。双击“模块T,便可在右边的代码窗口编写Sub过程。在模块中创建一个名为“mysub”的Sub过程如下:同时，将光标定位至代码中，点击鼠标右键，选择SmartIndent—>lndentProcedure,调整代码的缩进，如图:调整后，如下：将光标定位至此代码中，点击工具栏中的“运行子过程/用户窗体”按钮，或按快捷键F5,运行此过程，弹出一个对话框，如下图：此过程中并未设定Public或P

10、rivate等显示关键字，则按照缺省的情况为Public程，即默认为公共的过程。如果不打算公开某个过程，则要在Sub前面加Private关键字，定义为私有过程。在刚才建立的模块中建立一个名为“siyou”的私有过程并运行如T：4、从过程执行另一个过程上面的两个过程都只有一行代码，诚然VBA并没有限定代码的行数，可以在一个过程里编写成千上万条代码，但随着代码行数的增加，错误也可能会增加。因此，将很长的代码分拆到多个过程里，通过创建一些小型过程代替单个的大型过程，是一种很好的编程习惯。从过程执行另一个过程共有三种方法。（1）输入过程名称以及参数，参数用逗号隔开；过程名

11、[，参数参数2,...]在刚才的模块中建立一个名为“test”的过程，调用执行“mysub”过程，代码如下：将光标定位至代码中执行此过程，便弹出刚才的第一个对话框。或者将光标定位至上述代码中的mysub之后，点击菜单栏中“工具-宏”，选择执行名为test的宏。注意到，上面的宏对话框中并没有名为siyou的过程，这是因为此工程是一个私有的过程。虽然不显示，但仍然可以调用。(2)在过程名称以及参数前使用Call关键字，参数用括号括起来，并用逗号隔开；Call过程名[(参数匕参数2,…)](3)利用Application对象的Run方法。Application.Run表

12、示过程名的