Nada me causa
tanto fascínio em programação como a compreensão da construção de um “Array”,
popularmente conhecido como “Matriz”.
Para
continuarmos com este estudo, precisamos diferenciar os dois tipos conhecidos.
Na verdade, nas duas situações temos um Array, porém, o primeiro é chamado de
Unidimensional e o segundo, Bidimensional.
O primeiro
refere-se a simples atribuição de valores a um array, que será constituído por
uma única lista, uma única linha de dados, recebendo valores de 0 a 2, por
exemplo.
Já as Bidimensionais, podem
guardas valores como em uma tabela, com várias linhas e várias colunas, o que
obviamente é mais complexo.
5.1. Criando Arrays Unidimensionais
A primeira coisa
que se deve saber sobre a aplicação de um Array, é como declará-lo. Para
declarar uma array, você não precisa usar nenhuma palavra reservada. Apenas use
algo que possa identificar o objetivo da sua criação, para melhor compreensão
do seu proposito. Como estamos em clima de copa do mundo, vamos supor as três
primeiras colocações da competição, para construir o nosso primeiro código.
Veja que declaramos o array como
PaisCopa(2). Neste caso, teremos 3 posições(0,1 e 2).
Declaramos a
variável assim: Dim PaisCopa(2) As String
Neste caso,
podemos inserir 3 itens neste array, quando ficará assim.
PaisCopa(0) =
"Brasil"
PaisCopa(1) =
"Olanda"
PaisCopa(2) =
"Alemanha"
Inserimos os 3 itens que
queríamos. Agora precisamos jogar estes dados em uma planilha. É muito
importante, que você entenda, que neste array, que eu chamaria mais de vetor,
não determinamos linhas e colunas como vamos fazer nos próximos. Desta forma,
para inserirmos estas informações em uma planilha, precisamos criar um loop,
para que as informações fiquem nas posições que determinarmos. Veja como
ficaria o código.
Sub CopaUni2014()
|
Dim PaisCopa(2) As String
'1º. declaramos um array unidimensional com 3 posições
|
Set ShtArray = Sheets("Array") 'Declaramos a plan Array que
receberá os valores do array
|
'Atribuímos valores a cada posição do array
|
ShtArray.Select
|
PaisCopa(0) = "Brasil"
|
PaisCopa(1) = "Olanda"
|
PaisCopa(2) = "Alemanha"
|
i = 0
|
For Lin = 1 To 3 'percorrerá
da 1ª até a 3ª linha da planilha
|
ShtArray.Range("A" & Lin) = PaisCopa(i) 'insere as informações do array na
planilha
|
i = i + 1 'incremanta
a variável
|
Next
|
End Sub
|
Ao executarmos esta macro, os
dados serão inseridos nas células A1, A2 e A3 respectivamente, em uma planilha
que você nomerá “Array”.
