如果条件满足则改变循环方向

Question

如果ZuluLY＆gt;我试图制作一个逐步循环的循环如果Zulu＆lt; ZuluTY，则逐步逆转ZuluTY

当我尝试这个时，我一直得到“其他没有if”编译错误。 循环工作正常，没有IF语句条件，但当我添加IF语句时，我得到错误。

这是一段显示我尝试过的代码片段

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