Como criar uma lista suspensa com várias caixas de seleção no Excel?
As listas suspensas tradicionais no Excel restringem os utilizadores a uma única seleção. Para ultrapassar esta limitação e permitir múltiplas seleções, vamos explorar dois métodos práticos para criar listas suspensas com várias caixas de verificação.
Utilizar Caixa de Lista para criar uma lista suspensa com várias caixas de seleção
A: Criar uma caixa de lista com Dados de Origem
B: Nomear a célula onde irá colocar a Número de Itens Selecionados
C: Inserir uma forma para ajudar a apresentar a Número de Itens Selecionados
Criar facilmente uma lista suspensa com caixas de seleção com uma ferramenta incrível
Mais tutoriais sobre listas suspensas...
Utilizar Caixa de Lista para criar uma lista suspensa com várias caixas de seleção
Conforme ilustrado na captura de ecrã abaixo, todos os nomes no intervalo A2:A11 da Planilha Atual serão utilizados como Dados de Origem para a caixa de lista localizada na célula C4. Ao clicar nessa caixa, expande-se a lista de itens disponíveis para seleção, e o Número de Itens Selecionados será exibido na célula E4. Para obter este resultado, siga os passos seguintes:
A. Criar uma caixa de lista com dados de origem
1. Clique em Programador > Inserir > Caixa de Lista (Controlo ActiveX). Veja a captura de ecrã:
2. Desenhe uma caixa de lista na planilha atual, clique com o botão direito do rato e selecione Propriedades no menu de contexto.
3. Na caixa de diálogo Propriedades, configure-a da seguinte forma.
- 3,1 Na caixa ListFillRange, introduza o Intervalo de origem que irá apresentar na lista (aqui introduzo o intervalo)A2:A11);
- 3,2 Na caixa ListStyle, selecione 1 - fmListStyleOption;
- 3,3 Na caixa MultiSelect, selecione 1 – fmMultiSelectMulti;
- 3,4 Feche a caixa de diálogo Propriedades. Veja a captura de ecrã:
B: Nomear a célula onde irá colocar a Número de Itens Selecionados
Se precisar de apresentar o número total de itens selecionados numa célula específica, como por exemplo a E4, proceda da seguinte forma.
1. Selecione a célula E4, introduza ListBoxOutput na Caixa de Nome e prima a tecla Enter.
C. Inserir uma forma para ajudar a apresentar o número de itens selecionados
1. Clique em Inserir > Formas > Retângulo. Veja a captura de ecrã:
2. Desenhe um retângulo na sua folha de cálculo (aqui, desenhei o retângulo na célula C4). Em seguida, clique com o botão direito do rato no retângulo e selecione Atribuir Macro no menu de contexto.
3. Na caixa de diálogo Atribuir Macro, clique no botão Novo.
4. Na janela aberta do Microsoft Visual Basic para Aplicações, substitua o código original na janela do Módulo pelo seguinte código VBA.
Código VBA: Criar uma lista com várias caixas de seleção
Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
xStr = ""
xStr = Range("ListBoxOutput").Value
If xStr <> "" Then
xArr = Split(xStr, ";")
For I = xLstBox.ListCount - 1 To 0 Step -1
xV = xLstBox.List(I)
For J = 0 To UBound(xArr)
If xArr(J) = xV Then
xLstBox.Selected(I) = True
Exit For
End If
Next
Next I
End If
Else
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
For I = xLstBox.ListCount - 1 To 0 Step -1
If xLstBox.Selected(I) = True Then
xSelLst = xLstBox.List(I) & ";" & xSelLst
End If
Next I
If xSelLst <> "" Then
Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
Else
Range("ListBoxOutput") = ""
End If
End If
End SubNota: No código, Rectangle1 é o nome da forma; ListBox1 é o nome da caixa de lista; Selecionar Opções e Pickup Options são os textos de exibição da forma; e ListBoxOutput é o nome da célula de saída. Pode alterá-los conforme as suas necessidades.
5. Prima simultaneamente as teclas Alt+Q para fechar a janela do Microsoft Visual Basic para Aplicações.
6. Ao clicar no botão retangular, a caixa de lista recolhe-se ou expande-se. Quando expandida, selecione os itens pretendidos marcando-os. Em seguida, clique novamente no retângulo para apresentar o número total de itens selecionados na célula E4. Veja a demonstração abaixo:
7. Em seguida, guarde o livro como um Livro do Excel Ativado para Macros para poder reutilizar o código no futuro.
Criar uma lista suspensa com caixas de seleção com uma ferramenta incrível
Cansado da complexidade da programação VBA? O Kutools para Excel facilita a criação de listas suspensas com caixas de seleção para uma seleção múltipla simples. Perfeita para inquéritos, filtragem de dados ou formulários dinâmicos, esta ferramenta intuitiva simplifica o seu fluxo de trabalho e poupa-lhe tempo.
1. Abra a folha de cálculo onde definiu a validação de dados com lista suspensa, clique em Kutools > Lista suspensa > Habilitar Lista Suspensa Avançada. Em seguida, clique novamente em Adicionar caixas de seleção à lista suspensa no menu Lista suspensa. Veja a captura de ecrã:
 |  |  |
