VBA第5课 select多条件判断

Sub select多条件判断()
Select Case Sheet1.[b1].Value
Case Is > 0
MsgBox "大于0"
Case Else
MsgBox "小于或等于0"
End Select
End Sub

Sub select多条件判断2()
Select Case Sheet1.[b1].Value
Case "12"
Sheet1.[a1] = "你输入的值为12"
Case Else
Sheet1.[a1] = "你输入的值不是12"
End Select
End Sub

转载请注明作者与出处：http://blog.csdn.net/u013511642  王小涛_同學