Buclele Do oferă mai multă flexibilitate decât buclele For, prin faptul că se pot testa condițiile și, în consecință, direcționa fluxul procedurii. VBA include mai multe tipuri de bucle Do:

• Do While...Loop
• Do...Loop While
• Do Until...Loop
• Do...Loop Until

Aceste bucle se pot împărți în două categorii:

• Bucle care testează o condiție la începutul buclei, înainte de a executa instrucțiunile din buclă. Buclele Do While...Loop și Do Until...Loop se află în această categorie. Altfel zis, atunci când condiția din test nu este îndeplinită, instrucțiunile din blocul buclei nu va fi executat deloc.
• Bucle care testează o condiție la sfârșitul buclei. Acest tip de buclă execută mai întâi codul din blocul buclei înainte de a testa condiția. Buclele Do...Loop While și Do...Loop Until se încadrează în această categorie. Acest tip de buclă este executat cel puțin o dată.

Diferența dintre cele două tipuri de bucle din fiecare categorie este că fiecare buclă While se repetă pe sine însăși atâta timp (while) cât condiția este True (până când condiția devine False), iar fiecare buclă Until se repetă până când (until) condiția devine True (atâta timp cât condiția rămâne False).

Acest lucru înseamnă că puteți folosi într-o oarecare măsură doar buclele While sau doar buclele Until - trebuie doar să configurați invers unele dintre condiții. De exemplu, puteți utiliza o buclă Do while...Loop cu condiția x <100 sau o buclă Do Until...Loop cu condiția x = 100 pentru a obține același efect. Altfel spus: bucla While x <100 este echivalentă cu bucla Until x = 100 - atât timp valoarea din condiție este sub 100.

Următoarele secțiuni descriu toate tipurile de bucle Do pentru a înțelege când trebuie folosite.

SINTAXĂ

Sintaxa pentru bucla Do While...Loop este simplă:

Do While condition 

  [instructiuni]

  [Exit Do]

  [instructiuni]

Loop

Atâta timp cât condition este îndeplinită (Fă acest lucru atâta timp cât condiția rămâne adevărată), instrucțiunile din buclă sunt executate. Cuvântul cheie Loop întoarce execuția la linia Fă (Do), care este reevaluată. Dacă condition este încă adevărată, bucla continuă - se iterează din nou.

Însă dacă condition este falsă, execuția sare la codul de sub blocul de buclă, începând cu instrucțiunea de pe linia de după cuvântul cheie Loop.

Puteți utiliza una sau mai multe instrucțiuni Exit Do opționale dacă doriți să ieșiți din buclă fără să așteptați până când condition devine falsă.

De exemplu pentru a construi un glosar dintr-un document Word lung, care evidențiază termenii principali prin scriere înclinată. Acești termeni se găsesc în textul corpului, precum și în listele cu buline sau numerotate. Cu toate acestea, doriți să evitați să alegeți termeni italici folosiți în alte elemente ale documentului, cum ar fi titluri (heading) sau captions. În această situație, textul corpului scris cu fontul Times New Roman, iar subtitrările și titlurile sunt scrise cu alte fonturi.

Ați putea comanda Word să caute text Times New Roman cu atributul italic. Dacă Word a găsit instanțe ale textului, ar lua măsurile adecvate, cum ar fi selectarea propoziției care conține termenul, împreună cu următoarea propoziție (sau restul alineatului) și copierea acesteia la sfârșitul unui alt document. Apoi va continua căutarea, efectuând bucla până nu va mai găsi cazuri de text italic Times New Roman.

Exemplul de mai jos prezintă modul în care ar putea fi construită o astfel de procedură cu o structură Do while...Loop. Această listă include o serie de comenzi despre care nu ați aflat încă, dar ar trebui să vedeți cum funcționează bucla acestui cod.

Procedura GenerareGlosar de mai sus copie elementele scrise înclinat (italic) cu fontul Times New Roman din documentul curent și le inserează într-un document nou pe care îl crează și salvează. Iată ce se petrece:

