本節課主要講解語法篇的第二課，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入門到精通 的文章
