VBA语法概要.docVIP

?VBA语法概要 数据类型 类型标识符 字节 字符串型 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 ? = 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值。 9,循环语句 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 counter MyString = MyString 添加一个空格 Next Words 2）For Each…Next语句:主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句 For Each element In group Statements [Exit for] Statements 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 10,其他类语句和错误语句处理 A, 其他循环语句:结构化程序使用以上判断和循环语句已经足够，建议不要轻易使用下面的语句，虽然VBA还支持。 1)Goto line 该语句为跳转到line语句行 2)On expression_r gosub destinatioinlist 或者 on expression_r goto destinationlist 语句为根据 exprssion表达式值来跳转到所要的行号或行标记 3)Gosub line…line…Return语句， Return 返回到 Gosub line行，如下例： Sub gosubtry() Dim num Num=inputbox(“输入一个数字，此值将会被判断循环”) If num0 then Gosub Routine1 ：Debug.print num：Exit sub Routine1: Num=num/5 Return End sub 4)while…wend语句，只要条件为TRUE，循环就执行，这是以前VB老语法保留下来的，如下例： while condition while I50 [statements] I=I+1 wend Wend B, 错误语句处理:执行阶段有时会有错误的情况发生，利用On Error语句来处理错误，启动一个错误的处理程序。语法如下： On Error Goto Line　　　当错误发生时，会立刻转移到line行去 On Error Resume Next 当错误发生时，会立刻转移到发生错误的下一行去 On Erro Goto 0 当错误发生时，会立刻停止过程中任何错误处理过程 11,过程和函数:过程是构成程序的一个模块，往往用来完成一个相对独立的功能。过程可以使程序更清晰、更具结构性。VBA具有四种过程：Sub 过程、Function函数、Property属性过程和E