vba中用if判断多个条件，符合其中一个就跳出

Question

例如条件为
a=1
a=20
a=40
a=100
a=300
先判断是否=1 如满足则执行满足1下面的语句之后跳出后面的判断，反之则判断是否=20，满足则执行满足20下面的语句之后跳出后面的判断，反之则再判断是否满足=40.....以此类推。
请问各位大大这个代码怎么写！
这个判断在一个for循环中！

Answer 1

可以用if elseif else，也可以用select case，示例代码如下：

（1）if elseif；

Sub if_sample()
    Dim i As Integer
    For i = 1 To 300
        If i = 1 Then
            Debug.Print "i值等于1"
        ElseIf i = 20 Then
            Debug.Print "i值等于20"
        ElseIf i = 40 Then
            Debug.Print "i值等于40"
        ElseIf i = 100 Then
            Debug.Print "i值等于100"
        ElseIf i = 300 Then
            Debug.Print "i值等于300"
        End If
    Next i
End Sub

（2）select case;

Sub select_sample()
    Dim i As Integer
    For i = 1 To 300
        Select Case i
            Case 1:
            Debug.Print "i值等于1"
            Case 20:
            Debug.Print "i值等于20"
            Case 40:
            Debug.Print "i值等于40"
            Case 100:
            Debug.Print "i值等于100"
            Case 300:
            Debug.Print "i值等于300"
        End Select
    Next i
End Sub

Answer 2

不停地IF，能说说详细吗，在for中是什么意思？没个情况下代码不一样吗？