Acest tutorial va demonstra cum să populați o matrice cu o gamă de celule.
Atribuiți gama pentru matrice
Putem popula cu ușurință o matrice Variant cu o gamă de celule.
Atribuiți valoarea dintr-o singură coloană
Acest exemplu va face o buclă prin Range („A1: A10”), atribuind valorile celulei unui tablou:
| 12345678910111213 | Sub TestArrayValuesSingle ()'Declarați matricea ca o variantă matriceDim arRng () Ca variantă'Declarați numărul întreg pentru a stoca numărul de rânduriDim iRw Ca întreg'Atribuiți intervalul unei variabile matricearRng = Range ("A1: A10")'buclă prin rânduri - de la 1 la 10Pentru iRw = 1 la UBound (arRng)'arată rezultatul în fereastra imediatăDebug.Print arRng (iRw, 1)Următorul iRwSfârșitul Sub |
The UBound este folosit pentru a seta limita superioară a matricei (de exemplu, 10) astfel încât bucla să știe să se bucle de 10 ori.
TheDebug.Print funcția vă va arăta valoarea conținută în matrice în fereastra imediată.
Alocați valoare din mai multe coloane
| 123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Declarați matricea ca variantă de matriceDim arRng () Ca variantă'Declarați numărul întreg pentru a stoca numărul de rânduriDim iRw Ca întreg'Declarați numărul întreg pentru a stoca numărul de coloaneDim iCol ca Integer'Atribuiți intervalul unei variabile matricearRng = Range ("A1: C10")'buclă prin rânduri - de la 1 la 10Pentru iRw = 1 la UBound (arRng, 1)'acum - în timp ce în rândul 1, parcurgeți cele 3 coloanePentru iCol = 1 la UBound (arRng, 2)'arată rezultatul în fereastra imediatăDebug.Print arRng (iRw, iCol)Următorul iColUrmătorul iRwSfârșitul Sub |
În codul de mai sus, am completat matricea cu valorile din Range („A1: C10”).
The UBound este din nou folosit - dar de data aceasta este necesar de două ori - o dată pentru a parcurge rândurile, apoi din nou pentru a parcurge coloanele.
The Debug.Print funcția vă va arăta valoarea conținută în matrice în fereastra imediată.
