VBA语言基础简介
(Visual Basic Application)
这里只做一些vba最基本的介绍，很多函数，过程的具体使用不可能一一说明，同学们参考vba函数速查手册
第一节标识符
一．定义
标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常量、过程、函数、类等的引用。
二．命名规则
1）字母打头，由字母、数字和下划线组成，如A987b_23Abc
2）字符长度小于40
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-9999/12/31
货币型Currency @ 8
小数点型Decimal 无14
变体型Variant 无以上任意类型，可变
对象型Object 无  4
第四节变量与常量
1）VBA允许使用未定义的变量，默认是变体变量。
2）在模块通用说明部份，加入Option Explicit 语句可以强迫用户进行变量定义。
3）变量定义语句及变量作用域
Dim变量as类型'定义为局部变量，如Dim xyz as integer
Private变量as类型'定义为私有变量，如Private xyz as byte
Public变量as类型'定义为公有变量，如Public xyz as single
Global变量as类型'定义为全局变量，如Globlal xyz as date
Static变量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。二维数组是按行列排列，
如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 preserve array1(5,10)
第六节注释和赋值语句
1）注释语句是用来说明程序中某些语句的功能和作用，注释语句不会被执行；VBA中有两种方法标识为注释语句。
ü单引号’；如：’定义全局变量；可以位于别的语句之尾，也可单独一行
üRem；如：Rem定义全局变量；只能单独一行
2）赋值语句是进行对变量或对象属性赋值的语句，采用赋值号=，如X=123：Form1.caption=”我的窗口”
编程语言vb是什么对对象的赋值采用：set myobject=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>B And C<D Then A=B+2 Else A=C+2
如2：If x>250 Then x=x-100
或者，可以使用块形式的语法，即If…Then…Else语句可以嵌套：
If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements] ...
[Else
[elsestatements]]
End If
如1:
If Number < 10 Then
Digits = 1
ElseIf Number < 100 Then
Digits = 2
Else
Digits = 3
End If
2）Select Case…Case…End Case语句
如1：Pid的取值来决定执行不同的语句
Select Case Pid
Case“A101”
Price=200 ‘当Pid的实际值是“A101”，就执行Price=200.后面的以此类推
Case“A102”
Price=300
……
Case Else
Price=900
End Case
第九节循环语句
1）For Next语句以指定次数来重复执行一组语句
For counter = start To end [Step step] ' step 缺省值为1
[statements]
[Exit For]
[statements]
Next [counter]
如1：for语句也可以嵌套，如下，两重for循环
For Words = 10 To 1 Step -1 ' 建立10 次循环
For Chars = 0 To 9 ' 建立10 次循环
MyString = MyString & Chars ' 将数字添加到字符串中
Next Chars ' Increment counter
MyString = MyString & " " ' 添加一个空格
Next Words
2）For Each…Next语句主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句
其作用就是遍历一遍数组或集合对象中的所有元素
For Each element In group ‘group 必要参数。对象集合或数组的名称（用户定义类型的数
组除外）。
Statements
[Exit for]
Statements
Next [element]
如1：
For Each rang2 In range1
With range2.interior
.colorindex=6
.pattern=xlSolid
End with
Next
这上面一例中用到了With…End With语句，目的是省去对象多次调用，加快速度；语法为：
With object
[statements]
End With
3）Do…loop语句在条件为true时，重复执行区块命令
Do {while |until} condition ' while 为当型循环，until为直到型循环，顾名思义，不多说啦
Statements
Exit do
Statements
Loop
或者使用下面语法
Do ' 先do 再判断，即不论如何先干一次再说Statements
Exit do
Statements
Loop {while |until} condition
4）while…wend语句，只要条件为TRUE，循环就执行如下例：
while condition‘while I<50
[statements] ‘I=I+1
wend
第十节其他类语句和错误语句处理
这节可以省略，感兴趣的话可以看看
一．其他循环语句
结构化程序使用以上判断和循环语句已经足够，建议不要轻易使用下面的语句，虽然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 num
Num=inputbox(“输入一个数字，此值将会被判断循环”)
If num>0 then Gosub Routine1 ：Debug.print num：Exit sub
Routine1:
Num=num/5
Return
End sub
‘Wend
二．错误语句处理
执行阶段有时会有错误的情况发生，利用On Error语句来处理错误，启动一个错误的处理程序。语法如下：
On Error Goto Line‘当错误发生时，会立刻转移到line行去
On Error Resume Next‘当错误发生时，会立刻转移到发生错误的下一行去
On Erro Goto 0‘当错误发生时，会立刻停止过程中任何错误处理过程
第十一节过程和函数

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。