Sadržaj
Ovaj će vodič pokazati kako popuniti niz nizom ćelija.
Dodijeli raspon nizu
Niz varijanti možemo lako napuniti nizom Variant.
Dodijelite vrijednost iz jednog stupca
Ovaj primjer će se kretati kroz raspon ("A1: A10"), dodjeljujući vrijednosti ćelije nizu:
| 12345678910111213 | Sub TestArrayValuesSingle ()'Deklarirajte niz kao varijantni nizDim arRng () Kao varijanta'Proglasite cijeli broj za spremanje broja redakaPriguši iRw kao cijeli broj'Dodijelite raspon varijabli nizaarRng = Raspon ("A1: A10")'petlja kroz redove - 1 do 10Za iRw = 1 prema UBound (arRng)'prikazati rezultat u neposrednom prozoruOtklanjanje pogrešaka. Ispis arRng (iRw, 1)Sljedeći iRwKraj podm |
The UBound koristi se za postavljanje gornje granice niza (npr. 10) tako da petlja zna petljati 10 puta.
TheIspravljanje ispisa funkcija će vam pokazati vrijednost koju sadrži niz u neposrednom prozoru.
Dodijelite vrijednost iz više stupaca
| 123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Deklarirajte niz kao varijantni nizDim arRng () Kao varijanta'Proglasite cijeli broj za spremanje broja redakaPriguši iRw kao cijeli broj'Proglasite cijeli broj za spremanje broja stupacaZatamnite iCol kao cijeli broj'Dodijelite raspon varijabli nizaarRng = Raspon ("A1: C10")'petlja kroz redove - 1 do 10Za iRw = 1 prema UBound (arRng, 1)'sada - dok ste u retku 1, prođite kroz 3 stupcaZa iCol = 1 do UBound (arRng, 2)'prikazati rezultat u neposrednom prozoruDebug.Print arRng (iRw, iCol)Sljedeći iColSljedeći iRwKraj podm |
U gornjem kodu popunili smo niz vrijednostima u rasponu (“A1: C10”).
The UBound se ponovno koristi - ali ovaj put je potrebno dvaput - jednom za ponavljanje kroz retke, a zatim ponovno za prolaženje kroz stupce.
The Ispravljanje ispisa funkcija će vam pokazati vrijednost koju sadrži niz u neposrednom prozoru.
