vba2010 select 语句用法备忘

Sub select用法()
a = Cells(3, "R")
Select Case a　　　　　　select case  比较表达式
　　Case Is < 1　　　　　　小于、大于、不等于 用case is > < <> value   表示
　　　　Cells(3, "S") = 1　　　　条件成立执行的语句
　　Case Is < 2.5
　　　　Cells(3, "S") = 2
　　Case 3　　　　　　　　　　判断等于某个值  用 case  value  表示
　　　　Cells(3, "S") = 3
　　Case 4 To 6
　　　　Cells(3, "S") = 4
　　Case 7 To 10, Is < 8　　　　判断范围用   case 下限  to  上限   表示，多个条件用","分开   条件为或关系，多条件感觉不好用！
　　　　Cells(3, "S") = 9
　　Case Else
　　　　Cells(3, "S") = 1111
End Select　　　　　　　　　　select 语句结束时不要忘记  end select

End Sub