vbaif语句为判断语句。根据条件的值,可使用If...Then...Else语句运行指定的语句或一个语句块。If...Then...Else语句可根据需要嵌套多级。
但是,为了代码的可读性,建议使用其余的语句,比如SelectCase语句而不使用多层嵌套的vba中的If...Then...Else语句。
vbaif语句用法解释:
当条件为True时,若只要执行一个语句,则可以使用单行的If...Then...Else语法。
使用If...Then...Else语句可以定义两个可执行的语句块:其中一个块会在条件为True时执行;而另一个块会在条件为False时执行。
vbaif语句执行流程如下:
vbaif语句实例剖析
vbaif语句练习题以论坛的练习题《VBAIF语句答题练习》来加以解释。
此题共两段代码:第一段:
Sub随机数()
[a1].Value=http://www.ittribalwo.com/article/Int(Rnd*20)
[c1].Value=http://www.ittribalwo.com/article/Int(Rnd*20)
EndSub
解释:A1、C1单元格的值为随时生成的20以内的整数。Rnd是VBA中的随机函数,也可以使用excel工作表中的公式来取代上一段代码,如下:
Sub随机数()
Range("A1,c1").Formula="=Int(Rand()*20)"
EndSub
第二段:
Sub答题()
If[e1].Valuehttp://www.ittribalwo.com/article/=""Then
MsgBox"还没有输入答案"
Else
EndIf
If[e1].Value=http://www.ittribalwo.com/article/[a1].Value+[c1].ValueThen
MsgBox"答对了,你真棒!"
Else
MsgBox"答错了,继续努力!"
EndIf
Call随机数
EndSub
代码解释:第一个IF语句:如果E1单元格为空,提示消息框:还没有输入答案。
第二个IF语句:如果E1的值等于A1+C1,提示消息框:答对了,你真棒!,否则返回答错了,继续努力。最后用call关键字调用第一段代码。
本文相关文章链接:《vb随机函数用法和实例》
《ExcelVBAMsgBox用法介绍》
《privatesub私有过程使用介绍》