• Linia 1 începe procedura.
• Liniile 3, 4 și 5 declară variabilele strSursa, strDestinatie și strNumeGlosar, de tip String.
• Linia 7 atribuie proprietatea Caption pentru fereastra activă la variabila strSursa de tip String. Procedura folosește această variabilă pentru a activa documentul când trebuie să lucreze cu el.
• Linia 8 afișează o casetă de dialog care cere utilizatorului să introducă un nume pentru documentul care va conține intrările din glosar, extrase din documentul curent. Va stoca caracterele pe care utilizatorul le va introduce în variabila strNumeGlosar de tip String.
• Linia 9 compară strNumeGlosar cu un șir gol ("") pentru a se asigura dacă utilizatorul a făcut clic pe butonul Cancel pentru a anula procedura sau clic pe butonul OK fără a scrie ceva în caseta de dialog. Dacă strNumeGlosar este un șir gol, linia 9 folosește o comandă End pentru a termina executarea procedurii.
• Dacă pe linia 9 nu se oprește procedura, linia 11 creează un nou document gol. (Acest document se bazează pe șablonul global Normal.dotm, deoarece nu este folosit niciun argument de șablon pentru a specifica un alt șablon.) Acest document va deveni documentul glosar
• Linia 12 salvează documentul cu numele scris de utilizator în caseta de dialog.
• Linia 13 stochează proprietatea Caption a acestui document în variabila strDestinatie, pentru a putea activa acest document când va fi nevoie în procedură. Acum documentul sursă este identificat de variabila strSursa și documentul destinație de variabila strDestinatie.
• Linia 14 folosește metoda Activate pentru a activa fereastra strSursa. Linia 16 folosește metoda HomeKey a obiectului Selection cu unitatea wdStory pentru a muta punctul de inserție la începutul documentului, locul de unde procedura va începe să preia cuvintele scrise înclinat și cu Times New Roman.
• Liniile de la 17 până la 20 detaliază operația Find pe care o va realiza procedura: Linia 17 șterge orice formatare aplicată la elementul Find curent, linia 18 setează caracteristica Find pentru a găsi doar caracterele scrise înclinat, linia 19 setează Find ca să găsească textul scris cu Times New Roman, iar linia 20 specifică caracterele care vor fi căutate, care aici sunt un șir gol ("") ce duce ca Find să caute doar formatarea specificată.
• Linia 21 execută operația de căutare Find folosind metoda Execute. Liniile de la 23 până la 32 implementează bucla Do While...Loop. Linia 23 conține condiția pentru buclă: While Selection.Find.Found (atâta timp cât operațiunea Find poate găsi o instanță de text scrisă înclinat și cu Times New Roman specificată în liniile anterioare). Atâta timp cât condiția este îndeplinită, (este True), comenzile din buclă vor fi executate.
• Linia 24 copie selecția (elementul găsit scris înclinat cu Times New Roman).
• Linia 25 mută punctul de inserție un caracter la dreapta, pentru a deselecta textul găsit și a pregăti procedura să caute următoarea instanță din document.
• Trebuie să mutați punctul de inserție în afara selecției la dreapta pentru ca următoarea operațiune de căutare Find să nu găsească aceeași instanță. (Dacă căutarea în document s-ar face de la sfârșit la început, va trebui ca punctul de inserție să se mute la stânga folosind comanda Selection.MoveLeft.)
• Linia 26 activează fereastra strDestinatie, care se deschide în Word.
• Linia 27 mută punctul de inserție la sfârșitul documentului glosar, iar linia 28 adaugă elementul copiat la poziția punctului de inserție. Aici, mutarea la sfârșitul documentului nu este strict necesară, pentru că șablonul global Normal.dotm nu conține text - dacă Normal.dotm este gol, noul document creat la linia 11 va fi și el gol, iar începutul și sfârșitul documentului se vor afla în aceeași poziție. Și după fiecare operație de adăugare (paste), Word va poziționa punctul de inserție după elementul adăugat. Oricum, dacă Normal.dotm conține text, atunci acest pas este necesar.
• Linia 29 folosește metoda TypeParagraph a obiectului Selection pentru a adăuga un paragraf după textul introdus cu operațiunea paste.
• Linia 30 activează documentul strSursa, iar linia 31 repetă operațiunea Find.
• Instrucțiunea Loop de pe linia 32 redeschide bucla pentru executarea procedurii, înapoi la linia 23, unde condiția Do While Selection.Find.Found evaluează dacă ultima operație Find a avut succes (True).
• Dacă este True, bucla continuă; dacă nu, execuția procedurii continuă de la linia 34, care activează documentul glosar. Linia 35 salvează documentul activ (documentul glosar, care tocmai a fost activat), iar linia 36 închide documentul.

