从下一个循环中前进到下一个项目

Question

我有一个For-Next循环。 在循环中，我测试了几个不同的条件，如果任何测试失败，那么我准备跳过该循环中的其余代码，进入“下一个”项目。 我当前处理此问题的方式是使用GoTo语句，该语句将我带到“下一步”之前的那一行。 我不希望使用GoTo语句，是否还有另一种方法可以在For-Next循环中进入“下一个”项目？ TIA！

For x = 1 to 10
    Test 1
    If Test 1 fails then
        GoTo Line1
    End if

    Test 2
    If Test 2 fails then
        GoTo Line1
    End if
    .
    .
    .
    If all tests pass then
        add item to array
    End if
Line1:    
Next

Answer 1

不幸的是，vba中的for循环中没有类似continue的语句。 （相关的控制结构Exit For确实存在，但这对您没有帮助）。

最好保留使用GoTo ：它们确实使代码难以遵循。

最好的选择是将代码放入单独的函数中的循环中，并在适当的位置使用该函数中的Exit Function 。 您甚至可以将错误代码中继回调用者，从而帮助扩展代码。

Answer 2

以下是缺少continue关键字的解决方法：

For x = 1 to 10
    Do
        Test 1
        If Test 1 fails then
            Exit Do
        End if

        Test 2
        If Test 2 fails then
            Exit Do
        End if
        .
        .
        .
        If all tests pass then
            add item to array
        End if
    Loop While False
Next

Answer 3

您可以使用if else梯形图：

For x = 1 to 10
if test 1 
else if test 2
else if test 3
. 
.
.
.
else
  add item to array
end if
Next

除了GoTo之外，没有任何直接方法可以在您的代码之间跳转，希望这可以有所帮助。

Answer 4

如果没有太多测试，则可以使用Not条件并构建嵌套的If语句。 这应该具有与您要求的效果几乎相同的效果，因为任何失败的测试都会终止该If语句，并将代码移至循环中的下一个X，而无需执行以下测试。

这是我的意思的示例-一个两个测试循环，构建一个包含数字5到10的数组：

Sub TestConditionalPass()

    Dim intX As Integer
    Dim intArray() As Integer
        ReDim intArray(1)

    For intX = 1 To 10
        If Not intX -2 < 1 Then
            If Not intX * 2 < 10 Then
                ReDim Preserve intArray(UBound(intArray) + 1)
                    intArray(UBound(intArray)) = intX
            End If
        End If
    Next intX

End Sub

Answer 5

由于仅在所有测试成功后才执行操作，因此请使用ands进行if语句。 VBA不会短路测试（即，即使第一个返回false，它也会评估每个测试用例。）我建议将每个测试封装在一个返回布尔值的函数中，以保持代码整洁。

If Test1()  and _
   Test2()  and _
   testn()  THEN
    add item to array
End if

另一种方法是在代码中使用布尔变量，像这样

Dim Success as Boolean
Success=True
Test 1
If Test 1 fails then
    Success=false
End if

Test 2
If Test 2 fails then
    Success=false
End if
.
.
.
If Success then
    add item to array
End if

如果测试费用昂贵，则可以添加内部if语句检查以查看是否需要评估下一个这样的测试

 If Success Then
    If Test n fails then
       Success=false
    End If
End if