Uma caixa de listagem é uma lista de onde um usuário pode selecionar um item. Para criar um caixa de lista em Excel VBA, execute as seguintes etapas.
1. Na guia Desenvolvedor, clique em Inserir.
2. No grupo ActiveX Controls, clique em List Box.
3. Arraste uma caixa de listagem em sua planilha.
Observação: você pode alterar o nome de um controle clicando com o botão direito do mouse no controle (certifique-se de que o Modo de design esteja selecionado) e clicando em Propriedades. Por enquanto, deixaremos ListBox1 como o nome da caixa de listagem.
Crie um evento de abertura de pasta de trabalho. O código adicionado ao evento de abertura da pasta de trabalho será executado pelo Excel VBA quando você abrir a pasta de trabalho.
4. Abra o Editor do Visual Basic.
5. Clique duas vezes em This Workbook no Project Explorer.
6. Escolha Workbook na lista suspensa à esquerda e escolha Abrir na lista suspensa à direita.
7. Para adicionar itens à caixa de listagem, adicione as seguintes linhas de código ao Workbook Open Event:
Com Sheet1.ListBox1
.Adicionar item "Paris"
.Adicionar item "Nova York"
.Adicionar item "Londres"
Terminar com
Observação: use a Planilha2 se sua caixa de listagem estiver localizada na segunda planilha, Planilha3 se sua caixa de listagem estiver localizada na terceira planilha, etc. Se você usar essas linhas de código fora do evento Abrir a pasta de trabalho, talvez queira adicionar a seguinte linha de código antes dessas linhas de código. Esta linha de código limpa a caixa de listagem. Desta forma, seus itens não serão adicionados várias vezes se você executar seu código mais de uma vez.
ListBox1.Clear
8. Para vincular esta caixa de listagem a uma célula, clique com o botão direito na caixa de listagem (certifique-se de que o modo de design esteja selecionado) e clique em Propriedades. Preencha D3 para LinkedCell.
Observação: consulte também a propriedade ListFillRange para preencher uma caixa de listagem com um intervalo de células.
9. Salve, feche e reabra o arquivo Excel.
Resultado:
Embora em algumas situações possa ser útil colocar diretamente uma caixa de listagem em sua planilha, uma caixa de listagem é particularmente útil quando colocada em um formulário do usuário.
