怎么用VBA中select.case完成这个条件

'如果一定要使用zhidaoSELECT CASE，建议这样写版

    Select Case Range("a1")

        Case Is < 0: MsgBox "z"

        Case 0 To 10: MsgBox "a"

        Case 11 To 15: MsgBox "b"

        Case 16 To 20: MsgBox "c"

        Case 21 To 30: MsgBox "b"

        Case 31 To 40: MsgBox "c"

        Case Is > 40: MsgBox "z"

    End Select

其实对于本例子的情况，最好还权是用IF。