Adicionar método (VBA)

Adiciona um membro a um objeto Collection .

Sintaxe

objeto de teste. Adicionaritem, chave, antes, depois

A sintaxe do método Add 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 especifica o membro a ser adicionado à coleção.
key Opcional. Uma expressão de cadeia de caracteres exclusiva que especifica uma cadeia de caracteres de chave que pode ser usada, em vez de um índice posicional, para acessar um membro da coleção.
antes Opcional. Uma expressão que especifica uma posição relativa na coleção. O membro a ser adicionado é colocado na coleção antes do membro identificado pelo argumentobefore. Se for uma expressão numérica, antes deverá ser um número de 1 elevado ao valor da propriedade Count da coleção. Se uma expressão de cadeia de caracteres, antes deverá corresponder à chave especificada quando o membro a que está sendo referido foi adicionado à coleção. Você pode especificar uma posição antes ou uma posição depois , mas não ambas.
após Opcional. Uma expressão que especifica uma posição relativa na coleção. O membro a ser adicionado é colocado na coleção após o membro identificado pelo argumento after . Se numérico, depois deve ser um número de 1 elevado ao valor da propriedade Count da coleção. Se uma string, depois deve corresponder à chave especificada quando o membro referido foi adicionado à coleção. Você pode especificar uma posição antes ou uma posição depois , mas não ambas.

Comentários

Se o argumento antes ou depois for uma expressão de cadeia de caracteres ou uma expressão numérica, ele deve se referir a um membro existente da coleção ou ocorrerá um erro.

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

Exemplo

Este exemplo usa o método Add para adicionar cadeias de caracteres a uma coleção com e sem uma chave. O método Item é usado implicitamente para recuperar cada cadeia de caracteres.

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