Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

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)
'UpdatebyExtendoffice20210409
    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
    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

doc selecione vários itens da lista suspensa 4

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)
'UpdatebyExtendoffice20180510
    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
    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

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.

Ponta: 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 para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar 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 ...
  • Super Formula Bar (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-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. 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!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Flavia Singh · 4 months ago
    Quando quero deletar alguma opção ou todas dá erro. Como posso resolver?

  • To post as a guest, your comment is unpublished.
    Rusty · 6 months ago
    I am also finding that after selecting multiple items using the updated VBA code, I still cannot clear the cell, it just keeps multiplying.

    Does anyone have a solution for this yet?
    • To post as a guest, your comment is unpublished.
      Sunny · 6 months ago
      Hi, Rusty, the code I have updated for making it more stable. But because the cell is in data validation, blank is out of data validation, the code cannot solve this problem.
  • To post as a guest, your comment is unpublished.
    karim.abdelrazek@gmail.com · 1 years ago
    If I create a sheet with dropdown list using checkboxes, is there a way to share this workbook with this checkboxes feature?
  • To post as a guest, your comment is unpublished.
    John · 2 years ago
    How would you apply this functionality but making it so that there aren't redundant values? Any help would be appreciated!
  • To post as a guest, your comment is unpublished.
    Madhu · 2 years ago
    I used this "Select multiple items from drop down list to a cell without repeat"
    this is what happened
    1. Multiple selections happen without problems.
    2. The issue is when i try to edit and remove an option. There is no way for me to remove an option. it keeps multiplying.
  • To post as a guest, your comment is unpublished.
    debadeep · 2 years ago
    After adding,the data from dropdown,delete doesnt work.
    • To post as a guest, your comment is unpublished.
      Quetzal Chapa · 3 months ago
      in the first code add the following line between line 6 and 7 (10-11 in the second code):
          If Target.Value = "" Then Exit Sub
    • To post as a guest, your comment is unpublished.
      Susan Lynn · 2 years ago
      I found the same issue. I think I found a way to overcome it. At the bottom of the code you'll see the code "xStrNew = xStrOld". Instead, make it say xStrNew = " "

      It works for me.
      • To post as a guest, your comment is unpublished.
        CJ · 1 years ago
        Any chance you still have this code? I'm trying to do what you said but the text still duplicates.
        Thanks
        • To post as a guest, your comment is unpublished.
          Susan Lynn · 1 years ago
          I’m sorry but I don’t. However, I just looked at the code above and it appears that the author edited the code with my suggestion.

          post your issue on the main thread to this article.