Saltar al contenido principal

¿Cómo seleccionar varios elementos de la lista desplegable en una celda en Excel?

La lista desplegable se utiliza con frecuencia en el trabajo diario de Excel. De forma predeterminada, solo se puede seleccionar un elemento en una lista desplegable. Pero en algunas ocasiones, es posible que deba seleccionar varios elementos de la lista desplegable en una sola celda, como se muestra a continuación. ¿Cómo se puede manejar en Excel?

doc seleccione varios elementos de la lista desplegable 1 doc flecha derecha doc seleccione varios elementos de la lista desplegable 2

Seleccione varios elementos de la lista desplegable en una celda con VBA

Seleccione varios elementos de la lista desplegable en una celda de forma fácil y rápida


Seleccione varios elementos de la lista desplegable en una celda con VBA

Aquí hay algunos VBA que pueden hacerle un favor al resolver este trabajo.

Seleccione elementos duplicados de la lista desplegable en una celda

1. Después de crear una lista desplegable, haga clic derecho en la pestaña de la hoja para seleccionar Ver código desde el menú contextual.
doc seleccione varios elementos de la lista desplegable 3

2. Luego, en el Microsoft Visual Basic para aplicaciones ventana, copie y pegue el código siguiente en el script en blanco.

VBA: seleccione varios elementos de la lista desplegable en una celda

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. Guarde el código y cierre la ventana para volver a la lista desplegable. Ahora puede seleccionar varios elementos de la lista desplegable.

Nota:

1. Con el VBA, separa los elementos por espacio, puede cambiar xStrNew = xStrNew & "" & Valor objetivo a otros para cambiar el delimitador según sea necesario. Por ejemplo, xStrNew = xStrNew & "," & Valor objetivo separará los elementos con comas.

2. Este código VBA funciona para todas las listas desplegables de la hoja.

Seleccione varios elementos de la lista desplegable a una celda sin repetir

Si solo desea seleccionar elementos únicos de la lista desplegable en una celda, puede repetir los pasos anteriores y usar el código siguiente.

VBA: seleccione varios elementos de la lista desplegable a una celda sin 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

Los dos códigos VBA anteriores no admiten la eliminación de partes del contenido de la celda, solo admiten la eliminación de todos los elementos de la celda.


Seleccione varios elementos de la lista desplegable en una celda de forma fácil y rápida

En Excel, excepto el código VBA, no hay otras formas de permitir que se seleccionen varios elementos de la lista desplegable en una celda. sin embargo, el Lista desplegable de selección múltiple característica de Kutools for Excel puede manejar rápida y fácilmente este trabajo con clics.

Consejo: Antes de aplicar esta herramienta, primero instale Kutools for Excel. Ir a descarga gratuita ahora.
Paso 1: Seleccione Kutools > Lista desplegable > Lista desplegable de selección múltiple
Paso 2: en el cuadro de diálogo Lista desplegable de selección múltiple, especifique la configuración
  1. Establecer alcance;
  2. Especifique el separador para delimitar elementos en una celda;
  3. Decide la dirección del texto;
  4. Haga clic en Aceptar.
    doc seleccione varios elementos de la lista desplegable kte 1
Resultado:

seleccione varios elementos de la lista desplegable kutools

Note: Para utilizar la función Lista desplegable de selección múltiple, primero debe instalar Kutools para Excel, por favor haga clic para descargar y obtenga una prueba gratuita de 30 días ahora.

Cree fácilmente una lista desplegable dinámica dependiente de dos niveles o varios niveles en Excel

En Excel, crear una lista desplegable de dos o varios niveles es complejo. Aquí el Lista desplegable dinámica utilidad de Kutools for Excel puedo hacerte un favor. Lo único que debe hacer es ordenar los datos como se muestra en el ejemplo, luego seleccionar el rango de datos y el rango de salida, luego dejarlo en manos de la utilidad.  ¡Haga clic para obtener una prueba gratuita de 30 días!
doc avanzado combinar filas
 
Kutools para Excel: con más de 300 prácticos complementos de Excel, prueba gratis sin límite en 30 días.

Las mejores herramientas de productividad de oficina

Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   +50 Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

pestaña kte 201905


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Como posso utilizar a função com a planilha bloqueada?
This comment was minimized by the moderator on the site
Hi, Macros, try below code, it supports to select multi items in drop down list in protected sheet.
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

And also Kutools for Excel 26.1 and later versions supports this job in protected sheet.
This comment was minimized by the moderator on the site
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Ejemplo:
Mi texto para la lista es:
TRAMITAR ESTE ASUNTO
COORDINAR
ANALIZAR Y RECOMENDAR

sí selecciono:
TRAMITAR ESTE ASUNTO
ANALIZAR Y RECOMENDAR

me aparece
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.....
This comment was minimized by the moderator on the site
Hi, Gorgelys, Kutools's multi-select drop down list can help you. The items you selected will be in the order like you want.
This comment was minimized by the moderator on the site
the code works but won't let me delete can someone please post the new code.
This comment was minimized by the moderator on the site
bonjour,
selon le premier exemple tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillée, je n'ai plus le choix multiple !
comment faire ?
merci par avance
This comment was minimized by the moderator on the site
Hi, sorry for that. We will upgrade our feature next version to avoid this problem. Thank you for your feekback.
This comment was minimized by the moderator on the site
Merci bcp
Mais à quand la nouvelle version ?
This comment was minimized by the moderator on the site
Hi, we have updated this version for you, but this is a beta version, please download it from this: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
If there are any problems, welcome for your feedback.
This comment was minimized by the moderator on the site
Merci,
Je vais la télécharger et essayer.
Bonne journée
This comment was minimized by the moderator on the site
Hi, the new version is in planning, since next version will upgrade multiple features, it may take somewhat time.
This comment was minimized by the moderator on the site
Hi! Como puedo usar este codigo para todo un worksheet y no solo para una pestana?
This comment was minimized by the moderator on the site
Hi, Vero, Kutools for Excel's Multi-select Drop-down List feature suports selecting multiple items from drop down list in the whole worksheet or across workbook, just specify the Specified Scope in the Multi-select Drop-down List Settings dialog.
This comment was minimized by the moderator on the site
How can I do that for the fist formula you provided :) Thanks in advanced!
This comment was minimized by the moderator on the site
Quando quero deletar alguma opção ou todas dá erro. Como posso resolver?
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
the code works but carries over across all cells and multiplies in the cells and wont allow delete can you assist?
This comment was minimized by the moderator on the site
If I create a sheet with dropdown list using checkboxes, is there a way to share this workbook with this checkboxes feature?
This comment was minimized by the moderator on the site
How would you apply this functionality but making it so that there aren't redundant values? Any help would be appreciated!
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations