Veľkosť poľa VBA - podrobný sprievodca príkladmi

Obsah

Ako zistiť veľkosť poľa pomocou kódu VBA?

V tomto článku uvádzame podrobného sprievodcu hľadaním veľkosti poľa pomocou kódu VBA.

Ako zistiť veľkosť poľa pomocou kódu VBA?

Podľa pokynov vyhľadajte veľkosť poľa pomocou kódu Excel VBA.

Krok 1: Začnime najskôr základom, deklarujeme premennú vo VBA ako variantný údajový typ.

Kód:

Sub Array_Size () Dim MyArray ako variant End Sub

Krok 2: Pre túto premennú použite funkciu ARRAY a priraďte niektoré hodnoty, ako je uvedené nižšie.

Kód:

Sub Array_Size () Dim MyArray ako variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") End Sub

Krok 3: Dobre, priradili sme niektoré hodnoty názvu poľa „MyArray“.

Predpokladajme, že ak potrebujeme napísať slučku na uloženie týchto hodnôt poľa do buniek, potom sa musíme rozhodnúť, koľkokrát musí slučka bežať. Závisí to od počtu hodnôt, ktoré má pole.

Dobre, teraz sa pozrime na počet hodnôt priradených k názvu poľa „MyArray“, poľa je priradených celkovo 7 hodnôt, takže teraz vieme, koľkokrát musí slučka bežať, aby sa hodnoty poľa uložili do buniek .

Krok 4: Deklarujte inú premennú ako celé číslo na zápis slučky FOR vo VBA.

Kód:

Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = 1 To 7 Ďalej k Koniec Sub

Krok 5: Tam ideme, otvorili sme slučku FOR od 1 do 7, dovnútra slučky napíšeme vlastnosť CELLS, aby sme ju uložili, ako je uvedené nižšie.

Kód:

Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = 1 To 7 Bunky (k, 1) .Hodnota = MyArray (k) Ďalej k Koniec Sub

Krok 6: Dobre, teraz spustite kódový riadok po riadku stlačením funkčného klávesu F8. Po prvom stlačení klávesu F8 sa inicializuje makro.

Krok 7: Stlačením klávesu F8 prejdete na riadok na priradenie hodnoty poľa.

Krok 8: Názov poľa „MyArray“ nemá odteraz žiadne hodnoty, stlačte kláves F8 a všetky uvedené hodnoty budú priradené k premennej poľa.

Krok 9: Teraz začne bežať slučka a dvakrát stlačte kláves F8 a uvidíte, akú hodnotu dostaneme v bunke A1.

Ojoj !!! Počkajte, naša prvá hodnota v premennej poľa je „Jan“, ale výsledok máme ako druhú hodnotu „Feb“, keď je stále spustená prvá hodnotová slučka.
Krok 10: Je to tak preto, lebo keď počet vašich hodnôt poľa začína od nuly, nie od 1, musíme začiatočnú slučku zahrnúť ako nulu.

Krok 11: Akonáhle sa počiatočná pozícia slučky zníži o jednu, podobne by sa mala znížiť aj koncovka o 1, preto urobte koniec ako 6 namiesto 7.

Krok 12: Akonáhle sa slučka začína a končí, rozhodne sa ešte o jednu vylepšenie, čo musíme urobiť, tj vo vlastnosti CELLS sme ako dynamický výber buniek použili premennú „k“, ale keďže naša slučka začína od nuly, už žiadna bunka nezačína nulou , tak do premennej „k“ pridajte plus 1.

Kód:

Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = 0 To 6 Bunky (k + 1, 1). Hodnota = MyArray (k) Ďalej k Koniec Sub

Krok 13: Takže teraz pri spustení slučky je prvá hodnota „k“ nulová a keďže sme pridali plus 1, hodnota „k“ bude 1, čo znamená bunku A1.
Krok 14: Teraz spustite kód a všetky hodnoty poľa sa uložia do buniek.

V tomto prípade sme sa však rozhodli, že začiatočnú a koncovú veľkosť slučky nastavíme manuálne, ale veľkosť poľa je možné ľahko určiť pomocou funkcií LBOUND & UBOUND.

Vyhľadajte veľkosť poľa automaticky

Krok 1: Keď sme o zahrnutom začiatočnom a konečnom bode slučky vyššie, manuálne sme spočítali počet hodnôt, ktoré pole má, ale na spustenie poľa použite funkciu LBOUND a na tento priechod zadajte názov premennej „MyArray“.

Krok 2: A na určenie poslednej veľkosti poľa použite funkciu UBOUND a zadajte názov poľa „MyArray“.

Kód:

Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = Lboubd (MyArray ) Na bunky UBound (MyArray) (k + 1, 1). Hodnota = MyArray (k) Ďalej k Koniec Sub