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

Sub select单条件判断()

i = 1

vba如何在jsp输入select的值VBA语句之select断定语句应用 RESTful API

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函数与VBA实例，如有抄袭任务必究。