VBA当中怎么调用IF函数，了解IF语句在多种场景下的条件判断

本章内容我们来学习一下，在VBA当中怎么调用IF函数来进行条件处理。VBA代码中IF函数的当中的IF语句单一条件判断和多条件判断的使用细节。

一、IF语句单一条件判断：

假设：如图第二部分，当 I3>=90时，J3为通过，反之为不通过。

代码如下：

Sub IF单一条件判断()

If Sheet1.Range('I3') >= 90 Then

Sheet1.Range('j3') = '通过'

Else

Sheet1.Range('j3') = '不通过'

End If

End Sub

一、IF语句多条件判断：

假设：如图第一部分，当 B3>=90时，C3为良好；当 B3>=80时，C3为合格，反之为不合格。

代码如下：

Sub IF多条件判断()

If Sheet1.Range('B3') >= 90 Then

Sheet1.Range('C3') = '优秀'

ElseIf Sheet1.Range('B3') >= 80 Then

Sheet1.Range('C3') = '合格'

Else

Sheet1.Range('C3') = '不合格'

End If

End Sub

三、IF语句总结：

1.单行形式1（If...Then）

1.1 If 条件判断 Then 条件成立结果；

1.2 在单行形式中，按照 If...Then 判断的结果也可以执行多条语句；

1.3所有语句必须在同一行上并且以冒号分开。

如：

Sub test()

If 1 > 10 Then a = 1: b = 2: c = 3

End Sub

2. 单行形式2

If 条件判断 Then 条件成立 Else 条件不成立。

如：

Sub test2()

If 1 > 1 Then MsgBox 'yes' Else MsgBox 'no'

End Sub

3.块形式（If...Then…End）

If 条件判断 Then

条件成立结果

End If

如：

Sub test3()

If 11 > 10 Then

a = 1 + a

b = 1 + a

c = 1 + b

End If

End Sub

4.块形式的If嵌套

If 条件判断 Then

成立时的结果

ElseIf 条件判断 Then

成立时的结果

……

Else

不成立时的结果

End If

如：

Sub IF多条件判断()

If Sheet1.Range('B3') >= 90 Then

Sheet1.Range('C3') = '优秀'

ElseIf Sheet1.Range('B3') >= 80 Then

Sheet1.Range('C3') = '合格'

Else

Sheet1.Range('C3') = '不合格'

End If

End Sub