Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Adiciona uma lista personalizada para preenchimento automático personalizado e/ou classificação personalizada.
Sintaxe
expressão. AddCustomList (ListArray, ByRow)
expressão Uma variável que representa um Aplicativo objeto.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| ListArray | Obrigatório | Variant | Especifica os dados de origem, seja como uma matriz de sequências de caracteres ou um objeto Range. |
| ByRow | Opcional | Variant | Usado apenas se ListArray for um objeto Range.
True para criar uma lista personalizada de cada linha no intervalo.
False para criar uma lista personalizada de cada coluna no intervalo. Se esse argumento for omitido e houver mais linhas que colunas (ou um número igual de linhas e colunas) no intervalo, o Microsoft Excel criará uma lista personalizada a partir de cada coluna do intervalo. Se este argumento for omitido e existirem mais colunas do que linhas no intervalo, o Excel cria uma lista personalizada a partir de cada linha no intervalo. |
Comentários
Se a lista que está a tentar adicionar já existir, este método gera um erro de tempo de execução 1004. Detete o erro com uma instrução Ao Ativar Erro .
Exemplo
Este exemplo adiciona uma matriz de sequências como uma lista personalizada.
On Error Resume Next ' if the list already exists, don'thing
Application.AddCustomList Array("cogs", "sprockets", _
"widgets", "gizmos")
On Error Goto 0 ' resume regular error handling
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.