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?
 |
 |
 |
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 facilidade e rapidez
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.
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 Sub3. 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 facilidade e rapidez
No Excel, exceto o código VBA, não há outras maneiras de permitir vários itens selecionados na lista suspensa em uma célula. No entanto, o Lista suspensa de seleção múltipla característica de Kutools for Excel pode lidar com esse trabalho de forma rápida e fácil com cliques.
Etapa 1: selecione Kutools > Lista suspensa > Lista suspensa de seleção múltipla
Etapa 2: Na caixa de diálogo Lista suspensa de seleção múltipla, especifique as configurações
- Definir escopo;
- Especifique o separador para delimitar itens em uma célula;
- Decida a direção do texto;
- Clique em OK.
Resultado:
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! |
 |
| Kutools para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
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!