Blocul Do While...Loop descris mai sus are sens, dar acest bloc Do...Loop While pare ciudat. Cum se pot executa comenzile din bloc înainte de a verifica condiția?

Totuși, buclele Do...Loop While sunt foarte utile, în unele situații diferite de cele în care se folosesc buclele Do While...Loop.

Luați în considerare exemplul de loterie, în care executați acțiunea înainte de a verifica starea care controlează bucla. Mai întâi cumpărați un bilet la loterie, apoi verificați dacă ați câștigat. Dacă nu ați câștigat sau ați câștigat doar o sumă mică, vă bucurați și cumpărați mai multe bilete pentru următoarea loterie. (De fapt, aceasta este în mod logic o buclă Do...Loop Until, mai degrabă decât o buclă Do...Loop While deoarece continuă bucla atâta timp cât condiția este False; atunci când câștigați o cantitate suficient de mare, condiția devine True.)

De asemenea, în programare nu este ceva neobișnuit să întreprindeți o acțiune și apoi să verificați dacă trebuie să o repetați. De exemplu, poate doriți să aplicați o formatare specială la paragraful curent și apoi verificați dacă alte paragrafe au același tratament.

SINTAXA

Sintaxa pentru bucla Do...Loop While este următoarea:

Do

  [instructiuni]

  [Exit Do]

[instructiuni]

Loop While condition

VBA efectuează instrucțiunile incluse în buclă, după care linia Loop while evaluează starea. Dacă este True, VBA returnează execuția pe linia Do și bucla continuă să se execute; dacă este False, execuția continuă cu linia de după linia Loop while.

Ca exemplu de buclă Do...Loop While, luați în considerare acest verificator de parole pe care l-ați putea folosi pentru a împiedica pe cineva să execute o macrocomandă fără a furniza parola corectă:

Sub pass()

Dim ParolaCorecta As Variant

Dim varParola As Variant

ParolaCorecta = "corinth"

Do

  varParola = InputBox _

    ("Introduceti parola pentru a porni procedura:", _

    "Verificare parola 1.0")

Loop While varParola <> ParolaCorecta

End Sub

Aici, bucla Do...Loop While afișează mai întâi o casetă de intrare pentru ca utilizatorul să introducă parola. Linia Loop While compară valoarea din caseta de intrare, stocată în varParola, cu parola corectă (aici, ParolaCorecta). Dacă cele două nu sunt egale (varParola <> ParolaCorecta), bucla continuă, afișând din nou caseta de intrare.

Această buclă este doar un exemplu – nu se folosește așa cum este în viața reală. Iată de ce: alegerea butonului Cancel într-o casetă de intrare determină întoarcerea unui șir gol, care, de asemenea, nu se potrivește cu parola corectă, determinând rularea buclei. Securitatea este perfectă; problema este că singura cale de a încheia bucla este ca utilizatorii să furnizeze parola corectă. Dacă nu pot face acest lucru, vor vedea din nou caseta de introducere. Nu există nicio cale de ieșire din buclă. Aceasta se numește o buclă nesfârșită (endless loop) și este o programare foarte proastă. Utilizatorul poate fi prins fără speranță într-o buclă care se repetă la nesfârșit. Astfel de capcane buclă sunt, de asemenea, numite bucle infinite sau nesfârșite.

Pentru a ieși dintr-o astfel de buclă, se apasă combinația de taste Ctrl+Break.

În schimb, ar trebui să creați o procedură mai ușoară de verificare a parolei. Puteți specifica introducerea de maxim 3 ori a parolei, după care procedura să se încheie. Sau puteți utiliza pur și simplu o instrucțiune End pentru a încheia procedura dacă utilizatorul a introdus un șir blank, astfel:

