Como limpar o conteúdo de uma caixa de combinação usando código VBA no Excel?
Normalmente, pode limpar o conteúdo de uma caixa de combinação removendo os dados do intervalo de entrada. Mas e se quiser limpar o conteúdo de todas as caixas de combinação numa folha de cálculo do Excel? Este artigo apresenta dois códigos VBA que não só lhe permitem limpar o conteúdo de uma única caixa de combinação, mas também esvaziar todas as caixas de combinação de uma só vez na sua folha de cálculo do Excel.
Limpe facilmente o conteúdo de uma caixa de combinação com código VBA
Limpe facilmente o conteúdo de uma caixa de combinação com código VBA
Os dois códigos VBA seguintes permitem-lhe limpar o conteúdo de uma caixa de combinação ou de todas as caixas de combinação na folha ativa. Siga os passos abaixo.
1. Na folha de cálculo onde precisa de limpar o conteúdo de uma caixa de combinação, prima simultaneamente as teclas Alt+F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela de código.
VBA 1: Limpar o conteúdo de uma caixa de combinação na folha de cálculo
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End SubNota: No código, «Drop Down 2» é o nome da caixa de combinação cujo conteúdo pretende limpar. Substitua-o pelo nome da sua caixa.
VBA 2: Limpar o conteúdo de todas as caixas de combinação na folha ativa
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub3. Prima a tecla F5 ou clique no botão Executar para executar o código.
Depois, poderá verificar que o conteúdo foi limpo na caixa de combinação especificada ou em todas as caixas de combinação da folha ativa, conforme ilustrado na imagem seguinte:
Nota: Os códigos VBA podem ser aplicados tanto à Caixa de Combinação (Controlo de Formulário) como à Caixa de Combinação (Controlo ActiveX).
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como limpar simultaneamente conteúdos e formatação de células no Excel?
- Como limpar o conteúdo de uma gama nomeada no Excel?
- Como remover valores restritos de células no Excel?
- Como limpar o conteúdo de células específicas quando o valor de outra célula for alterado no Excel?
- Como limpar o conteúdo de células específicas ao abrir e fechar a pasta de trabalho do Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos