VBA基礎二：判斷（IF，IIF，CASE）

'VBA中的IF條件判斷語句，就像函數中的IF一樣
'IF可單條件，也可多條件。

Sub IF條件判斷之單條件1()
Dim a%, b%
a = 2
b = 2
If a = b Then MsgBox "相等"
End Sub

Sub IF條件判斷之單條件2()
Dim a%, b%
a = 2
b = 2
If a = b Then
MsgBox "相等"
End If
End Sub

Sub IF條件判斷之單條件3()
Dim a%, b%
a = 2
b = 2
If a = b Then
MsgBox "相等"
Else
MsgBox "不相等"
End If
End Sub

Sub IF條件判斷之多條件等級划分()
If Sheet1.Range("b1") >= 90 Then
Sheet1.Range("b2") = "優秀"
ElseIf Sheet1.Range("b1") >= 80 Then
Sheet1.Range("b2") = "良好"
ElseIf Sheet1.Range("b1") >= 70 Then
Sheet1.Range("b2") = "中等"
Else
Sheet1.Range("b2") = "較差"
End If
End Sub

'VBA中的IIF函數與工作表函數（IF）的語法結一致
Sub IIF函數應用()
Cells(2, 3) = IIf(Cells(1, 2) > 80, "優秀", "不優秀")
End Sub

 

'思考題？
'IIF也可以像工作表函數IF一樣多層嵌套，現在請用IIF對sheet1表的分數進行等級判斷？

 

另一種條件判斷方法

'Select Case 語句 根據表達式的值，來決定執行幾組語句中的其中之一。

Sub select單條件判斷()
i = 1
Select Case i
Case Is > 0
MsgBox "正數"
Case Else
MsgBox "負數"
End Select
End Sub

Sub select多條件判斷()
Select Case Sheet1.[d1].Value
Case "A"
Sheet1.[a3] = "A型血的你，是個不怎么樣的人！"
Case "B"
Sheet1.[a3] = "B型血的你，也是個不怎么樣的人~"
Case "AB"
Sheet1.[a3] = "AB型血的你，是個更不怎么樣的人~"
Case "O"
Sheet1.[a3] = "O型血的你，還是不錯的！"
Case Else
Sheet1.[a3] = "沒有這種型血，看來你 是個最不怎么樣的人~！"
End Select
End Sub