VBA语言速查手册

V B A语言基础简介(VisualBasicApplication)这里只做一些vba最基本的介绍，很多函数，过程的具体使用不可能一一说明，同学们参考vba函数速查手册第一节标识符一．定义标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常量、过程、函数、类等的引用。

二．命名规则1）字母打头，由字母、数字和下划线组成，如A987b_23Abc2）字符长度小于403）不能与VB保留字重名，如public,private,dim,goto,next,with,integer,single等第二节运算符定义：运算符是代表VB某种运算功能的符号。

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

第四节变量与常量1）VBA允许使用未定义的变量，默认是变体变量。

2）在模块通用说明部份，加入OptionExplicit语句可以强迫用户进行变量定义。

3）变量定义语句及变量作用域Dim变量as类型'定义为局部变量，如Dim xyzasintegerPrivate变量as类型'定义为私有变量，如Private xyzasbytePublic变量as类型'定义为公有变量，如Public xyzassingleGlobal变量as类型'定义为全局变量，如Globlal xyzasdateStatic变量as类型'定义为静态变量，如Static xyzasdouble一般变量作用域的原则是，那部份定义就在那部份起作用，模块中定义则在该模块那作用。

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

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

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

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

二维数组是按行列排列，如Dim X(9)as String声明了一个10个元素的数组，X(0)~X(9),如果没有指定lower,则默认lower=0。

再例如Dim MyArray(10,10)As Integer,是个11*11整数数组除了以上固定数组外，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=”我的窗口”对对象的赋值采用：setmyobject=object或myobject:=object第七节书写规范1）VBA不区分标识符的字母大小写，一律认为是小写字母；2）最好以行只写一条语句。

一行可以书写多条语句，各语句之间以冒号:分开；3）一条语句可以多行书写，以空格加下划线_来标识下行为续行；4）标识符最好能简洁明了，不造成歧义。

第八节判断语句1）If…Then…Else语句If condition Then[statements][Else elsestatements]condition是个判断条件，当condition为真True，就执行Then后面的statements 那些语句，如果为假False,执行elsestatements语句如1：If A>BAndC<D Then A=B+2Else A=C+2如2：If x>250Then x=x-100或者，可以使用块形式的语法，即If…Then…Else语句可以嵌套：IfconditionThen[statements][ElseIfcondition-nThen[elseifstatements]...[Else[elsestatements]]EndIf如1:If Number<10ThenDigits=1ElseIf Number<100ThenDigits=2ElseDigits=3EndIf2）SelectCase…Case…EndCase语句如1：Pid的取值来决定执行不同的语句SelectCase PidCase“A101”Price=200‘当Pid的实际值是“A101”，就执行Price=200.后面的以此类推Case“A102”Price=300……CaseElsePrice=900EndCase第九节循环语句1）ForNext语句以指定次数来重复执行一组语句For counter=start To end[Step step]'step缺省值为1 [statements][ExitFor][statements]Next[counter]如1：for语句也可以嵌套，如下，两重for循环For Words=10To1Step-1 '建立10次循环ForChars=0To9 '建立10次循环MyString=MyString&Chars'将数字添加到字符串中NextChars 'IncrementcounterMyString=MyString&"" '添加一个空格Next Words2）ForEach…Next语句主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句其作用就是遍历一遍数组或集合对象中的所有元素ForEach element In group‘group必要参数。

对象集合或数组的名称（用户定义类型的数组除外）。

Statements[Exitfor]StatementsNext[element]如1：ForEach rang2 In range1Withrange2.interior.colorindex=6.pattern=xlSolidEndwithNext这上面一例中用到了With…EndWith语句，目的是省去对象多次调用，加快速度；语法为：Withobject[statements]EndWith3）Do…loop语句在条件为true时，重复执行区块命令Do{while|until}condition 'while为当型循环，until为直到型循环，顾名思义，不多说啦StatementsExitdoStatementsLoop或者使用下面语法Do '先do再判断，即不论如何先干一次再说StatementsExitdoStatementsLoop{while|until}condition4）while…wend语句，只要条件为TRUE，循环就执行如下例：whilecondition‘whileI<50[statements] ‘I=I+1wend第十节其他类语句和错误语句处理这节可以省略，感兴趣的话可以看看一．其他循环语句结构化程序使用以上判断和循环语句已经足够，建议不要轻易使用下面的语句，虽然VBA还支持。

1)Goto line该语句为跳转到line语句行2)Onexpressiongosubdestinatioinlist或者onexpressiongotodestinationlist语句为根据exprssion表达式值来跳转到所要的行号或行标记3)Gosub line…line…Return语句，Return返回到Gosub line行，如下例：Subgosubtry()DimnumNum=inputbox(“输入一个数字，此值将会被判断循环”)Ifnum>0then Gosub Routine1：Debug.printnum：ExitsubRoutine1:Num=num/5ReturnEndsub‘Wend二．错误语句处理执行阶段有时会有错误的情况发生，利用OnError语句来处理错误，启动一个错误的处理程序。

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

过程可以使程序更清晰、更具结构性。

VBA具有四种过程：Sub过程、Function函数、Property 属性过程和Event事件过程。

一．Sub过程Sub过程的参数有两种传递方式：按值传递(ByVal)和按地址传递(ByRef)。

如下例：Subpassword(ByVal xasinteger,ByRef yasinteger)Ify=100theny=x+yelsey=x-yx=x+100EndsubSubcall_password()Dimx1asintegerDimy1asintegerx1=12y1=100Call password(x1,y1) ‘调用过程方式：1.Call过程名(参数1,参数2…);2.过程名参数1,参数2…debug.printx1,y1‘结果是12、112，y1按地址传递改变了值，而x1按值传递，未改变原值Endsub二．Function函数函数实际是实现一种映射，它通过一定的映射规则，完成运算并返回结果。