VBA varat iziet no Do cilpas, izmantojot Iziet Do komandu.
1 | Iziet Do |
Kad pienāk koda izpilde Iziet Do, kods iziet no cilpas Do un turpinās ar pirmo rindu pēc cilpas.
Ja vēlaties uzzināt, kā iziet no cilpas For, noklikšķiniet uz šīs saites: VBA Exit For
Iziet no cilpas, ja nosacījums ir izpildīts
Tālāk redzamajā piemērā redzēsit, kā iziet no Do cilpas, kad ir izpildīts noteikts nosacījums. Katrā atkārtojumā mēs mainīsim mainīgā i vērtību un palielināsim to par 1. Runājot par 6, mēs vēlamies iziet no cilpas un atgriezt ziņojumu lodziņu. Šeit ir kods:
1234567891011 | Dim i As IntegerDarīt, kamēr es <10i = i + 1Ja i = 6, tadIziet DoBeigas JaCilpaMsgBox "Vērtība ir" & i |
Pirmkārt, mēs ievadām cilpu Do, ja i vērtība ir mazāka par 10:
123 | Darīt, kamēr es <10Cilpa |
Cilpas korpusā mēs palielinām i vērtību par 1:
1 | i = i + 1 |
Pēc tam mēs pārbaudām, vai i vērtība ir vienāda ar 6, izmantojot komandu If. Ja vērtība ir 6, mēs izejam no cilpas Do un dodamies uz pirmo rindu pēc cilpas:
123 | Ja i = 6, tadIziet DoBeigas Ja |
Pirmā koda rinda, kas tiks izpildīta pēc Do cilpas iziešanas, ir ziņojumu lodziņš ar i vērtību:
1 | MsgBox "Vērtība ir" & i |
Ja izpildāt šo kodu Atkļūdošanas režīms, jūs redzēsiet, ka tas iet cauri cilpai 6 reizes. 6tūkst iterācija, mainīgā i vērtība kļūst par 6 un kods tiek ievadīts If korpusā. Tagad Do cilpas pamatteksts ir aizvērts. Pēc tam uznirstošie logi MsgBox ar i vērtību: