Este tutorial demonstrará como preencher uma matriz com um intervalo de células.
Atribuir intervalo à matriz
Podemos facilmente preencher a matriz A Variant com um intervalo de células.
Atribuir valor de uma única coluna
Este exemplo fará um loop em Range (“A1: A10”), atribuindo os valores da célula a uma matriz:
| 12345678910111213 | Sub TestArrayValuesSingle ()'Declare a matriz como uma matriz varianteDim arRng () como variante'Declara o inteiro para armazenar o número de linhasDim iRw As Integer'Atribuir intervalo a uma variável de matrizarRng = intervalo ("A1: A10")'loop através das linhas - 1 a 10Para iRw = 1 para UBound (arRng)'mostra o resultado na janela imediataDebug.Print arRng (iRw, 1)Next iRwEnd Sub |
o UBound é usado para definir o limite superior do array (por exemplo, 10) para que o loop saiba que deve repetir 10 vezes.
oDebug.Print função irá mostrar o valor contido na matriz na janela imediata.
Atribuir valor de várias colunas
| 123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Declare a matriz como uma matriz varianteDim arRng () como variante'Declara o inteiro para armazenar o número de linhasDim iRw As Integer'Declare o inteiro para armazenar o número de colunasDim iCol como inteiro'Atribuir intervalo a uma variável de matrizarRng = intervalo ("A1: C10")'loop pelas linhas - 1 a 10Para iRw = 1 para UBound (arRng, 1)'agora - enquanto na linha 1, percorre as 3 colunasPara iCol = 1 para UBound (arRng, 2)'mostra o resultado na janela imediataDebug.Print arRng (iRw, iCol)Próximo iColNext iRwEnd Sub |
No código acima, preenchemos a matriz com os valores em Range (“A1: C10”).
o UBound é usado mais uma vez - mas desta vez é necessário duas vezes - uma vez para percorrer as linhas e, em seguida, novamente para percorrer as colunas.
o Debug.Print função irá mostrar o valor contido na matriz na janela imediata.
