VBA Csináljon hurokig Lépésről lépésre Példák a Do Until használatára a VBA-ban

Mit csinál a hurokig a VBA Excelben?

A VBA Do Loop- ban kritériumokat kell meghatároznunk az till utasítás után, ami azt jelenti, hogy mikor akarjuk, hogy a hurok leálljon, és a end utasítás maga a hurok. Tehát ha a feltétel FALSE, akkor a cikluson belül végrehajtja az utasítást, de ha a feltétel azonnal IGAZ, akkor kilép a Do Until utasításból.

Mivel a szavak maguk azt mondják, hogy valamilyen feladat elvégzéséig, amíg el nem érik a kritériumot, addig csináld, amíg a ciklust szinte az összes programozási nyelvben nem használjuk, a VBA-ban is néha a Do till ciklust használjuk. Addig, amíg a hurok azt nem jelenti, hogy csinál valamit, amíg az állapot IGAZsá nem válik. Olyan, mintha egy logikai függvény IGAZ vagy HAMIS alapján működne.

Ez ellentétes a Do While ciklussal, ahol a Do while a ciklusokat futtatja, amíg a feltétel IGAZ.

Szintaxis

A Addig ciklusnak kétféle szintaxisa van.

1. szintaxis 

 Addig, amíg [feltétel] [Néhány feladat végrehajtása] hurok 

2. szintaxis

 Hajtsa végre a [Végezzen néhány feladatot] ciklust [feltétel ]ig 

Mindkettő nagyon hasonlónak tűnik, és van egy egyszerű megkülönböztetés.

Az első szintaxisban a „Addig” hurok először ellenőrzi a feltételt, és megkapja a feltétel IGAZ vagy HAMIS eredményt. Ha a feltétel HAMIS, akkor végrehajtja a kódot és végrehajt egy megadott feladatot, és ha a feltétel IGAZ, akkor kilép a ciklusból.

A második szintaxis „Do” ciklusában először végrehajtja a cod feladatot, majd teszteli, hogy a feltétel IGAZ vagy HAMIS. Ha a feltétel HAMIS, akkor ismét visszamegy és elvégzi ugyanazt a feladatot. Ha a feltétel IGAZ, akkor azonnal kilép a ciklusból.

Példa

Tudom, hogy nem olyan könnyű bármit is megérteni az elméleti részben, de nem kell aggódni. Könnyű példákat adunk a hurok megértéséhez. Olvass tovább. A tanulás megkezdéséhez hajtsuk végre az első 10 sorszám beszúrását az A1 és A10 cellák között.

Ezt a VBA Do Excel Excel sablont innen töltheti le - VBA Do Excel sablont

Kövesse az alábbi lépéseket a „Csináljon” hurok alkalmazásához.

1. lépés: Az alfolyamat elindításához először hozzon létre egy makrónevet.

Kód:

 Sub Do_Until_Example1 () End Sub 

2. lépés: Adjon meg egy változót „Hosszúnak”.  Az „x” -t hosszú adattípusként definiáltam.

Dim x olyan hosszú

3. lépés: Most írja be a „Addig” szót.

Addig csináld

4. lépés: A hurok nevének megkezdése után írja be a feltételt “x = 11” értékre.

 Addig, amíg x = 11

x = 11 az általunk alkalmazott logikai teszt. Tehát ez a vonal azt mondja, hogy addig futtassa a ciklust, amíg x nem egyenlő 11-vel.

5. lépés: Alkalmazza a CELLS tulajdonságot, és illesszük be az 1 és 10 közötti sorszámokat.

Sejtek (x, 1). Érték = x

Megjegyzés: Itt említettük, hogy az „x” értéke 1-től kezdődik, tehát először az x értéke 1-vel egyenlő. Ahol az „x” értéke 1-vel egyenlő.

6. lépés: Most zárja be a hurkot a „LOOP” szó beírásával.

 Sub Do_Until_Example1 () Dim x Olyan hosszú, amíg x = 11 Cella (x, 1). Érték = x Loop 

End Sub

Ok, elkészültünk a kódoló résszel, most soronként teszteljük a kódokat, hogy jobban megértsük a ciklust.

A soronkénti futtatáshoz először nyomja meg az F8 billentyűt.

Először sárga színnel emeli ki a makró nevét.

Amikor látja a sárga vonalat, az azt mondja, hogy ezt nem hajtja végre a végrehajtás, ha még egyszer megnyomja az F8 billentyűt.

Most nyomja meg még egyszer az F8 billentyűt, a sárga vonal a Addig, amíg a hurok nem lesz.

Most, hogy megértsük a ciklust, helyezzünk egy kurzort az „x” változóra, és lássuk az „x” változó értékét.

Tehát, x = 0. Mivel a kiemelt vonal a hurok első sora, így az „x” értéke nulla, ezért nyomja le még egyszer az F8 billentyűt, és nézze meg az „x” értékét. A kilépés előtt a kód fut, és az „x” értéket 1-nek rendelje.

Most ismét kezdje meg a hurok futtatását az F8 billentyű lenyomásával. Lásd az „x” értékét.

Most az „x” értéke 1-nek jelenik meg. Ahhoz, hogy inkrementális értéke legyen az „x” változónak, át kell rendelnünk az „x” változó értékét x = x + 1 értékként a hurokban.

Most nyomja meg még egyszer az F8 billentyűt, és meg kell kapnunk az 1 értéket az A1 cellában.

Most nyomja meg még egyszer az F8 billentyűt, és nézze meg, mi az „x” értéke.

Az „x” változó értéke most 2. Tehát feltételünk azt mondja, hogy addig futtassuk a ciklust, amíg a feltétel IGAZsá nem válik, így a ciklusunk addig fut, amíg az „x” értéke 11 lesz.

Nyomja meg még egyszer az F8 billentyűt, és visszaugrik a „Csinálj” hurokra.

Nyomja meg még kétszer az F8 billentyűt, így megkapjuk a 2 értéket az A2 cellában.

Nyomja meg ismét az F8 billentyűt, és az „x” értéke most 3 lesz.

Nyomja meg ismét az F8 billentyűt, és ismét visszatér a hurokhoz.

Így ez a hurok addig folytatja a feladat végrehajtását, amíg az „x” értéke 11 lesz. Most addig hajtottam végre a ciklust, amíg az „x” értéke 11 lett.

Most, ha megnyomom az F8 billentyűt, akkor is visszatér a ciklusra.

De ha most megnyomom az F8 billentyűt, akkor kilép a ciklusból, mert az alkalmazott feltétel „IGAZ” lesz, azaz x = 11.

Tehát most 1-től 10-ig van sorszámunk az Excel lapon.

Tehát ez a „Csinálom” hurok alapötlete. A hurkok megértéséhez futtatnia kell a kódot soronként, amíg meg nem kapja a körkörös ismereteket.