EXCELVBA编程的常用代码.pdf

《EXCELVBA编程的常用代码.pdf》由会员分享，可在线阅读，更多相关《EXCELVBA编程的常用代码.pdf（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Excel VBA编程的常用代码时间:2009-11-2721:18:01来源:本站作者:未知我要投稿我要收藏投稿指南具体的步骤是，代码从活动工作表上活动单元格周围的当前单元格区域中读取数据。宏将这些数据存储在一个数组中，计算每一行和每一列中的单元格总数，然后将输出显示在工作表中。数组的大小由当前区域中的单元格数量决定。注意：此宏不会在工作表中添加任何公式，因此如果该范围内的单元格总数有变化，则必须重新运行宏。使用以下示例之前，请执行以下步骤：1.打开一个新工作簿。2.在“工具”菜单中，指向“宏”，然后单击“Visual Basic 编辑器”（或者简单地按下ALT+F11组合键）。在“Visu

2、al Basic 编辑器”中的“插入”菜单中，单击“模块”。将以下示例代码键入或粘贴到模块中：Sub TotalRowsAndColumns()此宏假定您已从要计算单元格总数的矩形区域内选择了一个单元格或一组单元格。行和列的单元格总数将出现在当前区域下面的行和右侧的列中。Dim r As IntegerDim c As IntegerDim iAs IntegerDim jAs IntegerDim myArray As Variant将 myArray 声明为变量将使数组可以接收一组单元格。此时，数组将自动转换为以下标 myArray(1,1)开始的数组。指当前所选单元格周围的区域。With

3、 Selection.CurrentRegionr=.Rows.Countc=.Columns.Count重新计算总行数和总列数并将结果存储到数组中。myArray=.Resize(r+1,c+1)在下面的嵌套循环中，变量i跟踪行号，变量j跟踪列号。j 在可用列中每循环一次，i就递增一，而j则重新从一到c 循环一次。For i=1 To rFor j=1 To c行 i的总数myArray(i,c+1)=myArray(i,c+1)+myArray(i,j)列 j的总数myArray(r+1,j)=myArray(r+1,j)+myArray(i,j)总计myArray(r+1,c+1)=my

4、Array(r+1,c+1)+myArray(i,j)Next jNext i将数组返回工作表，数组中现在包含一个新行和一个新列，用于存储总数。.Resize(r+1,c+1)=myArrayEnd WithEnd Sub3.突出显示要求和区域中的一个单元格，在“工具”菜单中，指向“宏”并单击“宏”。4.选择 TotalRowsAndColumns 宏，然后单击“运行”。注意：要执行与本示例中的运算类似的运算，可以修改宏代码。例如，要对选定范围内的单元格中包含的值进行减法、乘法或除法运算，可以更改数学运算符。结论本文介绍了各种VBA宏，使用这些宏可以减少使用工作表所需的工作量。此外，您还可以修

5、改本文介绍的大多数宏以扩展它们的功能。始终记住可以在工具或提示库中添加更多宏，您将会受益匪浅。VBA系列讲座(1):VBA 是什么?1.1 VBA是什么直到 90 年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用 EXCEL 的宏语言来使 EXCEL 自动化,使用 WORD BASIC使 WORD 自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言-VisualBasic ForApplication(VBA),可以认为 VBA是非常流行的应用程序开发语言VASUAL BASIC的子集.实际上 VBA

6、是寄生于VB 应用程序的版本.VBA和 VB的区别包括如下几个方面:1.VB是设计用于创建标准的应用程序,而 VBA是使已有的应用程序(EXCEL等)自动化2.VB具有自己的开发环境,而 VBA必须寄生于已有的应用程序.3.要运行 VB开发的应用程序,用户不必安装 VB,因为 VB开发出的应用程序是可执行文件(*.EXE),而 VBA开发的程序必须依赖于它的父应用程序,例如EXCEL.尽管存在这些不同,VBA和 VB在结构上仍然十分相似.事实上,如果你已经了解了 VB,会发现学习 VBA非常快.相应的,学完 VBA会给学习 VB打下坚实的基础.而且,当学会在 EXCEL 中用 VBA创建解决方

7、案后,即已具备在 WORD ACCESSOUTLOOK FOXPRO PROWERPOINT中用 VBA创建解决方案的大部分知识.*VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化.*VBA可以称作 EXCEL 的“遥控器”.VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案.此外,如果你愿意,还可以将 EXCEL 用做开发平台实现应用程序.1.2 EXCEL 环境中基于应用程序自动化的优点也许你想知道 VBA可以干什么?使用 VBA可以实现的功能包括:1.使重复的任务自动化.2.自定义 EXCEL 工具栏,菜单和界面.3.简化模

8、板的使用.4.自定义 EXCEL,使其成为开发平台.5.创建报表.6.对数据进行复杂的操作和分析.用 EXCEL 作为开发平台有如下原因:1.EXCEL 本身功能强大,包括打印,文件处理,格式化和文本编辑.2.EXCEL 内置大量函数.3.EXCEL 界面熟悉.4.可连接到多种数据库.用其他语言开发应用程序,一半的工作是编写一些基本功能的模块,包括文件的打开和保存,打印,复制等.而用 EXCEL 作为开发平台,则由于 EXCEL 已经具备这些基本功能,你要做的只是使用它.1.3 录制简单的宏在介绍学习 VBA之前，应该花几分钟录制一个宏。新术语：“宏”，指一系列EXCEL 能够执行的 VBA语

