Sub select多条件判断

nnsea

Sub select单条件判断()
i = 1
Select Case i
Case Is > 0
    MsgBox "正数"
Case Else
    MsgBox "负数"
End Select
End Sub

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