Kazalo
Ta vadnica bo pokazala, kako v polje vnesti niz celic.
Dodelite obseg nizu
Niz Variant lahko preprosto napolnimo z vrsto celic.
Dodelite vrednost iz enega stolpca
Ta primer se bo vrtel skozi obseg ("A1: A10") in vrednosti celic dodelil matriki:
| 12345678910111213 | Sub TestArrayValuesSingle ()'Razglasite matriko kot variantno matrikoZatemni arRng () kot varianto'Razglasite celo število za shranjevanje števila vrsticZatemni iRw kot celo število'Dodelite obseg spremenljivki matrikearRng = Obseg ("A1: A10")'zanka skozi vrstice - 1 do 10Za iRw = 1 proti UBound (arRng)'prikaže rezultat v neposrednem oknuDebug.Print arRng (iRw, 1)Naslednji iRwEnd Sub |
The UBound se uporablja za nastavitev zgornje meje matrike (npr. 10), tako da zanka ve, da se zanka 10 -krat.
TheOdpravljanje napak funkcija vam bo pokazala vrednost, ki jo vsebuje matrika v neposrednem oknu.
Dodelite vrednost iz več stolpcev
| 123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Razglasite matriko kot variantno matrikoZatemni arRng () kot varianto'Razglasite celo število za shranjevanje števila vrsticZatemni iRw kot celo število'Razglasite celo število za shranjevanje števila stolpcevZatemni iCol kot celo število'Dodelite obseg spremenljivki matrikearRng = Razpon ("A1: C10")'zanka skozi vrstice - 1 do 10Za iRw = 1 do UBound (arRng, 1)'zdaj - v prvi vrstici prebrskaj tri stolpceZa iCol = 1 do UBound (arRng, 2)'prikaže rezultat v neposrednem oknuDebug.Print arRng (iRw, iCol)Naslednji iColNaslednji iRwEnd Sub |
V zgornji kodi smo matriko naselili z vrednostmi v območju (»A1: C10«).
The UBound je ponovno uporabljen - tokrat je potreben dvakrat - enkrat za vrtenje po vrsticah in nato še enkrat za vrtenje po stolpcih.
The Odpravljanje napak funkcija vam bo pokazala vrednost, ki jo vsebuje matrika v neposrednem oknu.
