Änderung Schleifenrichtung, wenn die Bedingung erfüllt

Question

Ich versuche, eine Schleife zu machen, die schrittweise gehen, wenn ZuluLY> ZuluTY und schrittweise umkehren, wenn Zulu < ZuluTY

Ich halte die „else ohne wenn“ kompilieren Fehler bekommen, wenn ich versuche, Dies. Die Schleife funktioniert ohne die IF-Anweisung Konditionierung, aber wenn ich die IF-Anweisung hinzufügen, erhalte ich den Fehler.

Hier ist ein Codeausschnitt zeigt, was ich

If ZuluLY > ZuluTY Then 
For yr = LBound(Year_Arr) To UBound(Year_Arr) 
ElseIf ZuluLY < ZuluTY Then 
For yr = UBound(Year_Arr) To LBound(Year_Arr) Step -1 
End If 
'..... code 

Answer 1

Dim vStart, vEnd, vStep 

If ZuluLY > ZuluTY Then 
    vStart = LBound(Year_Arr) 
    vEnd = UBound(Year_Arr) 
    vStep = 1 
else 
    vStart = UBound(Year_Arr) 
    vEnd = LBound(Year_Arr) 
    vStep = -1 
end if 


For yr = vStart To vEnd Step vStep