Excel VBA 编程教程

VBA语言的基础认识第一节：标识符一、定义标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常量、过程、函数、类等引用。

二、命名规则（1）字母打头，由字母、数字和下划线组成，如A987b_23Abc（2）字符长度小于40，（Excel2002以上中文版本等，可以用汉字且长度可达254个字符）（3）不能与VB保留字重名，如public，private，dim，goto，next，with，integer，single等第二节：运算符定义：运算符是代表VB某种运算功能的符号。

（1）赋值运算符=（2）数学运算符&、+ (字符连接符)、+(加)、-（减）、Mod（取余）、\（整除）、*（乘）、/（除）、-（负号）、^（指数）（3）逻辑运算符Not（非）、And（与）、Or(或)、Xor(异或)、Eqv(相等)、Imp(蕴涵)（4）关系运算符= （相同）、<>（不等）、>（大于）、<（小于）、>=（不小于）、<=（不大于）、Like、Is（5）位运算符Not（逻辑非）、And（逻辑与）、Or（逻辑或）、Xor（逻辑异或）、Eqv（逻辑等）、Imp（隐含）第三节：数据类型VBA共有12种数据类型，具体见下表，此外用户还可以根据以下类型用Type自定义数据类型。

数据类型类型标识符字节字符串型String $ 字符长度（0-65400）字节型Byte 无 1布尔型Boolean 无 2整数型Integer % 2长整数型Long & 4单精度型Single ！ 4双精度型Double # 8日期型Date 无8公元100/1/1-99/12/31货币型Currency @ 8小数点型Decimal 无14变体型Variant 无以上任意类型，可变对象型Object 无 4第四节：变量与常量（1）VBA允许使用未定义的变量，默认是变体变量（2）在模块通用说明部分，加入Option Explicit语句可以强迫用户进行变量定义（3）变量定义语句及变量作用域Dim 变量as 类型’定义为局部变量，如Dim xyz as integerPrivate 变量as 类型’定义为私有变量，如Private xyz as bytePublic 变量as 类型’定义为公有变量，如Public xyz as single Global 变量as 类型’定义为全局变量，如Global xyz as dateStatic 变量as 类型’定义为静态变量，如Static xyz as double一般变量作用域的原则是，那部分定义就在那部分起作用，模块中定义则在该模块那作用。

（4）常量为变量的一种特例，用Const定义，且定义时赋值，程序中不能改变值，作用域也如同变量作用域。

如下定义：Const Pi=3.1415926 as single第五节：数组数组是包含相同数据类型的一组变量的集合，对数组中的单个变量引用通过数组索引下标进行。

在内存中表现为一个连续的内存块，必须用Global或Dim语句来定义。

