Método Application.GetCustomListContents (Excel)

Retorna uma lista personalizada (uma matriz de sequências de caracteres).

Sintaxe

expressão. GetCustomListContents (ListNum)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Listnum	Obrigatório	Long	O número da lista.

Valor de retorno

Variant

Exemplo

Este exemplo grava os elementos da primeira lista personalizada na coluna um de Sheet1.

listArray = Application.GetCustomListContents(1) 
For i = LBound(listArray, 1) To UBound(listArray, 1) 
 Worksheets("sheet1").Cells(i, 1).Value = listArray(i) 
Next i

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.