vba基础教程（有空慢慢更新，估计会真的很慢）

香川群子 · 发表于 2015-2-24 13:21

liulang0808 发表于 2015-2-24 13:07
第八节判断语句
1）If…Then…Else语句
If condition Then [statements] [Elseelsestatements]

If 判断句部分请看我的科普帖：
http://club.excelhome.net/thread-1136095-1-1.html

liulang0808 · 发表于 2015-2-24 13:21

第八节判断语句（续）

zdq866 · 发表于 2015-2-24 16:17

不错学习了！

liulang0808 · 发表于 2015-2-24 17:47

第九节循环语句

liulang0808 · 发表于 2015-2-24 17:47

第九节循环语句

liulang0808 · 发表于 2015-2-24 19:38

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

liulang0808 · 发表于 2015-2-24 20:09

第十节其他类语句和错误语句处理
一．其他循环语句
结构化程序使用以上判断和循环语句已经足够，建议不要轻易使用下面的语句，虽然VBA还支持。
1) Goto line该语句为跳转到line语句行（本人比较喜欢这个goto语句的）
2) On expression gosub destinatioinlist或者 on expression goto destinationlist语句为根据exprssion表达式值（必要参数。数值表达式，其运算结果应该是一个界于 0 到 255 之间的整数，包含 0 和 255。如果 expression 的计算结果不是一个整数，则它会先四舍五入为一个整数）来跳转到所要的行号或行标记

Sub OnGosubGotoDemo() ‘用f8分步执行来看具体区别
Dim Number, MyString
Number = 1 ' 设置变量初值为1执行sub1，line1对应的语句，然后设置为2，执行sub2，line2对应的语句。
On Number GoSub Sub1, Sub2
On Number GoTo Line1, Line2
Exit Sub
Sub1:
MyString = "In Sub1": Return
Sub2:
MyString = "In Sub2": Return
Line1:
MyString = "In Line1"
Line2:
MyString = "In Line2"
End Sub

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
Endsub
以上语句只有使用了才能了解其特点
4) while…wend语句，只要条件为 TRUE，循环就执行，这是以前 VB 老语法保留下来的，如下
例：
While condition ‘whileI<50
[statements] ‘I=I+1
wend ‘Wend
说明：对文本处理的时候，很多代码使用的这个