Arrays en Visual Basic para aplicacións

As matrices en Visual Basic for Application son estruturas que normalmente almacenan conxuntos de variables relacionadas do mesmo tipo. Accédese ás entradas da matriz polo seu índice numérico.

Por exemplo, hai un equipo de 20 persoas cuxos nomes deben ser gardados para o seu uso posterior no código VBA. Poderíase simplemente declarar 20 variables para manter cada nome, así:

Dim Team_Member1 como cadea Dim Team_Member2 como cadea... Dim Team_Member20 como cadea

Pero pode usar un xeito moito máis sinxelo e organizado: almacenar unha lista de nomes de membros do equipo nunha matriz de 20 variables como Corda:

Dim Team_Members(1 To 20) As String

Na liña mostrada arriba, declaramos unha matriz. Agora imos escribir un valor para cada un dos seus elementos, como este:

Team_Members(1) = "John Smith"

Unha vantaxe adicional de almacenar datos nunha matriz, en comparación co uso de variables separadas, faise evidente cando se fai necesario realizar a mesma acción en cada elemento da matriz. Se os nomes dos membros do equipo estivesen almacenados en 20 variables separadas, entón farían falta 20 liñas de código para escribir cada vez para realizar a mesma acción en cada unha delas. Non obstante, se os nomes se almacenan nunha matriz, pode realizar a acción desexada con cada un deles mediante un simple bucle.

Como funciona a continuación móstrase cun exemplo de código que imprime os nomes de cada membro do equipo secuencialmente nas celas da columna. A folla de traballo de Excel activa.

Para i = 1 a 20 celas(i,1).Valor = Team_Members(i) Seguinte i

Obviamente, traballar cunha matriz que almacena 20 nomes é moito menos complicado e máis preciso que usar 20 variables separadas. Pero e se estes nomes non son 20, senón 1000? E se, ademais, se esixe gardar os apelidos e os patronímicos por separado?! Está claro que pronto será completamente imposible xestionar tal volume de datos en código VBA sen a axuda dunha matriz.

Matrices multidimensionais en Excel Visual Basic

As matrices de Visual Basic comentadas anteriormente considéranse unidimensionales. Isto significa que almacenan unha lista sinxela de nomes. Non obstante, as matrices poden ter varias dimensións. Por exemplo, unha matriz bidimensional pódese comparar cunha cuadrícula de valores.

Digamos que queres gardar as cifras de vendas diarias de xaneiro de 5 equipos diferentes. Isto requirirá unha matriz bidimensional formada por 5 conxuntos de métricas durante 31 días. Imos declarar unha matriz como esta:

Dim Xan_Sales_Figures (1 a 31, 1 a 5) como moeda

Para acceder aos elementos da matriz Cifras_de_vendas de xaneiro, cómpre utilizar dous índices que indiquen o día do mes e o número de comando. Por exemplo, o enderezo dun elemento que contén cifras de vendas para 2-oh equipos para 15º Xaneiro escribiríase así:

Cifras_de_vendas de xaneiro (15, 2)

Do mesmo xeito, pode declarar unha matriz con 3 ou máis dimensións; só engade dimensións adicionais á declaración da matriz e use índices adicionais para referirse aos elementos desta matriz.

Declaración de matrices en Excel Visual Basic

A principios deste artigo, xa analizamos varios exemplos de declaración de matrices en VBA, pero este tema merece unha mirada máis atenta. Como se mostra, unha matriz unidimensional pódese declarar así:

Dim Team_Members(1 To 20) As String

Tal declaración indica ao compilador VBA que a matriz Membros_equipo consta de 20 variables ás que se pode acceder en índices do 1 ao 20. Non obstante, poderíamos pensar en numerar as variables da nosa matriz de 0 a 19, nese caso a matriz debería declararse así:

Dim Team_Members(0 To 19) As String

De feito, por defecto, a numeración dos elementos da matriz comeza a partir de 0, e na declaración da matriz é posible que non se especifique o índice inicial, así:

Dim Team_Members(19) As String

O compilador VBA tratará tal entrada como que declara unha matriz de 20 elementos con índices de 0 a 19.

As mesmas regras aplícanse cando se declaran matrices de Visual Basic multidimensionais. Como xa se mostra nun dos exemplos, ao declarar unha matriz bidimensional, os índices das súas dimensións están separados por unha coma:

Dim Xan_Sales_Figures (1 a 31, 1 a 5) como moeda

Non obstante, se non especifica un índice inicial para ambas dimensións da matriz e o declara así:

Dim Xan_Sales_Figures(31, 5) As Currency

entón esta entrada tratarase como unha matriz bidimensional, cuxa primeira dimensión contén 32 elementos con índices de 0 a 31, e a segunda dimensión da matriz contén 6 elementos con índices de 0 a 5.

Matrices dinámicas

Todas as matrices dos exemplos anteriores teñen un número fixo de dimensións. Non obstante, en moitos casos non sabemos de antemán que tamaño debería ser a nosa matriz. Podemos saír da situación declarando unha enorme matriz, cuxo tamaño certamente será maior do necesario para a nosa tarefa. Pero tal solución requirirá moita memoria extra e pode ralentizar o programa. Hai unha solución mellor. Podemos usar unha matriz dinámica: esta é unha matriz cuxo tamaño se pode configurar e cambiar calquera número de veces durante a execución dunha macro.

Unha matriz dinámica declárase con parénteses baleiras, como esta:

Dim Team_Members() As String

A continuación, terá que declarar a dimensión da matriz durante a execución do código usando a expresión ReDim:

ReDim Team_Members (1 a 20)

E se durante a execución do código necesitas cambiar o tamaño da matriz de novo, podes usar a expresión ReDim de novo:

Se Team_Size > 20 Entón ReDim Team_Members(1 To Team_Size) Finalize If

Teña en conta que cambiar o tamaño dunha matriz dinámica deste xeito provocará a perda de todos os valores almacenados na matriz. Para almacenar datos xa na matriz, cómpre usar a palabra clave Conservascomo se mostra a continuación:

Se Team_Size > 20, ReDim Preserve Team_Members (1 To Team_Size) Finalize If

Desafortunadamente, a palabra clave Conservas só se pode usar para cambiar o límite superior dunha dimensión de matriz. O límite inferior dunha matriz non se pode cambiar deste xeito. Ademais, se a matriz ten varias dimensións, use a palabra clave Conservas, só se pode redimensionar a última dimensión da matriz.