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  王小濤_同學