Excel-VBA-编程教程-2015-完整版
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
Excel-VBA-编程教程-2015-完整版
Excel-VBA-编程教程-2015-完整版
第四节变量与常量
1）VBA允许使用未定义的变量，默认是变体变量。
2）在模块通用说明部份，加入OptionExplicit语句可以强迫用户进行变量定义。 3）变量定义语句及变量作用域
Dim变量as类型'定义为局部变量，如Dimxyzasinteger Private变量as类型'定义为私有变量，如Privatexyzasbyte Public变量as类型'定义为公有变量，如Publicxyzassingle Global变量as类型'定义为全局变量，如Globlalxyzasdate Static变量as类型'定义为静态变量，如Staticxyzasdouble
一般变量作用域的原则是，那部份定义就在那部份起作用，模块中定义则在该模块那作用。 4）常量为变量的一种特例，用Const定义，且定义时赋值，程序中不能改变值，作用域也如同 1
-----------------------页面11-----------------------
VBA语言基础整理
变量作用域。如下定义：ConstPi3.1415926assingle
第五节数组
数组是包含相同数据类型的一组变量的集合，对数组中的单个变量引用通过数组索引下标
进行。在内存中表现为一个连续的内存块，必须用Global或Dim语句来定义。定义规则如下： Dim数组名([lowerto]upper[,[lowerto]upper,?.])astype;Lower缺省值为0。二 维数组是按行列排列，如XYZ(行，列)。
除了以上固定数组外，VBA还有一种功能强大的动态数组，定义时无大小维数声明；在程
序中再利用Redim语句来重新改变数组大小，原来数组内容可以通过加preserve关键字来保留。 如下例：
Dimarray1()asdouble:Redimarray1(5):array1(3)=250:Redimpreservearray1(5,10)
第六节注释和赋值语句
1）注释语句是用来说明程序中某些语句的功能和作用；VBA中有两种方法标识为注释语句。 2）赋值语句是进行对变量或对象属性赋值的语句，采用赋值号，如X=123：Form1.caption=” 我的窗口”
对对象的赋值采用：setmyobject=object或myobject:=object
第七节书写规范
1）VBA不区分标识符的字母大小写，一律认为是小写字母； 2）一行可以书写多条语句，各语句之间以冒号:分开；
3）一条语句可以多行书写，以空格加下划线_来标识下行为续行； 4）标识符最好能简洁明了，不造成歧义。
Excel-VBA-编程教程-2015-完整版
Excel-VBA-编程教程-2015-完整版
第八节判断语句
1）If?Then?Else语句
IfconditionThen[statements][Elseelsestatements] 如1：IfA>BAndC
或者，可以使用块形式的语法： IfconditionThen [statements]
[ElseIfcondition-nThen [elseifstatements]... [Else
[elsestatements]] EndIf 如1:
IfNumber<10Then Digits=1
ElseIfNumber<100Then Digits=2 Else Digits=3 EndIf
2）SelectCase?Case?EndCase语句 如1：
SelectCasePid Case“A101” Price=200 Case“A102” Price=300 2
-----------------------页面12-----------------------
VBA语言基础 ……
CaseElse Price=900 EndCase
3）Choose函数
choose(index,choce-1,choice-2,?,choice-n)，可以用来选择自变量串列中的一个值，
并将其返回，index必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1和可
Excel-VBA-编程教程-2015-完整版
Excel-VBA-编程教程-2015-完整版
选择的项目数之间。choice必要参数，Variant表达式，包含可选择项目的其中之一。如： GetChoice=Choose(Ind,\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）ForNext语句以指定次数来重复执行一组语句 ForcounterstartToend[Stepstep]'step缺省值为1 [statements] [ExitFor] [statements] Next[counter]
如1：
ForWords=10To1Step-1'建立10次循环 ForChars=0To9'建立10次循环
MyString=MyString&Chars'将数字添加到字符串中 NextChars'Incrementcounter MyString=MyString&\添加一个空格 NextWords
2）ForEach?Next语句主要功能是对一个数组或集合对象进行，让所有元素重复执行一次 语句
ForEachelementIngroup Statements [Exitfor] Statements Next[element] 如1：
ForEachrang2Inrange1 Withrange2.interior .colorindex=6 .pattern=xlSolid Endwith Next
这上面一例中用到了With?EndWith语句，目的是省去对象多次调用，加快速度；语法 为：
Withobject [statements] EndWith
3）Do?loop语句在条件为true时，重复执行区块命令
Excel-VBA-编程教程-2015-完整版
Excel-VBA-编程教程-2015-完整版
Do{while|until}condition'while为当型循环，until为直到型循环，顾名思义，不多说 啦
Statements Exitdo 3
-----------------------页面13-----------------------
VBA语言基础
Statements Loop
或者使用下面语法
Do'先do再判断，即不论如何先干一次再说 Statements Exitdo
Statements
Loop{while|until}condition
第十节其他类语句和错误语句处理
一．其他循环语句
结构化程序使用以上判断和循环语句已经足够，建议不要轻易使用下面的语句，虽然VBA还支 持。
1)Gotoline该语句为跳转到line语句行
2)Onexpressiongosubdestinatioinlist或者onexpressiongotodestinationlist语 句为根据exprssion表达式值来跳转到所要的行号或行标记
3)Gosubline?line?Return语句，Return返回到Gosubline行，如下例： Subgosubtry() Dimnum
Num=inputbox(“输入一个数字，此值将会被判断循环”) Ifnum>0thenGosubRoutine1：Debug.printnum：Exitsub Routine1: Num=num/5 Return Endsub
4)while?wend语句，只要条件为TRUE，循环就执行，这是以前VB老语法保留下来的，如下 例：
whilecondition‘whileI<50 *statements+‘I=I+1 wend‘Wend
二．错误语句处理
执行阶段有时会有错误的情况发生，利用OnError语句来处理错误，启动一个错误的处理程序。
Excel-VBA-编程教程-2015-完整版