VBA如果在“下一循环"中不存在 [英] VBA If Else within For Next Loop

问题描述

我需要在For Next循环中使用VBA If Else语句

I need a VBA If Else statement within a For Next loop

我尝试了各种语句的排列方式，但是它们都出错了.

I have tried various arrangements of the statements, but they all error out.

Sub TestForIfElse()
   Dim Counter As Integer
   Dim i As Integer

   For i = 1 To 5

   Counter = i

   If Counter > 3 Then

        Exit For

    Else

    Next i   'ERROR NEXT WITHOUT FOR
End Sub

运行循环，直到满足测试条件为止.

Run loop until test is met.

如果未达到测试要求，请继续

If Test not met, keep going

如果满足测试条件，则退出循环.感谢您的帮助.

If test met, exit loop. Thanks for your help.

推荐答案

这将起作用:

Sub TestForIfElse()

   Dim Counter As Integer
   Dim i As Integer

   For i = 1 To 5

       Counter = i

       If Counter > 3 Then

            Exit For

       End If

   Next i

End Sub

这篇关于VBA如果在“下一循环"中不存在的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！