2. Na caixa de diálogo Adicionar Caixas de Seleção à Lista Suspensa, configure-a da seguinte forma.
- 2,1) Selecione as células que contêm a lista suspensa;
- 2,2) Na caixa Separador, introduza um delimitador que utilizará para separar os vários itens;
- 2,3) Assinale a opção Ativar função de pesquisa, conforme necessário. (Se assinalar esta opção, poderá realizar uma pesquisa na lista suspensa posteriormente.)
- 2,4) Clique no botão OK.
A partir de agora, ao clicar na célula com Lista suspensa, surgirá uma caixa de lista; selecione os itens Por favor, selecione marcando as caixas de seleção para os apresentar na célula, conforme demonstrado abaixo.
Para obter mais detalhes sobre esta funcionalidade, consulte este tutorial.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Este artigo apresenta dois métodos para o ajudar a criar facilmente uma lista suspensa com caixas de verificação no Excel. Escolha aquele que preferir! Se quiser explorar mais dicas e truques do Excel, o nosso site oferece milhares de tutoriais.
Artigos relacionados:
Preenchimento automático ao digitar numa lista suspensa do Excel
Se tiver uma lista suspensa com validação de dados contendo muitos valores, terá de percorrer toda a lista para encontrar o valor pretendido ou digitar manualmente a palavra completa na caixa. Mas e se existisse um método que ativasse o preenchimento automático assim que começasse a escrever a primeira letra? Tudo ficaria muito mais simples! Este tutorial mostra-lhe exatamente como resolver este problema.
Criar uma lista suspensa a partir de outro livro no Excel
É bastante simples criar uma lista suspensa com validação de dados entre folhas dentro do mesmo livro. Mas e se os dados necessários para a validação estiverem noutro livro? Neste tutorial, vai aprender em detalhe como criar uma lista suspensa a partir de outro livro no Excel.
Criar uma lista suspensa pesquisável no Excel
Quando uma lista suspensa contém muitos valores, encontrar o item certo pode ser complicado. Já lhe mostrámos anteriormente um método que preenche automaticamente a lista ao digitar a primeira letra na caixa de seleção. Além dessa funcionalidade, também é possível tornar a lista suspensa pesquisável — uma solução que melhora significativamente a eficiência na procura dos valores pretendidos. Descubra como implementar esta funcionalidade com o método explicado neste tutorial.
Preencher automaticamente outras células ao selecionar valores numa lista suspensa do Excel
Imagine que criou uma lista suspensa com base nos valores do intervalo de células B8:B14. Ao selecionar qualquer valor nessa lista, pretende que os valores correspondentes no intervalo C8:C14 sejam automaticamente preenchidos na célula escolhida. Os métodos apresentados neste tutorial vão ajudá-lo a resolver este desafio com facilidade!
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