Do

  varParola = InputBox _

  ("Introduceti parola pentru a porni procedura:", _

  "Verificare parola 1.0")

If varParola = "" Then End 

Loop While varParola <> "ParolaCorecta" 

SINTAXĂ

Sintaxa pentru buclele Do Until...Loop este următoarea:

Do Until condition

  instructiuni

  [Exit Do]

  [instructiuni]

Loop

Când VBA intră în buclă, verifică condition. Dacă aceasta este False, VBA execută declarațiile din buclă, întâlnește cuvântul cheie Loop și se întoarce la începutul buclei, reevaluând condiția. Dacă aceasta este True, VBA încheie bucla și continuă execuția cu instrucțiunea de după linia Loop.

De exemplu, iată din nou exemplul de loterie, dar care acum folosește o buclă Do...Until.

1. Sub Loterie_1()

2.  Dim intWin As Integer

3.  Do Until intWin > 2000

4.     intWin = Rnd * 2100

5.     MsgBox intWin, , "Loterie"

6.  Loop

7. End Sub

Iată cum funcționează procedura:

• Linia 2 declară variabila intWin de tip Integer. Linia 3 începe bucla Do Until...Loop cu condiția intWin > 2000 – valoarea variabilei intWin trebuie să fie mai mare decât 2000 pentru ca bucla să se încheie. Până atunci, bucla va continua să ruleze.
• Linia 4 atribuie variabilei intWin rezultatul înmulțirii lui 2100 cu un număr aleatoriu produs de funcția Rnd, care generează numere aleatorii între 0 și 1. (Bucla trebuie să primească un număr mai mare decât 0.95 – o șansă mai mică decât 1 din 20, dar mai bună decât la majoritatea loteriilor.)
• Linia 5 afișează un mesaj care conține valoarea curentă a variabilei intWin pentru a vedea dacă ați câștigat.
• Linia 6 conține cuvântul cheie Loop care încheie bucla.
• Linia 7 încheie procedura.

Procedura următoare arată un exemplu mai util a buclei Do Until...Loop loop din Word.

1. Sub FindNextHeading()

2.  Do Until Left(Selection.Paragraphs(1).Style, 7) = "Heading"

3.    Selection.MoveDown Unit:=wdParagraph, _

       Count:=1, Extend:=wdMove

4.  Loop

5. End Sub

Procedura mută punctul de inserție la următorul antet (heading) din documentul activ în Word. Iată cum funcționează:

• Linia 2 începe bucla Do Until...Loop care se încheie cu cuvântul cheie Loop de pe linia 4. Condiția pentru buclă este ca cele șapte caractere din numele stilului din primul paragraf din selecția curentă - Left(Selection.Paragraphs(1).Style, 7) să conțină șirul de caractere Heading. Astfel, procedura va parcurge întreg documentul și va căuta stilurile Heading (de la Heading 1 până la Heading 9, sau oricare alt stil definit de utilizator al cărui nume începe cu Heading).
• Atâta timp cât condiția este îndeplinită, VBA execută instrucțiunea de pe linia 3, care mută selecția mai jos cu un paragraf.

SINTAXĂ

Sintaxa pentru buclele Do...Loop Until este:

Do

  [instructiuni]

  [Exit Do]

  [instructiuni]

Loop Until condition

VBA intră în buclă la linia Do și execută instrucțiunile din buclă. Atunci când ajunge la linia Loop Until, verifică condition. Dacă condition este False, VBA revine la linia Do și execută din nou instrucțiunile. Dacă condition este True, VBA termină bucla și continuă execuția de la linia de după linia Loop Until.

Ca exemplu, se poate afișa repetat o casetă de introducere date care adaugă foi de lucru în registrul de lucru până când utilizatorul face clic pe butonul Cancel sau nu scrie nimic în text box. Se poate folosi codul de mai jos.

Iată ce se petrece în procedura Creare_Foi_De_Lucru:

