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