Ovaj će vodič pokazati kako ispisati niz u raspon pomoću VBA.
Izlazni (ispis) niz u raspon
Podaci koji su pohranjeni u nizu lako se mogu ispisati u Excel tablicu. Postoje 3 načina za to.
Izlazni podaci u različit raspon
Mogli bismo popuniti niz s podacima iz jednog raspona u Excelu, a zatim podatke prenijeti u drugi raspon u Excelu.
12345678 | Javni pod test test ()'deklarirajte nizPriguši rnArray () kao varijantu'popunite niz rasponomrnArray = Raspon ("A1: H24")'izlaziti niz u drugi raspon ćelijaRaspon ("J1: Q24") = rnArray ()Kraj podm |
Cijeli niz kopira se u jedan redak koda u polje, a zatim se u cijelosti ispisuje u različit raspon ćelija na listu.
Petlje kroz niz i izlaz podataka
Ovaj primjer će se kretati kroz niz, ispisujući niz u raspon.
12345678910111213 | Javni pod testLoopArray ()'deklarirajte nizPriguši rnArray () kao varijantu'Proglasite cijeli broj za spremanje broja redakaPriguši iRw kao cijeli broj'Dodijelite raspon varijabli nizarnArray = Raspon ("A1: A10")'prođite kroz vrijednosti u nizuZa iRw = LBound (rnArray) Za UBound (rnArray)'popuniti podatke različitim podacimaStanice (iRw, 2). Vrijednost = rnArray (iRw, 1)Sljedeći iRwKraj podm |
LBoundi UBoundvraća početni indeks (donja granica) i završni indeks (gornja granica) niza, u ovom slučaju 1 i 10.
Transponirajte podatke niza
Također možemo prenijeti podatke u nizu u Excel tablicu. Transponiranje omogućuje prikaz podataka vodoravno na Excel listu.
Na primjer, ako imamo popis stanja u Excelu i želimo ih transponirati.
Tada bismo mogli pokrenuti sljedeći kod:
12345678 | Javni pod testOutputTranspose ()'deklarirajte nizPriguši rnArray () kao varijantu'popunite ga rasponomrnArray = Raspon ("A1: A38")'transponirati podatkeRaspon (ćelije (1, 3), ćelije (1, 40)). Vrijednost = primjena. Prijenos (rnArray)Kraj podm |
Što bi rezultiralo sljedećim:
Ispis u Debug.Print
Također možemo ispisati vrijednosti niza u prozor za otklanjanje pogrešaka.
12345678910111213 | Javni pod testLoopArray ()'deklarirajte nizPriguši rnArray () Kao varijantu'Proglasite cijeli broj za spremanje broja redakaPriguši iRw kao cijeli broj'Dodijelite raspon varijabli nizarnArray = Raspon ("A1: A10")'petlja kroz redove - 1 do 10Za iRw = 1 prema UBound (rnArray)'izlaz u neposredni prozorIspravljanje ispisa rnArray (iRw, 1)Sljedeći iRwKraj podm |