Função Array

  • Artigo

Retorna uma Variant contendo uma array.

Sintaxe

Array(arglist)

O argumentoarglist necessário é uma lista delimitada por vírgulas de valores atribuídos aos elementos da matriz contida na Variant. Se nenhum argumento for especificado, será criada uma matriz de comprimento zero.

Comentários

A notação usada para se referir a um elemento de uma matriz consiste do nome da variável seguido de parênteses que contêm um número de índice indicando o elemento desejado.

No exemplo a seguir, a primeira instrução cria uma variável chamada A como uma Variant. A segunda instrução atribui uma matriz à variável A. A última instrução atribui o valor contido no segundo elemento da matriz a outra variável.

Dim A As Variant, B As Long, i As Long
A = Array(10, 20, 30)  ' A is a three element list by default indexed 0 to 2
B = A(2)               ' B is now 30
ReDim Preserve A(4)    ' Extend A's length to five elements
A(4) = 40              ' Set the fifth element's value
For i = LBound(A) To UBound(A)
    Debug.Print "A(" & i & ") = " & A(i)
Next i

O limite inferior de uma matriz criada usando a função Array é determinado pelo limite inferior especificado na instrução Option Base, a não ser que Array seja qualificada com o nome da biblioteca de tipos (por exemplo, VBA.Array). Se for qualificada com o nome da biblioteca de tipos, Array não será afetada por Option Base.

Observação

Uma Variant que não é declarada como uma matriz ainda pode conter uma matriz. Uma variável Variant pode conter uma matriz de qualquer tipo, exceto cadeias de comprimento fixo e tipos definidos pelo usuário. Embora uma Variant que contenha uma matriz seja conceitualmente diferente de uma matriz cujos elementos sejam do tipo Variant, os elementos da matriz são acessados da mesma forma.

Exemplo

Este exemplo usa a função Array para retornar uma Variant contendo uma matriz.

Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
' Return values assume lower bound set to 1 (using Option Base
' statement).
MyDay = MyWeek(2)    ' MyDay contains "Tue".
MyDay = MyWeek(4)    ' MyDay contains "Thu".

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.