Adicionar método (VBA)

Adiciona um membro a um objeto Coleção .

Sintaxe

objeto. Adicionaritem, chave, antes, depois

A sintaxe Adicionar método tem o seguinte qualificador de objeto e argumentos nomeados:

Sair Descrição
objeto Obrigatório. Uma expressão do objeto que é avaliada como um objeto na lista Aplica-se a.
item Obrigatório. Uma expressão de qualquer tipo que especifique o membro a adicionar à coleção.
key Opcional. Uma expressão de cadeia exclusiva que especifica uma cadeia de chaves que pode ser utilizada, em vez de um índice posicional, para aceder a um membro da coleção.
antes Opcional. Uma expressão que especifica uma posição relativa na coleção. O membro a adicionar é colocado na coleção antes do membro identificado pelo argumentoanterior. Se for uma expressão numérica, antes tem de ser um número de 1 para o valor da propriedade Contagem da coleção. Se uma expressão de cadeia, antes tem de corresponder à chave especificada quando o membro a ser referido foi adicionado à coleção. Pode especificar uma posição anterior ou posterior , mas não ambas.
depois de Opcional. Uma expressão que especifica uma posição relativa na coleção. O membro a adicionar é colocado na coleção após o membro identificado pelo argumento seguinte . Se for numérico, depois tem de ser um número de 1 para o valor da propriedade Contagem da coleção. Se for uma cadeia, depois tem de corresponder à chave especificada quando o membro referido foi adicionado à coleção. Pode especificar uma posição anterior ou posterior , mas não ambas.

Comentários

Quer o argumento antes ou depois seja uma expressão de cadeia ou expressão numérica, tem de se referir a um membro existente da coleção ou ocorre um erro.

Também ocorrerá um erro se uma chave especificada duplicar a chave para um membro existente da coleção.

Exemplo

Este exemplo utiliza o método Add para adicionar cadeias a uma coleção com e sem uma chave. O método Item é utilizado implicitamente para obter cada cadeia.

Dim c As Collection
Set c = New Collection

c.Add "a"
c.Add "c", "CC"
c.Add "b", "BB", 2
c.Add "d"

Debug.Print c(1) ' --> prints "a"
Debug.Print c(2) ' --> prints "b"
Debug.Print c(3) ' --> prints "c"

Debug.Print c("BB") ' --> prints "b"
Debug.Print c("d") ' --> error (no key was specified for this element - a positional index must be used)

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.

  • Last updated on