本节课主要讲解语法篇的第二课，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
分享到:
閱讀更多 Excel入門到精通 的文章
