Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如果条件满足,则更改循环方向_Excel_Vba_Loops_For Loop - Fatal编程技术网

Excel 如果条件满足,则更改循环方向

Excel 如果条件满足,则更改循环方向,excel,vba,loops,for-loop,Excel,Vba,Loops,For Loop,我试图做一个循环,如果ZuluLY>ZuluTY,它将逐步进行,如果Zulu

我试图做一个循环,如果ZuluLY>ZuluTY,它将逐步进行,如果Zulu 当我尝试此操作时,我一直得到没有if编译错误的else。 循环在没有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

啊哈!我没有想过把它分配给一个变量。非常感谢你,蒂姆!
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