Uma caixa de combinação é uma lista suspensa de onde um usuário pode selecionar um item ou preencher sua própria escolha. Para criar um caixa combo em Excel VBA, execute as seguintes etapas.
1. Na guia Desenvolvedor, clique em Inserir.
2. No grupo Controles ActiveX, clique em Caixa de combinação.
3. Arraste uma caixa de combinação 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 ComboBox1 como o nome da caixa de combinação.
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 combinação, adicione as seguintes linhas de código ao Workbook Open Event:
Com Sheet1.ComboBox1
.Adicionar item "Paris"
.Adicionar item "Nova York"
.Adicionar item "Londres"
Terminar com
Observação: use a Planilha2 se sua caixa de combinação estiver localizada na segunda planilha, Planilha3 se a caixa de combinação estiver localizada na terceira planilha, etc. Se você usar essas linhas de código fora do evento Abrir a pasta de trabalho, convém adicionar as linhas de código abaixo antes dessas linhas de código. A primeira linha de código limpa a caixa de combinação. Desta forma, seus itens não serão adicionados várias vezes se você executar seu código mais de uma vez. A segunda linha de código limpa sua própria escolha.
ComboBox1.Clear
ComboBox1.Value = ""
8. Para vincular esta caixa de combinação a uma célula, clique com o botão direito na caixa de combinação (certifique-se de que o modo de design esteja selecionado) e clique em Propriedades. Preencha D2 para LinkedCell.
Observação: consulte também a propriedade ListFillRange para preencher uma caixa de combinação com um intervalo de células.
9. Salve, feche e reabra o arquivo Excel.
Resultado:
Embora em algumas situações possa ser útil colocar uma caixa de combinação diretamente em sua planilha, uma caixa de combinação é particularmente útil quando colocada em um formulário de usuário.
