vba语言基础简介

vba语言基础简介内容摘要：

mp。 Chars 39。 将数字添加到字符串中 Next Chars 39。 Increment counter MyString = MyString amp。 39。 添加一个空格 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 .colorindex=6 .pattern=xlSolid End with Next 这上面一例中用到了 With… End With 语句，目的是省去对象多次调用，加快速度；语法为： With object [statements] End With 3） Do… loop 语句 在条件为 true 时，重复执行区块命令 Do {while |until} condition 39。 while 为当型循环， until 为直到型循环，顾名思义，不多说啦 Statements Exit do Statements Loop 或者使用下面语法 Do 39。 先 do 再判断，即不论如何先干一次再说 Statements Exit do Statements Loop {while |until} condition 4） while… wend 语句 ，只要条件为 TRUE，循环就执行 如下例： while condition „while I50 [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 num0 then Gosub Routine1 ： 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 „当错误发生时，会立刻停止过程中任何错误处理过程 第十一节 过程和函数 过程是构成程序的一个模块，往往用来完成一个相对独立的功能。 过程可以使程序更清晰、更具结构性。 VBA 具有四种过程： Sub 过程、 Function 函数、 Property 属性过程和 Ev。