VBA sistemoje „For Loop“ galite išeiti naudodami Išeiti komandą.
1 | Išeiti |
Kai ateina kodo vykdymas Išeiti, jis išeis iš ciklo „For“ ir tęsis pirmąja eilute po ciklo.
Jei norite sužinoti, kaip išeiti iš Do ciklo, spustelėkite šią nuorodą: VBA Exit Loop
Išeikite iš ciklo, kai įvykdoma sąlyga
Pavyzdyje pamatysite, kaip išeiti iš ciklo „For“, kai įvykdoma tam tikra sąlyga. Kiekvienoje iteracijoje mes kelsime ir padidinsime kintamojo i reikšmę 1. Kalbant apie 5, norime išeiti iš ciklo ir grąžinti pranešimų laukelį. Čia yra kodas:
123456789 | Dim i As IntegerJei i = nuo 1 iki 10Jei i = 5, tadaIšeitiPabaiga JeiKitas I.„MsgBox“ Vertė yra „& i“ |
Pirma, mes įvedame „For Loop“, jei i vertė yra mažesnė nei 10:
123 | Jei i = nuo 1 iki 10Kitas I. |
Po to mes patikriname, ar i reikšmė lygi 5, naudodami komandą If. Jei vertė yra 5, mes išeiname iš ciklo „For“ ir einame į pirmąją eilutę po ciklo:
12345 | Jei i = 5, tadaIšeitiPabaiga Jei |
Jei sąlyga neįvykdyta, šis teiginys padidina i 1 ir vėl įveda į ciklą For:
1 | Kitas I. |
Pirmoji kodo eilutė, kuri bus vykdoma išėjus iš ciklo For, yra pranešimų laukelis su i reikšme:
1 | „MsgBox“ Vertė yra „& i“ |
Jei vykdysite šį kodą derinimo režimu, pamatysite, kad jis eis per ciklą 5 kartus. 5 -ametūkst iteraciją, kintamojo i reikšmė tampa 5 ir kodas įvedamas į If kūną. Dabar „For“ kilpos korpusas yra uždarytas. Po to iššokantys langai „MsgBox“ su i reikšme:
Vaizdas 1. Exit For Loop pavyzdys