Note: The other languages of the website are Google-translated. Back to English

Como selecionar vários itens da lista suspensa em uma célula no Excel?

A lista suspensa é freqüentemente usada no trabalho diário do Excel. Por padrão, apenas um item pode ser selecionado em uma lista suspensa. Mas, em alguns momentos, você pode precisar selecionar vários itens da lista suspensa em uma única célula, conforme mostrado a imagem abaixo. Como você pode lidar com isso no Excel?

doc selecione vários itens da lista suspensa 1 doc seta para a direita doc selecione vários itens da lista suspensa 2

Selecione vários itens da lista suspensa em uma célula com VBA

Selecione vários itens da lista suspensa em uma célula com a opção prática do Kutools para Excel


Selecione vários itens da lista suspensa em uma célula com VBA

Aqui estão alguns que o VBA pode lhe fazer um favor ao resolver esse trabalho.

Selecione os itens duplicados da lista suspensa em uma célula

1. Depois de criar uma lista suspensa, clique com o botão direito na guia da folha para selecionar Ver código no menu de contexto.
doc selecione vários itens da lista suspensa 3

2. Em seguida, no Microsoft Visual Basic para Aplicações janela, copie e cole o código abaixo no script em branco.

VBA: Selecione vários itens da lista suspensa em uma célula

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. Salve o código e feche a janela para voltar à lista suspensa. Agora você pode selecionar vários itens da lista suspensa.

Nota:

1. Com o VBA, ele separa os itens por espaço, você pode alterar xStrNew = xStrNew & "" & Target.Value para outros para alterar o delimitador conforme necessário. Por exemplo, xStrNew = xStrNew & "," & Target.Value irá separar os itens com vírgulas.

2. Este código VBA funciona para todas as listas suspensas da planilha.

Selecione vários itens da lista suspensa para uma célula sem repetir

Se você deseja apenas selecionar itens exclusivos da lista suspensa para uma célula, pode repetir as etapas acima e usar o código abaixo.

VBA: Selecione vários itens da lista suspensa para uma célula sem repetir

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Ambos os códigos VBA acima não suportam excluir partes do conteúdo da célula, apenas suportam limpar todos os itens da célula.


Selecione vários itens da lista suspensa em uma célula com a opção prática do Kutools para Excel

Se você não estiver familiarizado com o código VBA, você pode Livre Instalar uma ferramenta útil - Kutools for Excel, que contém um grupo de utilitários sobre a lista suspensa e há uma opção Lista suspensa de seleção múltipla pode ajudá-lo a selecionar facilmente vários itens da lista suspensa em uma célula.

Depois de criar a lista suspensa, selecione as células da lista suspensa e clique Kutools > Lista suspensa > Lista suspensa de seleção múltipla para habilitar este utilitário.
doc kutools multi select lista suspensa 1

Em seguida, as células da lista suspensa selecionadas podem ser vários itens selecionados na célula.

Se você usar esta opção na primeira vez, poderá especificar as configurações deste utilitário conforme necessário antes de aplicá-lo.

Clique Kutools > Lista suspensa > a seta ao lado Lista suspensa de seleção múltipla > Configurações.
doc kutools multi select lista suspensa 2

Então, no Configurações da lista suspensa de seleção múltipla diálogo, você pode

1) Especifique o escopo de aplicação conforme necessário;

2) Especifique a direção do local dos itens;

3) Especifique o separador entre os itens;

4) Especifique se não adicionar duplicatas e remover itens duplicados.

Clique Ok e clique Kutools > Lista suspensa > Lista suspensa de seleção múltipla para fazer efeito.

Dica: Para aplicar o Lista suspensa de seleção múltipla utilitário, você precisa instalar a princípio. Se você deseja criar uma lista suspensa com vários níveis, o utilitário abaixo pode ajudá-lo.

Crie facilmente uma lista suspensa dinâmica de 2 níveis ou dependente de vários níveis no Excel

No Excel, é complexo criar uma lista suspensa de 2 ou vários níveis. Aqui o Lista suspensa dinâmica utilidade de Kutools for Excel pode te fazer um favor. O que você só precisa fazer é ordenar os dados conforme mostrado no exemplo, selecionar o intervalo de dados e o intervalo de saída e deixar para o utilitário.  Clique para 30 dias de teste grátis!
doc avançado combinar linhas
 
Kutools for Excel: com mais de 300 suplementos práticos do Excel, grátis para experimentar sem limitação em 30 dias.

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (26)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Depois de adicionar, os dados do menu suspenso, excluir não funcionam.
Este comentário foi feito pelo moderador no site
Encontrei o mesmo problema. Acho que encontrei uma maneira de superar isso. Na parte inferior do código, você verá o código "xStrNew = xStrOld". Em vez disso, diga xStrNew = " "