定义规则如下：Dim 数组名([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower缺省值为0。

二维数组是按行列排列，如XYZ(行，列)。

除了以上固定数组外，VBA 还有一种功能强大的动态数组，定义时无大小维数声明；在程序中再利用Redim语句来重新改变数组大小，原来数组内容可以通过加preserve关键字来保留。

如下例：Dim array1() as double : Redim array1(5) : array1(3)=250 : Redim preservearray1(5,10)第六节：注释和赋值语句（1）注释语句是用来说明程序中某些语句的功能和作用；VBA中有两种方法标识为注释语句。

√单引号’;如：’定义全局变量；可以位于别的语句之尾，也可单独一行√Rem ;如：Rem定义全局变量；只能单独一行（2）赋值语句是进行对变量或对象属性赋值的语句，采用赋值号=，如X=123：Form1.caption=”我的窗口”对对象的赋值采用：set myobject=object 或myobject:=object第七节：书写规范（1）VBA不区分标识符的字母大小写，一律认为是小写字母；（2）一行可以书写多条语句，各语句之间以冒号: 分开；（3）一条语句可以多行书写，以空格加下划线_ 来标识下行为续行；（4）标识符最好能简洁明了，不造成歧义。

第八节：判断语句（1）If…Then…Else语句If condition Then [statements][Else elsestatements]如1：If A>B And C<D Then A=B+2 Else A=C+2 如2：If x>250 Then x=x-100或者，可以使用块形式的语法：If condition Then[statements][ElseIf condition-n Then [elseifstatements] ...[Else[elsestatements]]End If如1:If Number < 10 ThenDigits = 1ElseIf Number < 100 ThenDigits = 2ElseDigits = 3End If（2）Select Case…Case…End Case语句如1：Select Case PidCase “A101”Price=200Case “A102”Price=300……Case ElsePrice=900End Case（3）Choose 函数choose(index, choce-1,choice-2,…,choice-n)，可以用来选择自变量串列中的一个值，并将其返回，index 必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1 和可选择的项目数之间。

choice 必要参数，Variant表达式，包含可选择项目的其中之一。

如：GetChoice = Choose(Ind, "Speedy", "United", "Federal")（4）Switch函数Switch(expr-1, value-1[, expr-2, value-2 _ [, expr-n,value-n]])switch 函数和Choose 函数类似，但它是以两个一组的方式返回所要的值，在串列中，最先为TRUE 的值会被返回。

expr 必要参数，要加以计算的Variant 表达式。

value 必要参数。

如果相关的表达式为True，则返回此部分的数值或表达式，没有一个表达式为True，Switch 会返回一个Null值。

第九节：循环语句（1）For Next语句以指定次数来重复执行一组语句For counter = start To end [Step step] ＇step 缺省值为1 [statements][Exit For][statements]Next [counter]如1：For Words = 10 To 1 Step -1 ＇建立10 次循环For Chars = 0 To 9 ＇建立10 次循环MyString = MyString & Chars ＇将数字添加到字符串中Next Chars ＇Increment counterMyString = MyString & " " ＇添加一个空格Next Words（2）For Each…Next 语句主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句For Each element In groupStatements[Exit for]StatementsNext [element]如1：For Each rang2 In range1With range2.interior.colorindex=6.pattern=xlSolidEnd withNext这上面一例中用到了With…End With 语句，目的是省去对象多次调用，加快速度；语法为：With object[statements]End With（3）Do…loop语句在条件为true时，重复执行区块命令Do {while |until} condition'while 为当型循环，until为直到型循环，顾名思义，不多说啦StatementsExit doStatementsLoop或者使用下面语法：Do ' 先do 再判断，即不论如何先干一次再说StatementsExit doStatementsLoop {while |until} condition第十节其他类语句和错误语句处理一．其他循环语句结构化程序使用以上判断和循环语句已经足够，建议不要轻易使用下面的语句，虽然VBA 还支持。

（1）Goto line 该语句为跳转到line语句行（2）On expression gosub destinatioinlist 或者on expression goto destinationlist 语句为根据exprssion表达式值来跳转到所要的行号或行标记（3）Gosub line…line…Return语句，Return 返回到Gosub line行，如下例：Sub gosubtry()Dim numNum=inputbox(“输入一个数字，此值将会被判断循环”)If num>0 then Gosub Routine1 ：Debug.print num：Exit subRoutine1:Num=num/5ReturnEnd sub（4）while…wend语句，只要条件为TRUE，循环就执行，这是以前VB老语法保留下来的，如下例：while condition ‘while I<50[statements] ‘I=I+1wend ‘Wend二．错误语句处理执行阶段有时会有错误的情况发生，利用OnError语句来处理错误，启动一个错误的处理程序。

语法如下：On Error Goto Line ‘当错误发生时，会立刻转移到line行去On Error Resume Next ‘当错误发生时，会立刻转移到发生错误的下一行去On Erro Goto 0 ‘当错误发生时，会立刻停止过程中任何错误处理过程第十一节过程和函数过程是构成程序的一个模块，往往用来完成一个相对独立的功能。