Veličina polja VBA - Vodič korak po korak s primjerima

Sadržaj

Kako pronaći veličinu niza pomoću VBA koda?

U ovom članku pružamo detaljni vodič za pronalaženje veličine niza pomoću VBA koda.

Kako pronaći veličinu niza pomoću VBA koda?

Slijedite korake za pronalaženje veličine polja pomoću Excel VBA koda.

Korak 1: Krenimo prvo s osnovnim, proglasimo varijablu u VBA-u kao tip podataka varijante.

Kodirati:

Sub Array_Size () Zatamni MyArray kao varijantu Kraj Sub

Korak 2: Za ovu varijablu koristite funkciju ARRAY i dodijelite neke vrijednosti kao što je prikazano u nastavku.

Kodirati:

Sub Array_Size () Priguši MyArray kao varijantu MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Kraj Sub

Korak 3: Ok, dodijelili smo neke vrijednosti nazivu niza "MyArray".

Pretpostavimo ako trebamo napisati petlju za pohranu tih vrijednosti polja u ćelije, tada moramo odlučiti koliko puta petlja mora biti pokrenuta. To ovisi o broju vrijednosti koje niz ima.

Ok, sada pogledajte broj vrijednosti dodijeljenih nazivu niza "MyArray", nizu je dodijeljeno ukupno 7 vrijednosti, tako da sada znamo koliko puta treba izvršiti petlju da bi se stanice pohranile u ćelije .

Korak 4: Proglasite drugu varijablu cijelim brojem za pisanje FOR petlje u VBA.

Kodirati:

Sub Array_Size () Dim MyArray kao varijanta MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k Kao cjelina za k = 1 do 7 Dalje k Kraj Sub

Korak 5: Eto, otvorili smo petlju FOR počevši od 1 do 7, unutar petlje upišite svojstvo CELLS za pohranu kako je prikazano dolje.

Kodirati:

Sub Array_Size () Dim MyArray kao varijanta MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k Kao cjelina za k = 1 do 7 Ćelije (k, 1) .Vrijednost = MyArray (k) Sljedeći k Kraj Sub

Korak 6: Ok, sada izvedite kodni redak po redak pritiskom na funkcijsku tipku F8. Nakon prvog pritiska tipke F8 pokrenut će makronaredbu.

Korak 7: Pritisnite F8 sada će skočiti na liniju za dodjeljivanje vrijednosti niza.

Korak 8: Od sada naziv polja "MyArray" nema vrijednosti, pritisnite F8, a sve spomenute vrijednosti dodijelit će se varijabli polja.

Korak 9: Sada će se petlja početi izvoditi i pritisnuti tipku F8 dva puta i vidjeti koju vrijednost dobivamo u ćeliji A1.

Ups !!! Pričekajte, naša prva vrijednost u varijabli polja je "Jan", ali rezultat smo dobili kao drugu vrijednost "Feb" dok još uvijek radi prva petlja vrijednosti.
Korak 10: To je zato što kada vaše vrijednosti vrijednosti niza započinju od nule, a ne od 1, pa moramo početnu petlju uključiti kao nulu.

Korak 11: Jednom kad se početni položaj petlje smanji za jedan sličan završetak, trebao bi se smanjiti i za 1, zato završite kao 6 umjesto kao 7.

Korak 12: Jednom kada je petlja započela i završila, još jedan dotjerivanje trebamo napraviti, tj. U svojstvu CELLS koristili smo varijablu „k“ kao dinamički birač ćelija, ali budući da naša petlja započinje od nule, nema stanica koje počinju s nulom , pa dodajte plus 1 varijabli "k".

Kodirati:

Sub Array_Size () Dim MyArray kao varijanta MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k Kao cjelina za k = 0 do 6 Ćelije (k + 1, 1) .Vrijednost = MyArray (k) Sljedeći k Kraj Sub

Korak 13: Dakle, nakon pokretanja petlje prva vrijednost "k" je nula, a budući da smo dodali plus 1, vrijednost "k" će biti 1, tako da se odnosi na ćeliju A1.
Korak 14: Sada pokrenite kôd i sve vrijednosti polja pohranit će se u ćelije.

Međutim, u ovom smo slučaju ručno odredili veličinu početka i završetka petlje, ali veličina polja može se lako odrediti pomoću funkcija LBOUND & UBOUND.

Automatski pronađi veličinu niza

Korak 1: Kada smo uključili početnu i završnu točku petlje u gore navedeno, ručno smo prebrojali broj vrijednosti koje niz ima, ali za pokretanje niza koristimo funkciju LBOUND i za ovu propusnicu ime varijable MyArray.

Korak 2: Da biste odredili posljednju veličinu niza, upotrijebite funkciju UBOUND i unesite naziv niza "MyArray".

Kodirati:

Sub Array_Size () Dim MyArray Kao varijanta MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k Kao cjelina za k = Lboubd (MyArray ) Za UBound (MyArray) stanice (k + 1, 1) .Vrijednost = MyArray (k) Sljedeći k Kraj Sub