nested for loops and end for

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

If i have a nested for loop and put an END FOR in the inner loop, will it
exit just the inner loop or both loops?
 
Give it a try... Here is some code for you to follow through...

Sub TestLoops()
Dim i As Integer
Dim j As Integer

For i = 1 To 3
For j = 1 To 100
MsgBox i * j
If j = 3 Then Exit For
Next j
Next i
End Sub
 
"End For" is a syntax error. Exit For will exit only the For...Next
structure that it's embedded in.

From XL/VBA Help ("Exit Statement"):
Exit For
Provides a way to exit a For loop. It can be used only in a
For...Next or For Each...Next loop. Exit For transfers control to
the statement following the Next statement. When used within nested
For loops, Exit For transfers control to the loop that is one
nested level above the loop where Exit For occurs.
Click to expand...

One alternative if you want to exit both loops:

Dim a(1 To 100, 1 To 1000)
Dim i As Long, j As Long
Do
For i = 1 To 100
For j = 1 To 1000
a(i, j) = Int(Rnd() * 100)
If a(i, j) = 98 Then Exit Do
Next j
Next i
Loop
Debug.Print i, j

or

Dim a(1 To 100, 1 To 1000)
Dim i As Long, j As Long
For i = 1 To 100
For j = 1 To 1000
a(i, j) = Int(Rnd() * 100)
If a(i, j) = 98 Then GoTo Continue
Next j
Next i
Continue:
Debug.Print i, j
 
Back
Top