本章內(nèi)容我們來學(xué)習(xí)一下,在VBA當(dāng)中怎么調(diào)用IF函數(shù)來進行條件處理。VBA代碼中IF函數(shù)的當(dāng)中的IF語句單一條件判斷和多條件判斷的使用細(xì)節(jié)。
一、IF語句單一條件判斷:
假設(shè):如圖第二部分,當(dāng) I3>=90時,J3為通過,反之為不通過。
代碼如下:
Sub IF單一條件判斷()
If Sheet1.Range('I3') >= 90 Then
Sheet1.Range('j3') = '通過'
Else
Sheet1.Range('j3') = '不通過'
End If
End Sub
一、IF語句多條件判斷:
假設(shè):如圖第一部分,當(dāng) B3>=90時,C3為良好;當(dāng) B3>=80時,C3為合格,反之為不合格。
代碼如下:
Sub IF多條件判斷()
If Sheet1.Range('B3') >= 90 Then
Sheet1.Range('C3') = '優(yōu)秀'
ElseIf Sheet1.Range('B3') >= 80 Then
Sheet1.Range('C3') = '合格'
Else
Sheet1.Range('C3') = '不合格'
End If
End Sub
三、IF語句總結(jié):
1.單行形式1(If...Then)
1.1 If 條件判斷 Then 條件成立結(jié)果;
1.2 在單行形式中,按照 If...Then 判斷的結(jié)果也可以執(zhí)行多條語句;
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
條件成立結(jié)果
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
成立時的結(jié)果
ElseIf 條件判斷 Then
成立時的結(jié)果
……
Else
不成立時的結(jié)果
End If
如:
Sub IF多條件判斷()
If Sheet1.Range('B3') >= 90 Then
Sheet1.Range('C3') = '優(yōu)秀'
ElseIf Sheet1.Range('B3') >= 80 Then
Sheet1.Range('C3') = '合格'
Else
Sheet1.Range('C3') = '不合格'
End If
End Sub
聯(lián)系客服