Excel VBA példák
Ez nagyon dolog, amikor elkezdtem dolgozni és tanulni a VBA makrókat, zavart voltam a kezdődésemről. Már láttuk a VBA Szerkesztőt, amely tartalmazza a VBA Szerkesztő Ablak opcióinak és lapjainak összes meghatározását. Kezdőként mindig nem tudjuk, hogyan indítsuk el a dolgot, amíg nem találunk egyet. Ez a cikk megoldás azok számára, akik nehézségekbe ütköznek a VBA példák használata és tanulása, valamint a makrók létrehozása során. Mindannyian szembesültünk azzal az idővel, amikor az Excelben bizonyos dolgok automatizálhatók voltak a Macro segítségével. De valaki, aki nem tudja, hogyan kell használni a VBA-t, nem fog képes létrehozni. Ez hasznos útmutató azok számára, akik újak a VBA makrókódolásban.
Példák a VBA-ból az Excel kezdőknek számára
Az alábbiakban bemutatjuk az Excel VBA példáit:
A VBA példák Excel sablonját itt töltheti le - VBA példák Excel sablon1. VBA példa
Lássuk egy egyszerű példát a VBA kódolás használatára. Ehhez kövesse az alábbi lépéseket:
1. lépés: Nyisson meg egy VBA modult, ahol az alábbi ábra szerint írjuk be a kódot a Beszúrás menü fülre.
2. lépés: Most írja be a VBA makró alfolyamatát bármilyen névre.
Kód:
VBA_Examples1 () albekezdés
3. lépés: Adjon meg egy változót DIM segítségével, ahol a számokat egészekként tároljuk.
Kód:
VBA_Examples1 () egészként egészen egészként vége
4. lépés: Most adjon meg tetszőleges számot a fent definiált változóhoz, az alább látható módon.
Kód:
VBA_Examples1 () A homályos egész mint egész A = 100 Végső al
5. lépés: Most az üzenet mezőt használjuk az A. változóban tárolt érték kinyomtatásához.
Kód:
VBA_Examples1 () Alsó A mint egész szám A = 100 MsgBox A Vége Al
6. lépés: Futtassa a kódot az F8 billentyű megnyomásával vagy a menüsor alatt található Play gombra kattintással. Látni fogjuk a 100-as értékű üzenetdobozt.
Kód:
VBA_Examples1 () Alsó A mint egész szám A = 100 MsgBox A Vége Al
7. lépés: Ezt a Debug Print funkcióval is elvégezhetjük, amelynek értékeit az Azonnali ablakban láthatjuk. ( Megjegyzés: Azonnali ablak megnyitásához nyomja meg a Ctrl + G billentyűket)
Kód:
VBA_Examples1 () A homályos egész szám, mint egész A = 100 hibakeresés.A nyomtatás végén
2. VBA példa
Most ebben a példában egy másik példát fogunk látni, ahol a For-Next hurkot fogjuk használni a lapnevek kinyomtatásához. Ehhez kövesse az alábbi lépéseket:
1. lépés: Nyisson meg egy modult és írja be az alfolyamatot az alábbiak szerint. Bármely nevet felhasználhatunk ennek meghatározására.
Kód:
VBA_Examples2 () albekezdés
2. lépés: Válasszon egy változót egész számként. Kiválaszthatjuk a névváltozót, mint az 1. példában.
Kód:
VBA_Examples2 () egészként egészen egészként vége
3. lépés: Nyissa meg a Következő hurkot az alább látható módon.
Kód:
Sub VBA_Examples2 () Egész egészként halmozódik a következő alsó rész aljára
4. lépés: Válassza ki a cellák azon pozícióját, ahonnan meg akarjuk nézni a Lapneveket. Mivel itt nincs fejléc-referencia, ezért az 1. cellából kezdhetjük.
Kód:
VBA_Examples2 () Az A = 1 egész számának halmozása A táblázatokba.Számolás Következő A Vége
5. lépés: Most hozzárendeljük az A változót cellaértékkel, hogy az alább látható laponnevet láthassuk.
Kód:
VBA_Examples2 () A halmaz egész értékeként A = 1-hez a Sheets.Count cellákhoz (A, 1) .Value = Sheets (A) .Name Next A End Sub
6. lépés: Most futtassa a kódot az F8 gomb megnyomásával vagy a Play gombra kattintással.
Látni fogjuk, hogy mivel 3 lap volt, az összes alapértelmezett nevű, tehát a nevüket az A1 cellából lefelé nyomtattuk, amíg a számuk nem létezik.
3. VBA példa
Ebben a példában megtanuljuk, hogyan kell kinyomtatni a számokat. Ez a folyamat teljesen megegyezik a 2. példában leírtakkal. Ehhez kövesse az alábbi lépéseket:
1. lépés: Nyisson meg egy modult és írja be az alprocesszort.
Kód:
VBA_Examples3 () albekezdés
2. lépés: Vegyünk egy változót DIM egész számként. Mivel a számokat egész számra használjuk, az adattípust kell használni.
Kód:
VBA_Examples3 () egészként egészen egészként vége
3. lépés: Nyissa meg újra a Következő hurkot, az alább látható módon.
Kód:
Sub VBA_Examples3 () Egész egészként tompítja a következő alsó rész aljára
4. lépés: Most válassza ki a cellatartományt, ahonnan számot akarunk látni, az utolsóig a For szintaxisban.
Kód:
Sub VBA_Examples3 () Egész egészként tompítja A = 1-től 10-ig következő A végén
5. lépés: Most rögzítse a cella helyzetét az A változóval. Itt a cella második pozíciójának csúcsa az oszlop számát mutatja. Amikor az 1-et választottuk, várhatóan látni fogjuk a számokat az A1-es cellától kezdve.
Kód:
VBA_Examples3 () egésze egészként A = 1-től 10-ig (A, 1) .Value = Következő A Vége
6. lépés: Most futtassa a kódot az F8 gomb megnyomásával vagy a Play gombra kattintással. Látni fogjuk, hogy a számokat az A1-től A10-ig terjedő cellák generálják, 1-től 10-ig .
7. lépés: Mi lenne, ha megpróbáljuk ezeket a számokat hozzáadni a második oszlophoz? Változtassa meg az oszlop csúcsát 1-ről 2-re. Vagy adjon hozzá újabb kódot az alábbiak szerint.
Kód:
VBA_Examples3 () egésze egészként egészen A = 1-től 10-ig (A, 1). Érték = A cella (A, 2). Érték = A következő A vég Sub
8. lépés: Futtassa újra a teljes kódot az F8 billentyű megnyomásával vagy a Play gombra kattintással. Látni fogjuk ugyanazt a számot, amely 1-től 10-ig kezdődik, a B oszlopba nyomtatva, valamint a B1-ből B10-es cellába.
4. VBA példa
Ebben a példában meglátjuk, hogyan lehet megváltoztatni az üres cellák színét a kiválasztott tartományokból. Ehhez ugyanazt a számot használtuk, mint a fenti példában, de néhány cellát töröltünk a kimenet elérése érdekében.
1. lépés: Nyisson meg egy modult, írja be az alfolyamatot az alábbiak szerint.
Kód:
VBA_Example4 () albekezdés
2. lépés: Adjon meg egy változót DIM mint tartomány segítségével, mivel a kilépő számtartományt választjuk meg.
Kód:
VBA_Example4 () A tompítása mint tartomány vége Sub
3. lépés: Most állítsa be ezt a változót Kiválasztásként
Kód:
VBA_Example4 () Alul tompít, mint tartomány beállítása A = Kiválasztás vége Al
4. lépés: Most válassza ki a számtartományt az A megadott változó segítségével, és válassza az xlCellTypeBlanks elemet, hogy csak az üres cellákat jelölje ki.
Kód:
VBA_Example4 () Alul tompít, As Range Set A = Kiválasztás A.Cells.SpecialCells (xlCellTypeBlanks). Befejezés Sub
5. lépés: Most változtassa meg az üres cellák belső színét a Interior.Color használatával, és válassza ki azt a színt, amellyel ki szeretné emelni az üres cellákat. Használja a vbBlue vagy a vbGreen típust a szín meghatározásához. A vb használata kötelező.
Kód:
VBA_Example4 () Alsó A mint tartománykészlet A = Kiválasztás A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub
6. lépés: Most válassza ki a cellák tartományát, majd futtassa a kódot az F8 billentyű megnyomásával vagy a Play gombra kattintással. Látni fogjuk, hogy az A4 és A7 cellák, amelyek üresek voltak, most kék színűek, az alábbiak szerint.
Előnyei és hátrányai az Excel VBA példákban
- A VBA növeli a munka hatékonyságát.
- Ezzel szeretnénk egyszerre csökkenteni az ismétlődő feladatokat.
- Bármely típusú makrót létrehozhatunk, amelyet akarunk.
- Felvehetünk egy makrót is, ha a kódolás nem könnyű.
- Azoknak, akik nem rendelkeznek kódolási ismeretekkel vagy ötlettel, nehézségeket okozhat a VBA Macro használata.
Dolgok, amikre emlékezni kell
- A VBA kezdőjének ne feledje, hogy a kódot Macro-kompatibilis Excel formátumban menti. Ez lehetővé teszi számunkra, hogy a kódot ugyanabban a fájlban tároljuk.
- Mindig fordítsa le a teljes kódot, akkor is, ha a kód egy sorból áll. Ez csökkenti a hibakeresési időt, ha a kód futtatása után bármilyen hibával szembesül.
- Mindig indítsa el a VBA vagy bármely más kódolási nyelv tanulási folyamatát kicsi és egyszerű kóddal. Ez jobb megértést és magabiztosságot nyújt.
Ajánlott cikkek
Ez egy útmutató a VBA példákhoz az Excel programban. Itt bemutatunk néhány hasznos példát a VBA makrókódjáról az Excel programban, valamint a letölthető Excel sablont. Megnézheti más javasolt cikkeinket -
- VBA gyűjtemény (példák)
- VBA IF nyilatkozatok | Excel sablonok
- Hogyan kell használni az Excel VBA rendezési funkciót?
- VBA Míg a hurok (példák Excel sablonnal)
- VBA Environ