Funciona para mim.
Este comentário foi feito pelo moderador no site
Alguma chance de você ainda ter esse código? Estou tentando fazer o que você disse, mas o texto ainda duplica.
obrigado
Este comentário foi feito pelo moderador no site
Sinto muito, mas eu não. No entanto, acabei de olhar o código acima e parece que o autor editou o código com minha sugestão.

poste seu problema no tópico principal deste artigo.
Este comentário foi feito pelo moderador no site
no primeiro código adicione a seguinte linha entre as linhas 6 e 7 (10-11 no segundo código): Se Target.Value = "" Então Exit Sub
Este comentário foi feito pelo moderador no site
Eu usei este "Selecionar vários itens da lista suspensa para uma célula sem repetição"
isso é o que aconteceu
1. As seleções múltiplas acontecem sem problemas.
2. O problema é quando tento editar e remover uma opção. Não há como remover uma opção. continua se multiplicando.
Este comentário foi feito pelo moderador no site
Como você aplicaria essa funcionalidade, mas fazendo com que não houvesse valores redundantes? Qualquer ajuda seria apreciada!
Este comentário foi feito pelo moderador no site
Se eu criar uma planilha com lista suspensa usando caixas de seleção, existe uma maneira de compartilhar esta pasta de trabalho com esse recurso de caixas de seleção?
Este comentário foi feito pelo moderador no site
Também estou descobrindo que, depois de selecionar vários itens usando o código VBA atualizado, ainda não consigo limpar a célula, ela continua se multiplicando.
Alguém já tem uma solução para isso?
Este comentário foi feito pelo moderador no site
Oi, Rusty, o código que atualizei para torná-lo mais estável. Mas como a célula está em validação de dados, em branco está fora de validação de dados, o código não pode resolver esse problema.
Este comentário foi feito pelo moderador no site
o código funciona, mas passa por todas as células e se multiplica nas células e não permite a exclusão, você pode ajudar?
Este comentário foi feito pelo moderador no site
Quando quero deletar alguma opção ou todas dá erro. Como posso resolver?
Este comentário foi feito pelo moderador no site
Oi! Como usar este código para todo un worksheet y no solo para una pestana?
Este comentário foi feito pelo moderador no site
Oi, Vero, Kutools para o recurso de lista suspensa de seleção múltipla do Excel suporta a seleção de vários itens da lista suspensa em toda a planilha ou na pasta de trabalho, basta especificar o escopo especificado na caixa de diálogo Configurações da lista suspensa de seleção múltipla.
Este comentário foi feito pelo moderador no site
Como posso fazer isso para a primeira fórmula que você forneceu :) Obrigado antecipadamente!
Este comentário foi feito pelo moderador no site
Olá,
selon le premier exemple tout fonctionne très bien jusqu'à ce que je verrouille la fouille.
quand la feuille est verrouillée, je n'ai plus le choix multiple !
como fazer isso?
agradeço antecipadamente
Este comentário foi feito pelo moderador no site
Olá, desculpe por isso. Atualizaremos nosso recurso na próxima versão para evitar esse problema. Obrigado pelo seu feedback.
Este comentário foi feito pelo moderador no site
Merci bcp
Versão mais à quand la nouvelle ?
Este comentário foi feito pelo moderador no site
Olá, a nova versão está em planejamento, pois a próxima versão atualizará vários recursos, pode demorar um pouco.
Este comentário foi feito pelo moderador no site
Olá, atualizamos esta versão para você, mas esta é uma versão beta, faça o download em: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Se houver algum problema, bem-vindo ao seu feedback.
Este comentário foi feito pelo moderador no site
obrigado,
Je vais la télécharger et ensaiar.
Bonne journée
Este comentário foi feito pelo moderador no site
o código funciona, mas não me deixa excluir alguém pode postar o novo código.
Este comentário foi feito pelo moderador no site
¿Como posso fazer para que a ordem em que se coloca o texto, mar tan cuál como yo quiera?

Exemplo:
Meu texto para a lista é:
TRAMITAR ESTE ASUNTO
COORDENAR
ANALIZAR E RECOMENDAR

sua seleção:
TRAMITAR ESTE ASUNTO
ANALIZAR E RECOMENDAR

Parece-me
ANALIZAR Y RECOMENDAR, TRAMITAR ESTE ASUNTO

o sea, los de abajo me aparecen primero, pero quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO, ANALIZAR Y RECOMENDAR.....
Este comentário foi feito pelo moderador no site
Olá, Gorgelys, a lista suspensa de seleção múltipla do Kutools pode ajudá-lo. Os itens selecionados estarão na ordem que você deseja.
Este comentário foi feito pelo moderador no site
Como posso usar a função com a planilha bloqueada?
Este comentário foi feito pelo moderador no site
Olá, Macros, tente o código abaixo, ele suporta a seleção de vários itens na lista suspensa na planilha protegida.
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) Then Exit Sub

    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

E também Kutools for Excel 26.1 e versões posteriores suportam este trabalho em planilha protegida.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL