I VBA kan du afslutte en For Loop ved hjælp af Afslut For kommando.
1 | Afslut For |
Når udførelsen af koden kommer til Afslut For, vil den forlade en For -sløjfe og fortsætte med den første linje efter sløjfen.
Hvis du vil lære at afslutte en Do -loop, skal du klikke på dette link: VBA Exit Loop
Afslut en For Loop, når en betingelse er opfyldt
Du vil se på eksemplet, hvordan du forlader en For -loop, når en bestemt betingelse er opfyldt. Vi vil loop og øge værdien af variablen i med 1 i hver iteration. Når det kommer til 5, vil vi forlade sløjfen og returnere en meddelelsesboks. Her er koden:
123456789 | Dim i As IntegerFor i = 1 til 10Hvis i = 5 SåAfslut ForAfslut HvisNæste iMsgBox "Værdien er" & i |
Først indtaster vi For Loop, hvis værdien af i er mindre end 10:
123 | For i = 1 til 10Næste i |
Derefter kontrollerer vi, om værdien af i er lig med 5, ved hjælp af kommandoen If. Hvis værdien er 5, forlader vi For -løkken og går til den første linje efter sløjfen:
12345 | Hvis i = 5 SåAfslut ForAfslut Hvis |
Hvis betingelsen ikke er opfyldt, øges følgende sætning i med 1 og indtastes i For -loop igen:
1 | Næste i |
Den første linje i koden, der vil blive eksekveret efter at have forladt For -løkken, er meddelelsesboksen med værdien i:
1 | MsgBox "Værdien er" & i |
Hvis du udfører denne kode i fejlfindingstilstanden, vil du se, at den vil gå gennem løkken 5 gange. I den 5th iteration, værdien af variablen i bliver 5, og koden indtastes i If -brødteksten. Nu forlades kroppen til For -løkken. Derefter vises MsgBox pop-ups med værdien i:
Billede 1. Exit For Loop eksempel