case else

本節(jié)課主要講解語(yǔ)法篇的第二課，VBA當(dāng)中的lect判斷語(yǔ)句的使用。

一、lect語(yǔ)句單一條件判斷：

Sub lect單條件判斷()

i = 1

Select Ca i

Ca Is > 0

MsgBox "正數(shù)"

Ca El

MsgBox "負(fù)數(shù)"

End Select

End Sub

二、lect語(yǔ)句多條件判斷：

Sub lect多條件判斷()

Select Ca Sheet1.[d1].Value

Ca "A"

Sheet1.[a3] = "A型血的你，是個(gè)不怎么樣的人！"

Ca "B"

Sheet1.[a3] = "B型血的你，也是個(gè)不怎么樣的人~"

Ca "AB"

Sheet1.[a3] = "AB型血的你，是個(gè)更不怎么樣的人~"

Ca "O"

Sheet1.[a3] = "O型血的你，還是不錯(cuò)的！"

Ca El

Sheet1.[a3] = "沒(méi)有這種型血，看來(lái)你 是個(gè)最不怎么樣的人~！"

End Select

End Sub