In VBA kun je een Do-lus verlaten met de Afsluiten Do opdracht.
| 1 | Afsluiten Do |
Wanneer de uitvoering van code komt tot: Afsluiten Do, verlaat de code de Do-lus en gaat verder met de eerste regel na de lus.
Als je wilt leren hoe je een For-lus afsluit, klik dan op deze link: VBA Exit For
Een lus verlaten wanneer aan een voorwaarde is voldaan
In het onderstaande voorbeeld ziet u hoe u een Do-lus kunt verlaten wanneer aan een bepaalde voorwaarde is voldaan. We zullen de waarde van de variabele i in elke iteratie met 1 herhalen en verhogen. Als het op 6 aankomt, willen we de lus verlaten en een berichtvenster retourneren. Hier is de code:
| 1234567891011 | Dim ik als geheel getalDoen terwijl ik < 10ik = ik + 1Als ik = 6 DanAfsluiten DoStop alsLusMsgBox "De waarde is " & i |
Eerst gaan we de Do Loop in als de waarde van i kleiner is dan 10:
| 123 | Doen terwijl ik < 10Lus |
In de body van de lus verhogen we de waarde van i met 1:
| 1 | ik = ik + 1 |
Daarna controleren we met het If-commando of de waarde van i gelijk is aan 6. Als de waarde 6 is, verlaten we de Do-lus en gaan we naar de eerste regel na de lus:
| 123 | Als ik = 6 DanAfsluiten DoStop als |
De eerste regel van de code die wordt uitgevoerd na het verlaten van de Do-lus is het berichtvenster met de waarde van i:
| 1 | MsgBox "De waarde is " & i |
Als u deze code uitvoert in Foutopsporingsmodus, je zult zien dat het 6 keer door de lus gaat. in de 6e iteratie, wordt de waarde van de variabele i 6 en komt de code in de If-body. Nu wordt het lichaam van de Do-lus verlaten. Daarna verschijnen de MsgBox-pop-ups met de waarde van i:
