今天教大家一些，在VBA當中的select判斷語句的使用的具體操作方法和場景。

一、select語句單一條件判斷：

Sub select單條件判斷()

i = 1

Select Case i

Case Is > 0

MsgBox "正數(shù)"

Case Else

MsgBox "負數(shù)"

End Select

End Sub

二、select語句多條件判斷：

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