Questo tutorial dimostrerà come popolare un array con un intervallo di celle.
Assegna intervallo all'array
Possiamo facilmente popolare un array Variant con un intervallo di celle.
Assegna un valore da una singola colonna
Questo esempio eseguirà il ciclo di Range ("A1: A10"), assegnando i valori della cella a un array:
| 12345678910111213 | Sub TestArrayValuesSingle()'Dichiara l'array come array varianteDim arRng() come variante'Dichiara l'intero per memorizzare il numero di righeDim iRw As Integer'Assegna un intervallo a una variabile dell'arrayarRng = Intervallo ("A1: A10")'loop attraverso le righe - da 1 a 10'Per iRw = 1 A UBound(arRng)'mostra il risultato nella finestra immediataDebug.Print arRng(iRw , 1)Avanti iRwFine sottotitolo |
Il UBound è usato per impostare il limite superiore dell'array (es. 10) in modo che il ciclo sappia eseguire il ciclo 10 volte.
IlDebug.Stampa La funzione ti mostrerà il valore contenuto nell'array nella finestra immediata.
Assegna valore da più colonne
| 123456789101112131415161718 | Sub TestArrayValuesMultiple()'Dichiara l'array come array varianteDim arRng() come variante'Dichiara l'intero per memorizzare il numero di righeDim iRw As Integer'Dichiara l'intero per memorizzare il numero di colonneDim iCol come numero intero'Assegna un intervallo a una variabile dell'arrayarRng = Intervallo ("A1: C10")'loop attraverso le righe - da 1 a 10'Per iRw = 1 A UBound(arRng,1)'ora - mentre sei nella riga 1, scorri le 3 colonnePer iCol = 1 a UBound(arRng,2)'mostra il risultato nella finestra immediataDebug.Print arRng(iRw, iCol)Successivo iColAvanti iRwFine sottotitolo |
Nel codice sopra, abbiamo popolato l'array con i valori in Range ("A1: C10").
Il UBound viene utilizzato ancora una volta, ma questa volta è necessario due volte: una volta per scorrere le righe e poi di nuovo per scorrere le colonne.
Il Debug.Stampa La funzione ti mostrerà il valore contenuto nell'array nella finestra immediata.
