VBA-判断语句之Select

声明：笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师：曾贤志

---

Select Cate 语句 根据表达式的值，
来决定执行几组语句中的其中之一。

Sub select单条件判断()
i = 1
Select Case i
Case Is > 0
    MsgBox "正数"
Case Else
    MsgBox "负数"
End Select
End Sub

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