VBA語法01:VBA當中的IF語句單一條件判斷和多條件判斷的使用

本節課主要講解語法篇的第一篇,IF函數的當中的IF語句單一條件判斷和多條件判斷的使用細節。

一、IF語句單一條件判斷:

VBA語法01:VBA當中的IF語句單一條件判斷和多條件判斷的使用

假設:如圖第二部分,當 I3>=90時,J3為通過,反之為不通過。

VBA語法01:VBA當中的IF語句單一條件判斷和多條件判斷的使用

代碼如下:

Sub IF單一條件判斷()

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

Sheet1.Range("j3") = "通過"

Else

Sheet1.Range("j3") = "不通過"

End If

End Sub

一、IF語句多條件判斷:

VBA語法01:VBA當中的IF語句單一條件判斷和多條件判斷的使用


假設:如圖第一部分,當 B3>=90時,C3為良好;當 B3>=80時,C3為合格,反之為不合格。

VBA語法01:VBA當中的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

三、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


分享到:


相關文章: