Excel VBA minden hurokhoz
Az „egyes” kulcsszavakat a VBA a „For” funkcióval együtt használja. Ez azt jelenti, hogy egy tömb vagy tartomány minden entitásához megismételjük a folyamatot a hurokban. Alapvetően nem adjuk meg a lépéstartományt, azaz 1-től 5-ig vagy 1-től 10-ig, inkább csak az alábbi szintaxis szerint mutatjuk be.
Szintaxis:
Mindegyik objektumnévhez a tartományban
Megjegyzés: Szüksége van Fejlesztő fülre az Excel munkalapon.Ha nem látja Excelben a „Fejlesztő” fület, olvassa el az alábbi lépéseket.
1. lépés: Kattintson a Fájlbeállítás elemre.
2. lépés: Megjelenik a legördülő menü, kattintson az Opciók fülre.
3. lépés: Miután rákattint az „Opciók” elemre, megjelenik egy párbeszédpanel az alább látható módon, majd kattintson a Szalag testreszabása lehetőségre.
4. lépés: Amikor elhúzzuk a testreszabható szalagbeállításokat, találunk egy lehetőséget a Fejlesztő számára, ellenőriznünk kell ezt a négyzetet, amely lehetővé teszi számunkra, hogy a VBA-t Excelben használjuk.
Hogyan kell használni az egyes hurkokhoz a VBA-ban?
Az alábbiakban bemutatjuk azokat a különféle példákat, amelyeket az egyes hurkokhoz VBA-kóddal kell használni az Excelben.
Itt töltheti le a VBA minden hurokhoz tartozó Excel sablonhoz - VBA minden hurokhoz tartozó Excel sablonhozExcel VBA minden hurokhoz - 1. példa
Vegyünk egy egyszerű példát az egyes hurkokról a VBA-ban. Tegyük fel, hogy az alábbiakban az adatkészlet található a VBA-ban.
Kövesse az alábbi lépéseket az egyes hurkokhoz az Excel VBA használatához.
1. lépés: Kattintson a „Fejlesztő” fülre, majd kattintson a bal oldali „Visual Basic” opcióra (első lehetőség), az alább látható módon.
Ha rákattint, megjelenik egy új ablak, az alább látható módon.
Észre fogja venni, hogy a bal oldalon két fül található, a „Sheet1 (Sheet1)” és a „ThisWorkbook”. Az egyetlen különbség a „Sheet1”, ha csak erre a lapra akar végrehajtani kódot, és a „ThisWorkbook” -ban kódot írhatunk és végrehajthatunk, amely alkalmazható az egész excel munkafüzetre.
2. lépés: Kattintson duplán a „1. lap (1. lap) elemre, és egy üres képernyő jelenik meg, ahova be kell írnunk a kódot. Adjon nevet a létrehozott alkészletnek. Itt adtunk nevet: “Sub For_Each_Ex1 ()”, ahogy az alábbi képernyőképen látható.
Kód:
Sub For_Each_Ex1 () End Sub
Így készítünk egy részhalmazt, és automatikusan megjelenik az „End Sub” felirat. Ez alapértelmezés szerint az excel. Ha az „End Sub” felirat nem jelenik meg, akkor a kód nem fog végrehajtódni, és hibát okoz.
3. lépés: A változókat tartományként kell megadni.
Kód:
Sub For_Each_Ex1 () Dim Earn, Range1 As Range End Sub
Itt két változót deklaráltunk: „Keress”, amelyeket mindenki számára használunk és az „Range1” mint adatkészlet tartománya.
4. lépés: Most rögzítünk egy tartományt, azaz azoknak az adatoknak a tartományát, amelyeken dolgoznunk kell, az alább látható „Set” kulcsszó használatával.
Kód:
Sub For_Each_Ex1 () tompítva keres, 1. tartomány, mint tartomány beállított tartomány1 = tartomány ("A1: A10")
Itt rögzítettük a „Range1” tartományt az A1 tartománytól az A10ig, ami az adatkészletünk.
5. lépés: Most végre fogjuk hajtani a hurkot az egyes kulcsszavak használatával.
Kód:
Sub For_Each_Ex1 () Dim Earn, Range1 As Range Set Range1 = Range ("A1: A10") Mindegyik kereseten belül Range1 End Sub
Itt a Range minden értékénél a Earn értéket kap, mivel a hurok lépésről lépésre kerül végrehajtásra.
6. lépés: Most az „Msgbox” kulcsszót használjuk az egyes sorok megjelenítéséhez a hozzárendelt tartományban.
Kód:
Sub For_Each_Ex1 () Dim Earn, Range1 As Range Set Range1 = Range ("A1: A10") Mindegyik kereseten belül 1. tartományban MsgBox Earn.Value End Sub
Itt a „Earn.value” megjeleníti az értéket a cellában, azaz a tartomány első cellájától kezdve.
7. lépés: Most a megadott cellatartományban szeretnénk végrehajtani a következő értéket, ezért a kódban a „Next” kulcsszót kell használni. Ez segít továbblépni a tartományban, és egyenként megjeleníti az egyes entitásokat a cellatartományban.
Kód:
Sub For_Each_Ex1 () Dim Earn, Range1 As Range Set Range1 = Range ("A1: A10") Mindegyik kereseten belül1. MsgBox Earn.Value Következő Earn End Sub
8. lépés: Futtassa a kódot az F5 vagy a Futtatás gomb megnyomásával, és nézze meg a kimenetet.
A „Next Earn” kódsor végrehajtásának pillanatában a „Earn.value” a tartomány következő cellájának értékével lesz hozzárendelve. Egy-egy kattintással az „OK” -ra, és mindegyik értéket megjeleníti a tartományban, amíg az értéktartomány be nem fejeződik.
Excel VBA minden hurokhoz - 2. példa
Vegyünk egy másik példát, amelyben az egyes lapok nevét megjelenítjük egy Excel fájlban. Tegyük fel, hogy az alábbiakban megnevezett lapok vannak az Excel fájlban:
Mivel észrevehetjük, hogy körülbelül 5 lap van az excel fájlban, és egyenként meg kell jeleníteni mindegyik nevét.
A kódot a „ThisWorkbook” szakaszba írjuk és hajtjuk végre, amint azt az alábbi piros négyzet kiemeli:
Kattintson duplán rá, és amíg megjelenik az ablaktábla, és kezdje el írni a kódot benne. Kövesse az alábbi lépéseket az egyes hurkokhoz az Excel VBA használatához:
1. lépés: A kódot az alább bemutatott részhalmaz hozzárendelésével írjuk.
Kód:
Aloldalnév () Vége al
2. lépés: Emellett közvetlenül elkezdhetjük a „For” huroknyilatkozat írását anélkül, hogy a változót az alábbiak szerint kinyilvánítanánk.
Kód:
Aloldalnév () Az Application.Sheets minden egyes sht számára
Itt az „sht” az 1. változónk, amelyet alapértelmezés szerint deklarálunk, az „Application.sheets” pedig azt jelenti, hogy a fájlban minden lapot figyelembe kell venni. Az Application.fucntion meghatározza, hogy bármilyen funkciót vagy funkciót vagy Excel eszközt hozzáadhatunk, amelyet figyelembe kell venni a kód végrehajtása közben.
3. lépés: Most be kell írnunk az üzenet mező szintaxisát, és ezzel együtt hozzá kell adnunk a szintaxist a lapnév megjelenítéséhez, az alább látható módon:
Kód:
Aloldalnév () Az egyes sht-ekkel az Application.Sheets MsgBox "A lap neve:" & sht.Name End Sub
Itt az a kijelentés, amelyet szeretnénk megjeleníteni, „A lap neve:”, majd beírunk egy ampersand (&) -ot, amely összekapcsolja a kódvonalat, majd beírjuk az „sht.Name” -t, azaz az elsőtől kezdve választja ki a lapot. lapon, és jelenítse meg a nevet.
4. lépés: Most meg kell ismételnünk az egyes lapok neve megjelenítésének folyamatát. Ezért a „Next sht” -et használnánk, amint az alább látható:
Kód:
Aloldalnév () Az egyes sht-ekkel az Application.Sheets MsgBox "A lap neve:" & sht.Name Következő sht End Sub
A „Next sht” tudatja a rendszerrel, hogy fontolja meg a következő lapot, és megjelenítse a nevét a további végrehajtáshoz.
6. lépés: Futtassa a kódot az F5 vagy a Futtatás gomb megnyomásával, és nézze meg a kimenetet.
Miután rákattint az „OK” -ra, és a kód tovább fut, megjelenik a következő lap neve. A kód addig fut, amíg nem jelennek meg további lapok.
Excel VBA minden hurokhoz - 3. példa
Most példát veszünk, ahol össze kell vonnunk az összes értéket egy adott adatkészletben vagy tömbben. Tegyük fel, hogy az alábbi adatkészlet:
Kövesse az alábbi lépéseket az egyes hurkokhoz az Excel VBA használatához:
1. lépés: Először deklarálja az alkészlet nevét „eachadd ()” -ként, az alább látható módon.
Kód:
Sub eachadd () End Sub
2. lépés: Most kijelentsük a szükséges változókat, egészként egésznek nevezzük, amelyben folyamatosan összefoglaljuk a cellák értékeit, és rögzítjük a cellák olyan tartományát, amely tartalmazza az hozzáadandó értékeket.
Kód:
Sub eachadd () Eltávolítás összesen Egész egész Dim Range1 As Range End Sub
3. lépés: A változó és a tartomány megadása után meg kell határoznunk a hurokhoz használandó tartományt. Az A1 és A10 cellák közötti tartományt az alább látható módon rögzítjük a „Set” kulcsszóval:
Kód:
Sub eachadd () Eltávolítás összesen Egészben Dim Range1 As Range Set Range1 = Range ("A1: A10") End Sub
4. lépés: Most már közvetlenül elkezdhetjük a For loop funkció használatát, és közvetlenül deklarálhatjuk a változót. Itt az „add1” változót használjuk, és ezt alapértelmezés szerint a rendszer deklarálja.
Kód:
Sub eachadd () Eltávolítás összesen Egészben Dim Range1 As Range Set Range1 = Range ("A1: A10") minden egyes add1-ben 1. tartományban End Sub
5. lépés: Adja hozzá az egyes entitásokat a tartományban egyenként és az „összesen” deklarált változóba. Alapértelmezés szerint a „teljes” értéke kezdetben nulla. És hozzá kell adnunk a cellák egyenkénti értékét, és ezt az összeget újra meg kell adnunk a „teljes” értékhez.
Kód:
Sub eachadd () Eltávolítás összesen Egészben Osztott tartomány1 As Range Set Range1 = Range ("A1: A10") Minden egyes add1 esetén 1. tartományban összesen = összesen + add1.Value End Sub
A fenti állítást jobbról balra hajtjuk végre, azaz az „add1.value” az első cellaérték, és adjuk hozzá a „total” értékhez, amely nulla. Ennélfogva az összeg 0 + 1 lenne, amely 1. És ez az összeg, ha 1 lenne „összesen”, az „=” jel elõtt lenne. Ez előnye, mivel a képlet balról jobbra hajt végre.
6. lépés: Most adja hozzá a „Next add1” elemet, amely elősegíti az adattartomány következő cellájának megfontolását, és az alább látható módon hozzáadja ezt az értéket a „total” változóhoz.
Kód:
Sub eachadd () Eltávolítás összesen Egészben Osztott tartomány1 As Range Set Range1 = Range ("A1: A10") Mindegyik add1 esetén 1. tartományban összesen = összesen + add1.Value Következő add1 End Sub
6. lépés: Nyomja meg az „F8” gombot a kód futtatásához az egyes sorokon. A „teljes” értékét az alábbi képernyőképen is láthatjuk.
Hasonlóképpen, amíg a cellák tartománya nem teljesül, a loop továbbra is végrehajtja ezt a tömbösszeget.
7. lépés: Most az „Msgbox” kulcsszót fogjuk használni.
Kód:
Sub eachadd () Eltávolítás összesen Egészben Osztott tartomány1 As Range Set Range1 = Range ("A1: A10") Mindegyik add1 esetén1 tartományban összesen = összesen + add1.Value Következő add1 MsgBox "Final Summary:" & total End Sub
8. lépés: Futtassa a kódot az F5 vagy a Futtatás gomb megnyomásával, és nézze meg a kimenetet.
Dolgok, amikre emlékezni kell
- Az „egyes” kulcsszavakat a legtöbb alkalommal csak a VBA For Loop funkció használata esetén használják. Máskülönben korlátozottan használható az Excel VBA-ban.
- Az „egyes” kulcsszavak előnye csak az, hogy nincsenek deklarálva az 1-től x -ig terjedő lépések a „For” nyilatkozatban.
Ajánlott cikkek
Ez egy útmutató a VBA minden hurokhoz. Itt megvitatjuk, hogy az egyes hurkokhoz hogyan használható az Excel az VBA-kóddal, a gyakorlati példákkal és a letölthető Excel sablonnal együtt. Az alábbiakban találunk néhány hasznos excel cikket a VBA-val kapcsolatban -
- VBA Csináljon hurkot
- Oszlopok váltása az Excel programban
- VBA szünet a Loop számára
- Gróf nevek Excelben
- Hogyan futtassuk a VBA kódot?