• Linia 2 declară variabila strFoaieNoua de tip String.
• Linia 3 începe bucla Do...Loop Until.
• Linia 4 afișează o casetă de dialog care cere utilizatorului să introducă numele noii foi de lucru.
• Linia 5 folosește o instrucțiune If pentru a verifica dacă strFoaieNoua nu este un șir gol. Dacă nu este, linia 6 adaugă o foaie nouă de lucru la registrul activ, iar linia 7 atribuie valoarea din strFoaieNoua la foaia activă (noua foaie de lucru). Pe linia 8 se încheie instrucțiunea If.
• Linia 9 conține o instrucțiune Loop Until strFoaieNoua = "" care repetă bucla începând cu linia Do până când utilizatorul introduce un șir gol în caseta de dialog. Utilizatorul poate introduce un șir gol fie lăsând gol câmpul din caseta de dialog și clic pe butonul button, fie cu clic pe butonul Cancel.
• Linia 10 încheie procedura.

Folosirea instrucțiunii Exit Do

Ca și instrucțiunea Exit For din bucla For..., se poate folosi o instrucțiune Exit Do pentru a ieși din bucla Do fără a mai executa instrucțiunile de sub linia Exit. Instrucțiunea Exit este opțională și se folosește rar dacă buclele sunt proiectate corespunzător.

Instrucțiunea Exit Do se folosește împreună cu propria condiție. Exemplul din procedura următoare face loteria mai interesantă prin adăugarea unei condiții If cu instrucțiunea Exit Do pentru a avea efect dacă câștigul este mai mic decât $500.

Procedura de mai sus funcționează în același mod ca și exemplul Loterie_1, cu excepția faptului că linia 5 introduce o nouă condiție If. Dacă variabila intWin este mai mică decât 500, rulează instrucțiunile de pe liniile 6 și 7. Linia 6 afișează o casetă de mesaj care anunță că jucătorul a fost descalificat din loterie, iar linia 7 iese din bucla Do.

Instrucțiunea Exit Do este nerecomandată?

Unii programatori iau în considerare utilizarea unei instrucțiuni Exit Do pentru a ieși dintr-o buclă Do ca și tactică de ultimă soluție sau cel puțin ca programare stângace. Alții nu sunt de acord. Mulți cred că este întotdeauna acceptabil să utilizeze o declarație Exit Do pentru a răspunde la o eroare sau la utilizator, făcând clic pe butonul Anulare.

VBA execută instrucțiuni Exit Do fără nicio problemă, deci comanda este acolo dacă doriți să o utilizați. Cu toate acestea, puteți rescrie adesea codul pentru a evita utilizarea unei instrucțiuni Exit Do.

De exemplu, o condiție pe care o verificați în mijlocul buclei pentru a decide dacă ieșiți din buclă poate fi adesea încorporată în condiția principală a buclei utilizând un operator precum And, Or sau Not, așa cum se arată în procedura următoare, în care se evită comanda Exit Do:

Procedura Loterie_3 este o revizuire a procedurii Loterie_2. Ea arată cum se folosește operatorul Or pentru a specifica două condiții pentru ca bucla să fie iterată. Astfel, se poate omite cu totul comanda Exit Do.

Instrucțiunea de pe linia 8 din Loterie_3, spune că bucla poate să se termine dacă variabila este mai mare decât 2000 sau mai mică decât 500. Astfel se poate înțelege mai clar ce face bucla.

Mai trebuie făcute două modificări. Prima modificare: se mută condiția test din partea de sus a buclei în partea de jos. Comanda Do Until din Loterie_2 trebuie modificată la comanda Loop Until din Loterie_3. Dacă se lasă condiția test în partea de sus a buclei, condiția va opri întotdeauna executarea buclei. Aceasta deoarece variabila intWin va păstra mereu valoarea zero la prima executare a buclei. Deci, se mută condiția test în partea de jos a buclei, pentru a permite ca variabilei să i se atribuie o valoare pe linia 6.

Modificarea finală este mutarea blocului If...Then în partea de jos a procedurii.

Acest cod simplu poate fi rescris folosind un operator. Dar dacă codul este complex și lung, nu se recomandă folosirea de operatori, pentru că instrucțiunea Exit Do este suficientă.