VBA galite išeiti iš Do ciklo naudodami Išeiti Daryti komandą.
1 | Išeiti Daryti |
Kai ateina kodo vykdymas Išeiti Daryti, kodas išeis iš Do ciklo ir tęsis pirmąja eilute po ciklo.
Jei norite sužinoti, kaip išeiti iš ciklo „For“, spustelėkite šią nuorodą: VBA Exit For
Išeikite iš ciklo, kai įvykdoma sąlyga
Toliau pateiktame pavyzdyje pamatysite, kaip išeiti iš „Do“ ciklo, kai įvykdoma tam tikra sąlyga. Kiekvienoje iteracijoje mes kelsime ir padidinsime kintamojo i reikšmę 1. Kalbant apie 6, norime išeiti iš ciklo ir grąžinti pranešimų laukelį. Čia yra kodas:
1234567891011 | Dim i As IntegerDaryti kol aš <10i = i + 1Jei i = 6, tadaIšeiti DarytiPabaiga JeiKilpa„MsgBox“ Vertė yra „& i“ |
Pirma, mes įvedame „Do Loop“, jei i vertė yra mažesnė nei 10:
123 | Daryti kol aš <10Kilpa |
Kilpos kūne mes padidiname i reikšmę 1:
1 | i = i + 1 |
Po to mes patikriname, ar i reikšmė lygi 6, naudodami komandą If. Jei vertė yra 6, mes išeiname iš Do ciklo ir einame į pirmąją eilutę po ciklo:
123 | Jei i = 6, tadaIšeiti DarytiPabaiga Jei |
Pirmoji kodo eilutė, kuri bus vykdoma išėjus iš ciklo „Do“, yra pranešimų langelis su i reikšme:
1 | „MsgBox“ Vertė yra „& i“ |
Jei įvykdysite šį kodą Derinimo režimas, pamatysite, kad jis eis per kilpą 6 kartus. 6 -ametūkst iteraciją, kintamojo i reikšmė tampa 6, o kodas įvedamas į If kūną. Dabar „Do“ kilpos korpusas yra uždarytas. Po to iššokantys langai „MsgBox“ su i reikšme: