VBA tömbméret - lépésenkénti útmutató példákkal

Tartalomjegyzék

Hogyan lehet megtalálni a tömb méretét a VBA kód használatával?

Ebben a cikkben lépésről lépésre nyújtunk útmutatást a tömb méretének megtalálásához a VBA kód segítségével.

Hogyan lehet megtalálni a tömb méretét a VBA kód használatával?

Kövesse a lépéseket a tömb méretének megkereséséhez az Excel VBA kód használatával.

1. lépés: Kezdjük először az alapszintdel, deklaráljuk a VBA változóját változattípusnak.

Kód:

Sub Array_Size () Dim MyArray mint variáns End Sub

2. lépés: Ehhez a változóhoz használja az ARRAY funkciót, és rendeljen hozzá néhány értéket az alábbiak szerint.

Kód:

Sub Array_Size () Dim MyArray variánsként MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") End Sub

3. lépés: Ok, hozzárendeltünk néhány értéket a „MyArray” tömb nevéhez.

Tegyük fel, hogy ha egy ciklust kell írnunk, hogy ezeket a tömbértékeket cellákba tároljuk, akkor el kell döntenünk, hogy a ciklusnak hányszor kell futnia. Ez a tömb értékeinek számától függ.

Ok, most nézd meg a „MyArray” tömbnévhez rendelt értékek számát, összesen 7 érték van hozzárendelve a tömbhöz, így most már tudjuk, hányszor kell futtatni a ciklust egy tömb értékeinek cellákba való tárolásához .

4. lépés: Nyújtson be egy másik változót egész számként a FOR ciklus VBA-beírásához.

Kód:

Sub Array_Size () Dim MyArray variánsként MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k egész szám k = 1 és 7 között Következő k End Sub

5. lépés: Oda megyünk, megnyitottuk a FOR ciklust 1-től 7-ig kezdődően, a ciklus belsejében írjuk meg a CELLS tulajdonságot, amelyet tárolni szeretnénk, az alábbiak szerint.

Kód:

Sub Array_Size () Dim MyArray variánsként MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k egész szám k = 1 és 7 között Sejtek (k, 1). Érték = MyArray (k) Következő k End Sub

6. lépés: Ok, most hajtsa végre a kódsort soronként az F8 funkciógomb megnyomásával. Az F8 billentyű első megnyomásakor elindítja a makrót.

7. lépés: Nyomja meg az F8 billentyűt, így a tömbérték-hozzárendelési sorra ugrik.

8. lépés: A „MyArray” tömbnévtől kezdve nincsenek értékek, nyomja meg az F8 billentyűt, és az összes említett értéket a tömb változóhoz rendeli.

9. lépés: Most elkezd futni a hurok, és nyomja meg kétszer az F8 billentyűt, és nézze meg, milyen értéket kapunk az A1 cellában.

Hoppá !!! Tartsd meg, az első értékünk a tömb változóban a „Jan”, de az eredményt a második „Feb” értékként kaptuk meg, amikor az első értékkör még mindig fut.
10. lépés: Ennek az az oka, hogy amikor a tömbértékeid nulláról indulnak, nem pedig 1-ről, akkor a kezdő ciklust nullaként kell szerepeltetnünk.

11. lépés: Miután a hurok kiindulási helye csökkent egy hasonlóan, a véget is csökkenteni kell 1-gyel, tehát a végét állítsa 6 helyett 7 helyett.

12. lépés: Miután a ciklus kezdete és vége még egy módosítást el kellett végeznünk, azaz a CELLS tulajdonságban a „k” változót használtuk dinamikus cellaválasztóként, de mivel a ciklusunk nulláról indul, nincs egyetlen nullával kezdődő cella sem , így adjunk hozzá plusz 1 értéket a „k” változóhoz.

Kód:

Sub Array_Size () Dim MyArray variánsként MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k egész szám k = 0 és 6 között Sejtek (k + 1, 1). Érték = MyArray (k) Következő k End Sub

13. lépés: Tehát most a ciklus első futtatásakor a „k” értéke nulla, és mivel plusz 1-et adtunk hozzá, a „k” értéke 1 lesz, így az A1 cellára utal.
14. lépés: Most futtassa a kódot, és a tömb összes értéke a cellákban lesz tárolva.

Ebben az esetben azonban a hurok kezdő és befejező méretét kézzel határoztuk el, de a tömb nagysága könnyen meghatározható az LBOUND & UBOUND függvényekkel.

A tömb méretének automatikus keresése

1. lépés: Amikor a fenti ciklus kezdő és befejező pontját belefoglaltuk, manuálisan megszámoltuk a tömb értékeinek számát, de a tömb elindításához használja az LBOUND függvényt és ehhez a „MyArray” változó nevet.

2. lépés: Az utolsó tömb méretének meghatározásához használja az UBOUND függvényt, és írja be a „MyArray” tömb nevet.

Kód:

Sub Array_Size () Dim MyArray variánsként MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k egész számként k = Lboubd (MyArray) ) UBound (MyArray) cellákhoz (k + 1, 1). Érték = MyArray (k) Következő k End Sub