excel VBA语句之select判断语句使用

今天教大家一些，在VBA当中的select判断语句的使用的具体操作方法和场景。

一、select语句单一条件判断：

Sub select单条件判断()

i = 1

Select Case i

Case Is > 0

MsgBox "正数"

Case Else

MsgBox "负数"

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