学习VBA，报表做到飞 第一章 入门篇 1.7 IF语句

第一章 入门篇

1.7 IF语句

VBA中IF语句的使用比Excel中IF函数的使用更加灵活方便，其编写格式是这样的：

If 条件 Then

执行语句

ElseIf 条件 Then

执行语句

Else

执行语句

End If

如果条件成立，执行Then后面的语句，否则跳到下一条语句接着判断条件是否成立。如果条件都不成立，执行Else后面的语句。如果判断条件比较少，上面的ElseIf、Else有可能不会用到。

Sub if语句()

n = InputBox('请输入学生的考试分数')

If n > 90 Then

MsgBox '优秀'

ElseIf n > 80 Then

MsgBox '良好'

ElseIf n > 60 Then

MsgBox '及格'

Else: MsgBox '不及格'

End If

End Sub

象这个程序里的“Else: MsgBox '不及格'”这个语句一样，如果想把两个语句放在同一行去执行，可以用“：”来分隔两个语句。