Wie überspringe ich eine Iteration in FOR Schleife in

Question

Ich exportiere zwei Blatt von externen Excel-Blatt, Blatt1 mit dem Namen Global und Sheet2 mit dem Namen Data.

Das globale Blatt enthält Anmeldedaten und das Datenblatt enthält mehrere Eingänge.

Ich habe mehr als zwei Zeilen im Datenblatt und möchte die Zeile überspringen (wenn pi = 01) und die nächste Zeile im Datenblatt ausführen.

Code:

case 51 

if processindicator = 01 then 
ExitActionIteration 
Else 
"statement" 
End If 

aber es ist das Überspringen alle Iteration anstelle der aktuellen Iteration

mir helfen, diese und Dank im Voraus zu lösen

Answer 1

Da wir es nicht den gesamten Code sehen ist schwer zu sagen. Aber vielleicht ist das folgende Beispiel das, wonach Sie suchen. Grundsätzlich wird es von 1 bis 100 geht und nur überspringt die Zahl 51:

Public Sub TestSkippingOfAnIteration() 

Dim i As Long 

For i = 1 To 100 
    If i = 51 Then i = i + 1 
    Debug.Print i 
Next i 

End Sub 

Lassen Sie mich wissen, ob das Ihr Problem löst. Ansonsten bitte den gesamten relevanten Code ausarbeiten und posten.

Answer 2

Wickeln Sie den bedingten Code in einer If Aussage:

For i = 1 To 10 
    ... 
    If processIndicator <> 1 Then 
     '// do whatever you want here 
    End If 
Next 

oder (weniger empfohlen, da es die Lesbarkeit und Logik nimmt ab) verwenden, um eine GoTo Anweisung:

For i = 1 To 10 
    ... 
    If processIndicator = 1 Then 
     GoTo Skip_Line: 
    Else 
     '// do whatever you want here 
    End If 
    ... 

Skip_Line: 
Next