Como preencher uma caixa de combinação com dados especificados na pasta de trabalho aberta?
Normalmente, você pode preencher uma caixa de combinação (Controle ActiveX) com um determinado intervalo de dados de célula, inserindo as referências de célula no campo ListFillRange das propriedades da caixa de combinação. Se desejar preencher uma caixa de combinação com dados especificados diretamente sem especificar manualmente suas propriedades, o método neste artigo pode ajudá-lo.
Preencher uma caixa de combinação com dados especificados com código VBA
Preencher uma caixa de combinação com dados especificados com código VBA
Este método pode ajudá-lo a preencher uma caixa de combinação com dados especificados diretamente na pasta de trabalho aberta. Faça o seguinte.
1. aperte o outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique duas vezes Esta pasta de trabalho no painel esquerdo para abrir o Esta pasta de trabalho editor de código. Em seguida, copie o código VBA abaixo para ele Veja a imagem:
Código VBA: preencher uma caixa de combinação com os dados especificados na pasta de trabalho aberta
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
With Sheet1.ComboBox1
.Clear
.AddItem "Select a Fruit"
.AddItem "Apple"
.AddItem "Banana"
.AddItem "Peach"
.AddItem "Pineapple"
.AddItem "Watermelon"
.Text = .List(0)
End With
End Sub
Notas:
3. Salve a pasta de trabalho como Pasta de trabalho habilitada para macro do Excel formate e feche-o.
4. Abra novamente a pasta de trabalho, você verá que a caixa de combinação foi preenchida com os dados especificados conforme a captura de tela abaixo:
Artigos relacionados:
- Como copiar o valor da caixa de combinação para uma célula ativa no Excel?
- Como exibir o formato de data na saída da caixa de combinação no Excel?
- Como prevenir ou desabilitar a digitação em uma combo box no Excel?
- Como preencher a caixa de combinação com dados de intervalo nomeado no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!