VBA中条件语句的使用（鸡毛贴）

[longzai0803]

各位大侠：
大家好。有一个问题在VBA使用过程中IF条件的使用。
要求：
在0<a<51,取5；
在50<a<91,取7；
在90<a<151,取11；
在150<a<281,取13；
在280<a<501,取16；
在500<a<1201,取5；
感激不尽。

[神马被哪个妞占用了呢]

If a<51 And a>0 Then b=5
ElseIf a>50 And a<91 Then b=7
......
End If

[luobaoline]

Option Explicit

Private Sub Command1_Click()
        Dim a As Long, B As String
        B = InputBox("请输入数字然后按OK", "提示")
        If IsNumeric(B) = True Then
            a = CLng(B)
            If 0 < a And a < 51 Then
                a = 5
            ElseIf 50 < a And a < 91 Then
                a = 7
            ElseIf 90 < a And a < 151 Then
                a = 11
            ElseIf 150 < a And a < 281 Then
                a = 13
            ElseIf 280 < a And a < 501 Then
                a = 16
            ElseIf 500 < a And a < 1201 Then
                a = 5
            End If
            MsgBox "最终的数是" & a
        End If
End Sub

[yangao]

楼主你的条件本身就有问题
交叉了