68手游网

本文介绍vba if判断语句的使用方法，在最后以一个实例来剖析vba if语句的具体应用。

　　vba if语句为判断语句。根据条件的值，可使用 If...Then...Else 语句运行指定的语句或一个语句块。If...Then...Else 语句可根据需要嵌套多级。

　　但是，为了代码的可读性，建议使用其余的语句，比如 Select Case 语句而不使用多层嵌套的vba中的 If...Then...Else 语句。

　　vba if语句用法解释：

　　当条件为 True 时，若只要执行一个语句，则可以使用单行的 If...Then...Else 语法。

　　使用 If...Then...Else 语句可以定义两个可执行的语句块：其中一个块会在条件为True 时执行；而另一个块会在条件为 False 时执行。

　　vba if语句执行流程如下：

　　vba if语句实例剖析

　　此题共两段代码：第一段：

Sub 随机数()
[a1].Value = Int(Rnd * 20)
[c1].Value = Int(Rnd * 20)
End Sub

　　解释：A1、C1单元格的值为随时生成的20以内的整数。Rnd是VBA中的随机函数，也可以使用excel工作表中的公式来取代上一段代码，如下：
Sub 随机数()
Range("A1,c1").Formula = "=Int(Rand() * 20)"
End Sub

第二段：
Sub 答题()
If [e1].Value = "" Then
MsgBox "还没有输入答案"
Else
End If
If [e1].Value = [a1].Value + [c1].Value Then
MsgBox "答对了，你真棒！"
Else
MsgBox "答错了，继续努力！"
End If
Call 随机数
End Sub

　　代码解释：第一个IF语句：如果E1单元格为空，提示消息框：还没有输入答案。
　　第二个IF语句：如果E1的值等于A1+C1，提示消息框：答对了，你真棒！，否则返回答错了，继续努力。最后用call关键字调用第一段代码。