选择判断结构VBA

nnsea

      Select Case 语句
        Sub select_test()
            B3 = Range("B3").Value
            Select Case B3
            Case 1 To 10
                msg = "1到10之间"
            Case 11 To 20
                msg = "11到20之间"
            Case 21, 22
                msg = "21,22的值"
            Case Else
                msg = "其他的值"
            End Select
            MsgBox (msg)
        End Sub