Sub select多条件判断()
Select Case Sheet1.[b1].Value
Case Is > 0
MsgBox "大于0"
Case Else
MsgBox "小于或等于0"
End Select
End Sub
![](http://www.wfuyu.com/uploadfile/cj/20150502/20150501113914404.png)
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 王小涛_同