在选择情况下在VBA excel中使用AND

Question

我正在尝试编写一个简单的函数，如果值是零，则给我带1；如果值是0至150k，则给我带2；如果150k至500k之间，则给我带3，依此类推。

即使值是1000万，我也只能在值为0且其他所有值为2时得到1

请帮忙

Function Band(ARR)

    Select Case ARR

        Case Is = 0
            Band = 1

        Case Is >= 0.1 And ARR <= 150000
            Band = 2

        Case Is >= 150000.01 And ARR <= 500000
            Band = 3

        Case Is >= 500000.01 And ARR <= 1500000
            Band = 4

        Case Is >= 1500000.01
            Band = 5

        Case Else
            Band = 6

    End Select

End Function

Answer 1

一旦满足匹配条件，则VBA选择案例“短路”（即不检查其他案例），因此不需要And运算符。

Function Band(ARR)
    Select Case true
        Case ARR < 0
            Band = 6
        Case arr = 0
            Band = 1
        Case arr <= 150000
            Band = 2
        Case arr <= 500000
            Band = 3
        Case arr <= 1500000
            Band = 4
        Case else
            Band = 5
    End Select
End Function

Answer 2

您可以使用“ To”关键字来指定范围。 浏览此处获取更多信息。

Function Band(arr)
Select Case arr
  Case 0
    Band = 1
  Case 0.01 To 150000
    Band = 2
  Case 150000.01 To 500000
    Band = 3
  Case 500000.01 To 1500000
    Band = 4
  Case arr >= 1500000.01
    Band = 5
  Case Else
    Band = 6
  End Select
End Function