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

我试图做一个循环，将逐步如果ZuluLY> ZuluTY，如果祖鲁<ZuluTY逆向步进

当我尝试这个时，我不断收到“else if 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