VBA語句 - 判斷語句

(1)IF判斷語句

單條件判斷

Sub 單條件判斷()
    If Range("a1") > 0 Then
        Range("b1") = "正數"
    Else
        Range("b1") = "負數或0"
    End If
End Sub

多條件判斷1

Sub 多條件判斷1()
    If Range("a1") >0 Then
        Range("b1") = "正數"
    ElseIf Range("a1") = 0 Then
        Range("b1") = "等於0"
    Else
        Range("b1") = "負數"
    End If
End Sub

多條件判斷2

Sub 多條件判斷2()
    If Range("a1") <>"" And Range("a2") <>"" Then
        Range("a3") = Range("a1") * Range("a2")
    End If
End Sub

區間判斷

Sub IF區間判斷()
    If Range("a1") >3000 Then
        Range("b1") = 0.01
    ElseIf Range("a1") > 1000 Then
        Range("b1") = 0.03
    Else
        Range("b1") = 0.05
    End If
End Sub

注意:以上均為數值比較,還可用字母比較,如下.

字母判斷

Sub 字母判斷()
    If Range("a1") < "G" Then
        MsgBox "A-G"
    End If
End Sub

 

(2)Select判斷

單條件判斷

Sub 單條件判斷()
    Select Case Range("a1").Value
    Case Is > 0
        Range("b1") = "正數"
    Case Else
        Range("b1") = "負數或0"
    End Select
End Sub

多條件判斷

Sub 多條件判斷()
    Select Case Range("a1").Value
    Case Is > 0
        Range("b1") = "正數"
    Case Is = 0
        Range("b1") = "0"
    Case Else
        Range("b1") = "負數"
    End Select
End Sub

區間判斷

Sub Select區間判斷()
    Select Case Range("a1").Value
    Case 0 To 1000
        Range("b1") = 0.05
    Case 1001 To 3000
        Range("b1") = 0.03
    Case Is > 3000
        Range("b1") = 0.01
    End Select
End Sub

 

IF判斷語句和Select判斷語句的區別:

1.IF判斷語句可同時判斷多個條件,而Select判斷語句需先選定一個對象再進行判斷

2.IF判斷語句使用較多,但Select判斷語句看起來較為簡潔

 

(3) IIF函數判斷

Sub 函數判斷()
    Range("b1") = IIF(Range("a1")<=0,"負數或零","正數")
End Sub