U VBA -u možete izaći iz Do petlje pomoću Izlaz Do naredba.
1 | Izlaz Do |
Kada dođe do izvršenja koda Izlaz Do, kôd će izaći iz petlje Do i nastaviti s prvim retkom nakon petlje.
Ako želite naučiti kako izaći iz For petlje, kliknite na ovu vezu: VBA Izlaz za
Izađite iz petlje kada je uvjet ispunjen
U donjem primjeru vidjet ćete kako izaći iz Do petlje kada je ispunjen određeni uvjet. Petlju ćemo i povećavati vrijednost varijable i za 1 u svakoj iteraciji. Kad je riječ o 6, želimo izaći iz petlje i vratiti okvir s porukom. Evo koda:
1234567891011 | Dim i Kao cijeli brojUčiniti Dok sam <10i = i + 1Ako je i = 6 TadaIzlaz DoZavrši akoPetljaMsgBox "Vrijednost je" & i |
Prvo ulazimo u Do Loop ako je vrijednost i manja od 10:
123 | Učiniti Dok sam <10Petlja |
U tijelu petlje povećavamo vrijednost i za 1:
1 | i = i + 1 |
Nakon toga provjeravamo je li vrijednost i jednaka 6, pomoću naredbe If. Ako je vrijednost 6, izlazimo iz petlje Do i idemo u prvi redak nakon petlje:
123 | Ako je i = 6 TadaIzlaz DoZavrši ako |
Prvi redak koda koji će se izvršiti nakon izlaska iz Do petlje je okvir s porukom vrijednosti i:
1 | MsgBox "Vrijednost je" & i |
Ako izvršite ovaj kod u Način otklanjanja pogrešaka, vidjet ćete da će proći petlju 6 puta. U 6th iteracija, vrijednost varijable i postaje 6 i kôd ulazi u If tijelo. Sada je tijelo Do petlje napušteno. Nakon toga, skočni prozori MsgBox s vrijednošću i: