Tömbök VBA-ban

A mai napon a VBA-ban lévő tömböket mutatom be. Maga a téma jóval összetettebb és terjedelmesebb, mint amit egy poszt elbírna, így egy általános ismertetés a célom, persze rengeteg gyakorlati példával.

I. Ismertető:

A tömb elemek csoportja vagy ha úgy tetszik, értékek sorozata.

Az elemek csoportjának közös neve van (ami a tömb neve).

A tömb is egyfajta változó, viszont a változókkal ellentétben nem csak egy, hanem több elemet is tud tárolni.

Az elemek adattípusa megegyezik.

Tömbök megadása:

Példa #1:

SzamTomb(99) – ez egy 100 elemből álló tömböt jelent (a számozás 0-től kezdődik és 99-ig tart, ezért 100). Az elemeknek később értéket kell adnunk – lásd lentebb. A tömb neve „SzamTomb”.

Példa #2:

HonapTomb(„Január”,”Február”,”Március”) – ez egy 3 elemből álló tömböt jelent, itt az értékek adottak (hónapok nevei). A számozás itt is 0-tól kezdődik: a 0. elem a Január, az 1. elem a Február és a 2.elem a Március. A tömb neve „HonapTomb”.

A tömb elemeire tudunk hivatkozni: tömb neve + indexszám alapján. Az előbb említett HonapTomb esetében így tudok hivatkozni a Januárra (ami a 0. eleme a tömbnek):

HonapTomb(0)

 

II: Tömbök deklarálása:

Deklarálás a Dim vagy a Public szóval – akárcsak a mezei változóknál. A tömb elemeinek típusát az „as” szóval adjuk meg.

Lássuk a korábbi példát, ami ugye 100 elemből áll:

SzamTomb(99)

Ennek a tömbnek a helyes deklarálása:

Dim Szamtomb(99) As Integer

Itt az elemek számozása tehát 0-tól kezdődik és 99-ig tart. Másik helyes deklarálási forma a 100 elemes tömbre:

Dim Szamtomb(0 To 99) As Integer

Itt már mi adtuk meg a kezdő indexszámot, a 0-t. Mi ennek az értelme? Hiszen, ha mindkettő ugyanazt jelenti…

Dim Szamtomb(99) As Integer

Dim Szamtomb(0 To 99) As Integer

… akkor a rövidebbet elég megjegyezni, nem? Azonban megadhatok olyan tömböt, melynek az elemei nem 0-tól kezdődnek, hanem mondjuk 5-től és nem 99-ig, hanem 9-ig tartanak:

Dim Szamtomb(5 To 9) As Integer

Vagyis az elemek első és utolsó sorszámát én döntöm el, így lett a

Dim Szamtomb(0 To 99) As Integer -ből

Dim Szamtomb(5 To 9) As Integer

Persze a „To” előtt lévő szám legyen kisebb, mint az utána levő, vagyis a következő kód hibát („Range has no values”) fog generálni:

Dim Szamtomb(20 To 9) As Integer

A fenti példáknál az „As Integer” azt jelenti, hogy a tömb elemei egész számok.

Ha szeretnénk, hogy egy tömb alapértelmezetten ne 0-tól, hanem 1-től kezdődjön, akkor a VBA modul legtetején az alábbi parancsot adjuk meg: „Option Base 1”

Ha az „Option Base 1”-et megadtuk, akkor a

Dim Szamtomb(99) As Integer

Számozása 1-gyel kezdődik, vagyis 99 elemből fog állni a 100 helyett.

Ha pedig nem akarjuk vagy nem tudjuk megadni a tömb elemeinek számát, ez a deklarálás is helyes, pl.:

Dim Napok()

Ilyenkor az elemeit így is megadhatjuk – lásd a lenti gyakorlatban:

Napok = Array(“Hétfő”, “Kedd”, “Szeda”, “Csütörtök”, “Péntek”, “Szombat”, “Vasárnap”)

 

III: Tömbök típusai: Egydimenziós és  Többdimenziós

1. Egydimenziós

A fenti tömbök ún. egydimenziós tömbök. Ilyen tömbnek fogható fel egyébként Excelben egy oszlop vagy egy sor (és azok cellái).

Gyakorlat: a makrókat be tudod másolni egy sima modulba (üres munkafüzetben) és onnan lefuttatni.

Gyakorlat #1: adatok beolvasása tömbbe

A jól bevált módszer: adjuk meg a hét napjait változókkal, majd írassuk ki a napokat msgbox-ba:

Élelmesebbek észrevehették, hogy ebben az első kódban nincs is tömb😊

Ugyanezt oldjuk meg tömbbel: itt az elemeknek már értéket is adunk, a hét napjait: 0. elem a Hétfő, 1. elem a Kedd stb.

Hát nem lett sokkal rövidebb a kód, igaz? Szerencsére az indexszámok helyett feltölthetjük a tömbünket a hét napjaival. Ilyenkor a tömböt indexszám nélkül deklaráljuk: Dim Napok()

Lehet ez tovább fokozni/egyszerűsíteni? Persze, hiszen a tömb elemein végigmehetünk, mondjuk egy

For – Next ciklussal:

Látható – különösen a legelső makróhoz képest – hogy ez a megoldás jóval rövidebb, átláthatóbb és gyorsabban lefut.

Gyakorlat #2: tömb adatainak kiíratása munkalapra

Vegyük az alábbi tömböt:

Napok = Array(“Hétfő”, “Kedd”, “Szerda”, “Csütörtök”, “Péntek”, “Szombat”, “Vasárnap”)

Ennek az elemeit szeretnénk kiíratni egy tartományba, mondjuk a D oszlopba. A megoldás igen hasonló a fenti „Sub Tomb06” makróhoz:

A különbség a cikluson belüli kód:

Worksheets(“Sheet1”).Cells(i + 1, 4) = Napok(i)

A ciklusnál az „i” kezdőértéke 0 vagyis az első körben az „i”-t 0-val helyettesíti be a kód:

Worksheets(“Sheet1”).Cells(0 + 1, 4) = Napok(0)

A cells(0+1,4) az első sort és 4. oszlopot jelent, magyarán a D1-es cellát. A Napok(0) pedig a Napok tömb 0. elemét jelenti, vagyis a Hétfőt. Azaz kezdetben a D1-es cellába kiíratjuk a Hétfőt.

A második körnél a ciklusban az „i” értéke 1-re változik, azaz:

Worksheets(“Sheet1”).Cells(1 + 1, 4) = Napok(1)

Vagyis itt már a D2-es cellába írjuk ki a Keddet. És így tovább.

2. Többdimenziós tömbök

A tömb ugyebár elemek csoportja. Ha több ilyen csoportot is tartalmaz, akkor beszélünk többdimenziós változatról.

A tömbök maximum 60 dimenziót tartalmazhatnak, de ne aggódjunk: a legtöbb embernek a 2-3 dimenziós változat bőven elegendő. Példa egy kétdimenziós tömb deklarálására:

Dim Napok_Teendok(1 To 7, 1 To 2)

A könnyebb megértés végett nézzük meg az alábbi tartományt:

A deklarálás megértéséhez gondoljunk egy mátrixra:

1 To 7 jelentése: sorok (1-től 7-ig): ez az első dimenzió

1 To 2 jelentése: oszlopok (A-tól B-ig vagyis 1-től 2-ig): ez a második dimenzió

Excelben is szoktunk ilyent, hiszen a cella egy sor és egy oszlop metszéspontja.  Vagyis ha azt mondom: a 3. sor és 2. oszlop metszéspontja, akkor az a fenti kép alapján a B3-as cella lesz (melynek a tartalma a „Bevásárlás” szó).

Gyakorlat: a makrókat itt is be tudod másolni egy sima modulba (üres munkafüzetben) és onnan lefuttatni.

Gyakorlat #1: adatok beolvasása tartományból tömbbe

A „Napok_Teendok(1 To 7, 1 To 2)” tömb elemein is végigmehetünk ciklussal, pl. az első dimenzión, ami az „1 To 7” és amit így kell megadnunk:

(Napok_Teendok, 1) – lásd a mostani kódban:

A ciklusnál a „(Napok_Teendok, 1)”-nél tehát az 1 az első dimenziót jelenti, aminek értéke: 1-től 7-ig. Hasonlóképpen a második dimenziónál a „(Napok_Teendok, 1)” helyett a „(Napok_Teendok, 2)” lesz a korrekt.

Ezzel a kóddal egyetlen gond van: hogy a nagy nihilt kapjuk vissza az msgbox-ban, hiszen nincs értéke a tömb elemeinek.

Előbb a tömbhöz adjunk hozzá értékeket:

Ellenőrzés: pl. a Napok_Teendok(1,1)-nek meg kell egyeznie a tartomány 1. sorának és 1. oszlopának cellájával, ami a „Hétfő”. Ha lépésenként futtatom a makrót, könnyedén tudom ellenőrizni:

Gyakorlat #2: tömb adatainak kiíratása munkalapra:

Most már kiírathatjuk a tömb elemeit. Az előző kód egy msgbox-os sorral kiegészítve:

És a non plus ultra, ami már-már vérlázítóan szemet gyönyörködtető: az előző makró még hatékonyabban:

Ha még mindig olvasod a posztot, megérdemelsz egy kis pihenőt, illetve segítséget: az előző két makró összehasonlítva:

Két apró, ám lényeges különbség:

1. Deklarálás: a jobb oldali kódnál nincs indexszám – sárga kiemelés
2. A tömbbe történő beolvasás (avagy a tömb elemeinek feltöltése értékekkel) nem a cikluson belül van (bal oldali kép), hanem a cikluson kívül (jobb oldal) – lila kiemelés. Vagyis a „Sub Tomb09_03()”-nál egyszer olvassuk be az értékeket a tömbbe (egyetlen sorban!), ezzel pedig drasztikusan felgyorsulhat a kód futtatása. Egy tartomány (vagy akár táblázat) adatait ilyen egyszerű beolvasni egy tömbbe:

Napok_Teendok = Worksheets(“Sheet1”).Range(“a1”).CurrentRegion.Value

A fenti msgbox-os kiíratás – mi tagadás – nem annyira életszerű, illetve izgalmas. Írassuk ki a tömböt munkalapra (a Gyakorlat #2 amúgy is ezt ígérte). Ehhez kicsit megváltoztatjuk a beolvasott tömb elemeit, majd újra kiíratjuk, mégpedig az eredeti tartománytól három oszloppal arrébb:

Makró futtatása előtti és utáni állapot:

Egyelőre ennyit a tömbökről, remélem hasznosnak és érthetőnek találtad okfejtésemet.

Kérdésed, észrevételed van? Hívj vagy dobj egy emailt az xlmotyo@gmail.com-ra.