9、句。以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤：1)打开新工作簿，确认其他工作簿已经关闭。2)选择 A1单元格。调出“常用”工具栏。3)选择“工具”“宏”“录制新宏”。4)输入“改变颜色”作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示“录制”，特别是“停止录制”工具栏也显示出来。替换默认宏名主要是便于分别这些宏。宏名最多可为 255 个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。5)选择“格式”的“单元格”，选择“图案”选项中的红色,单击“确定”。6)单击“停止录制”工具栏按钮，结束宏录制过程。如果“停

10、止录制”工具栏开始并未出现，请选择“工具”“宏”“停止录制”。录制完一个宏后就可以执行它了。1.4 执行宏当执行一个宏时，EXCEL 按照宏语句执行的情况就像VBA代码在对 EXCEL 进行“遥控”。但 VBA的“遥控”不仅能使操作变得简便，还能使你获得一些使用EXCEL 标准命令所无法实现的功能。而且，一旦熟悉了EXCEL 的“遥控”，你都会奇怪自己在没有这些“遥控”的情况下，到底是怎么熬过来的。要执行刚才录制的宏，可以按以下步骤进行：1）选择任何一个单元格，比如A3。2）选择“工具”“宏”“宏”，显示“宏”对话框。3）选择“改变颜色”，选择“执行”，则A3单元格的颜色变为红色。试着选择其它

11、单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。1.5 查看录制的代码到底是什么在控制EXCEL 的运行呢?你可能有些疑惑.好,让我们看看 VBA的语句吧.1）选择“工具”“宏”“宏”，显示“宏”对话框。2）单击列表中的“改变颜色”,选择“编辑”按钮。此时，会打开 VBA的编辑器窗口（VBE）。关于该编辑器，以后再详细说明，先将注意力集中到显示的代码上。代码如下：（日期和姓名会有不同）Sub 改变颜色()改变颜色Macro xw 记录的宏2000-6-10With Selection.Interior.ColorIndex=3.Pattern=xlSolid.PatternColor

12、Index=xlAutomaticEnd WithEnd Sub将来会十分熟悉这种代码，虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。Sub 改变颜色():这是宏的名称。中间的以“”开头的五行称为“注释”，它在录制宏时自动产生。以 With 开头到 EndWith 结束的结构是 With 结构语句，这段语句是宏的主要部分。注意单词“selection”，它代表“突出显示的区域”（即：选定区域）。With Selection.Interior：它读作“选择区域的的内部”.这整段语句设置该区域内部的一些“属性”。其中：.ColorIndex=3:将该内部

13、设为红色。注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在With 后的词,它是 With 结构的一部分。另外：红色被数字化为 3.(红色警戒是否可称作：3 号警戒，嗯？)有兴趣的话，你将 3 改为其他数字试试看。.Pattern=xlSolid：设置该区域的内部图案。由于是录制宏，所以，虽然你并未设置这一项，宏仍然将其记录下来(因为在“图案”选项中有此一项，只是你为曾设置而已）。xlSolid表示纯色。.PatternColorIndex=xlAutomatic：表示内部图案底纹颜色为自动配色。End With:结束 With 语句。End Sub:整个宏的结束语1.6 编辑录制的代

14、码在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上并不起作用。哪两句？现在，在宏中作一个修改，删除多余行，直到和下面代码相同：Sub 改变颜色()改变颜色Macro xw 记录的宏2000-6-10With Selection.Interior.ColorIndex=3End WithEnd Sub完成后，在工作表中试验一下。你会发现结果和修改前的状况一样。在 With语句前加入一行:Range(A5).Select试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单元格变红.现在可以看到，编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一：在录制中出错而不得

15、不修改。二：录制的宏中有多余的语句需要删除，提高宏的运行速度。三：希望增加宏的功能。比如：加入判断或循环等无法录制的语句。1.7 录制宏的局限性希望自动化的许多EXCEL 过程大多都可以用录制宏来完成.但是宏记录器存在以下局限性.通过宏记录器无法完成的工作有:1)录制的宏无判断或循环能力.2)人机交互能力差,即用户无法进行输入,计算机无法给出提示.3)无法显示 EXCEL 对话框.4)无法显示自定义窗体.1.8 小结本学时中,你已经掌握了 VBA的一些基础知识,你会录制宏、编辑宏而且了解了录制宏的局限性.你很努力.并且已经为将来学习VBA甚至 VB等编程语言打下了基础.关键是你已经了解了一个谜底,就是说,你了解了什么是编程.下面是些小练习,做完后才可以去玩哟.思考:1)VBA只能用于 EXCEL 吗?2)VBA是基于哪种语言?3)说说 EXCEL 和 VBA的关系.4)为什么要用宏?