case else

本节课主要讲解语法篇的第二课，VBA当中的lect判断语句的使用。

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

Sub lect单条件判断()

i = 1

Select Ca i

Ca Is > 0

MsgBox "正数"

Ca El

MsgBox "负数"

End Select

End Sub

二、lect语句多条件判断：

Sub lect多条件判断()

Select Ca Sheet1.[d1].Value

Ca "A"

Sheet1.[a3] = "A型血的你，是个不怎么样的人！"

Ca "B"

Sheet1.[a3] = "B型血的你，也是个不怎么样的人~"

Ca "AB"

Sheet1.[a3] = "AB型血的你，是个更不怎么样的人~"

Ca "O"

Sheet1.[a3] = "O型血的你，还是不错的！"

Ca El

Sheet1.[a3] = "没有这种型血，看来你 是个最不怎么样的人~！"

End Select

End Sub