Excel VBA a következő hurokhoz
A VBA For Next ciklus egy hurok, amelyet az összes programozási nyelv között használnak, ebben a ciklusban van egy kritérium a for utasítás után, amelyre a kód a ciklusban ciklusol, amíg el nem éri a kritériumot, és amikor a kritériumot eléri, a következő utasítás irányítja az eljárás a kód következő lépésére.
A „For Next” hurok egyike azoknak a hurkoknak, amelyeket nagyon gyakran használnak, mint a többi hurokot a VBA kódolásban. A hurkok segítenek megismételni ugyanazt a feladatot a megadott cellákban, amíg a feltétel IGAZ nem lesz.
A FOR LOOP végigvezet a cellatartományon, és végezzen egy adott feladatot, amíg a feltétel IGAZ nem lesz. Például, ha az első 10 cellát akarja végiggörgetni, és 1-gyel növelt sorszámokat szúr be, használhatja a FOR NEXT ciklust.
Ennek a ciklusnak szüksége van egy változóra a hurok futtatásához. Ennek a változónak a segítségével dinamikusan hivatkozhatunk a cellákra.
Három paramétert tartalmaz.
For Statement = Kezdőpont a végpontig (Néhány feladat végrehajtása) Következő utasítás
A kiindulási ponttól kezdve a hurok elindul, és elvégez néhány feladatot, miután befejezte a feladat mozgását a következő ciklusba, és újra elvégzi ugyanazt a feladatot a különböző cellában. Így, amíg el nem éri a végpontot, folyamatosan végrehajtja a megadott feladatot.
Hogyan kell használni a VBA-t a következő hurokhoz?
Tegyük fel, hogy sorszámokat szeretne beilleszteni 1-től 10-ig az A1-től A10-ig. Természetesen beilleszthetünk tíz kódsor beírását.
Kód:
Sub For_Next_Loop_Példa1 () Tartomány ("A1"). Érték = 1 tartomány ("A2"). Érték = 2 tartomány ("A3"). Érték = 3 tartomány ("A4"). Érték = 4 tartomány ("A5") .Value = 5 Tartomány ("A6"). Érték = 6 Tartomány ("A7"). Érték = 7 tartomány ("A8"). Érték = 8 tartomány ("A9"). Érték = 9 tartomány ("A10") .Value = 10 End Sub
De mi van, ha 100 sorozatszámot akarok beilleszteni? Természetesen nem tudok 100 soros kódot írni csak a sorszámok beszúrása érdekében. Itt jelenik meg a „FOR NEXT” hurok szépsége . Kövesse az alábbi lépéseket a kód minimalizálásához.
1. lépés: Először meg kell határoznunk egy változót. A „Serial_Number” nevű változó nevét egész adattípusként deklaráltam .
Kód:
Sub For_ext_Loop_Példa2 () Dim Sorszám_szám egész szám végként
2. lépés: Most megrendelem a NEXT ciklust, célunk az 1-től 10-ig terjedő sorszámok beillesztése, tehát ez azt jelenti, hogy a hurokunknak tízszer kell futnia. Tehát FOR LOOP utasításnak ilyennek kell lennie.
Sorszám esetén = 1-10
Következő sorszám
Kód:
Sub Fore_Ext_Loop_Example2 () Dim Serial_Number egész számként Serial_Number = 1–10 Következő Sorozat_szám End Sub
3. lépés: A hurkot alkalmaztuk. Most, amikor a ciklust alkalmazzák, meg kell határoznunk, mit kell tennünk a hurok belsejében. Célunk itt 1-től 10-ig terjedő sorszámok beillesztése. Írja be a kódot Cells (Serial_Number, 1) névre. Érték = Sorozat_szám.
Kód:
Sub For_Next_Loop_Example2 () Dim sorozatszám mint egész Dim Serial_Number = 1-10 sejt (Serial_Number, 1). Érték = Serial_Number Dim Sorozat_szám End Sub
4. lépés: Az ok, amiért megadtuk a Serial_Number számot a CELLS tulajdonságban, mert itt nem adhatjuk meg a sorszám hivatkozásának hardcore számát. Minden alkalommal, amikor a hurok fut, az új sorszámot az új cellába akarom illeszteni, nem ugyanabba a cellába.
5. lépés: Futtassa a kódot soronként az F8 billentyű lenyomásával.
6. lépés: Helyezzen egy kurzort a Serial_Number változóra; a Serial_Number aktuális értékét mutatja.
Ebben az időpontban a Serial_Number értéke nulla.
7. lépés: Nyomja meg még egyszer az F8 billentyűt, a sárga szín a VBA következő sorára ugrik. Most helyezzen egy kurzort a Sorozatszámra.
Most a Serial_Number értéke egyenlő, mert most a ciklus elindul, a ciklusunk pedig 1-től indul, tehát a Serial_Number változó értéke egyenlő.
Még egy érdekes dolog, bárhol is van a Serial_Number változó, ez szintén egyenlő 1-vel.
Tehát a cellák tulajdonságában a kódot a következőképpen említettük:
Cellák (Sorszám, 1). Érték = Sorszám
Ez azt jelenti, hogy a cellák (1, 1) . Érték = 1. (a cellák (1,1) az 1. sort és az 1. oszlopot jelenti.
Tehát az 1. sorban és az 1. oszlopban az értéknek 1-nek kell lennie.
8. lépés: Most nyomja meg még egyszer az F8 billentyűt, és nézze meg, mi történik az 1. és az 1. oszlopban, azaz az A1 cellában.
Tehát 1 értéket kaptunk, azaz a Serial_Number értékét.
9. lépés: Most nyomja meg még egyszer az F8 billentyűt. Általában a következő kódot kell futtatni, azaz az alállomás végét. De itt visszatér a „fenti sorra”.
10. lépés: Ne feledje, hogy az első futtatás már befejeződött. Most másodszor tér vissza. Most helyezzen egy kurzort a Serial_Number változóra, és nézze meg, mi az értéke.
Most a Serial_Number változó egyenlő 2-vel, mert a hurok már másodszor is visszatért.
Bárhol is van a Serial_Number, megegyezik a 2 értékével. Tehát a vonalkód:
Cellák (sorozatszám, 1). Érték = sorozatszám egyenlő:
Cellák (2, 1). Érték = 2. (A cellák (2,1) a 2. sor és az 1. oszlop, azaz az A2 cellát jelentik).
11. lépés: Futtassa ezt a kódot, és tekintse meg az értéket az A2 cellában.
Tehát megkaptuk a második sorozatszám értéket.
12. lépés: Most nyomja meg az F8 billentyűt. A kód megismétléséhez ismét visszatér a fenti sorra. Ezúttal a Serial_Number értéke 3 lesz.
13. lépés: Bárhol is legyen a Serial_Number, egyenlő 3.
Tehát a vonalkód: Cellák (Sorszám, 1). Érték = Sorszám : egyenlő:
Cellák (3, 1). Érték = 3. (A cellák (3,1) a 3. sort és az 1. oszlopot, azaz az A3 cellát jelentik).
14. lépés: Nyomja meg az F8 billentyűt a kijelölt sor végrehajtásához és az érték megtekintéséhez az A3 cellában.
15. lépés: Most nyomja meg folyamatosan az F8 billentyűt. Folyamatosan beszúrja a sorozatszámokat. A Serial_Number változó pillanatértéke 10, abbahagyja a hurkolást és kilép a ciklusból.
