VBA基礎知識———常用語句

語句一：if判斷語句

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

Sub 判斷2() '多條件判斷
  If Range("a1").Value > 0 Then
     Range("b1") = "正數"
  ElseIf Range("a1") = 0 Then
     Range("b1") = "等於0"
  ElseIf Range("B1") <= 0 Then
     Range("b1") = "負數"
  End If
End Sub

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

　　

語句二：IIF函數判斷

Sub 判斷4()
  Range("a3") = IIf(Range("a1") <= 0, "負數或零", "負數")
End Sub

　　

語句三：select判斷

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

Sub 判斷2() '多條件判斷
  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 判斷3()
 If Range("a3") < "G" Then
   MsgBox "A-G"
 End If
End Sub

　　

語句四：判斷范圍

Sub if區間判斷()
If Range("a2") <= 1000 Then
  Range("b2") = 0.01
ElseIf Range("a2") <= 3000 Then
  Range("b2") = 0.03
ElseIf Range("a2") > 3000 Then
  Range("b2") = 0.05
End If
End Sub

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

　　總結：VBA常見判斷方法和函數