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

¿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 con la práctica opción de Kutools para Excel


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 con la práctica opción de Kutools para Excel

Si no está familiarizado con el código VBA, puede instalación gratuita una herramienta útil - Kutools for Excel, que contiene un grupo de utilidades sobre la lista desplegable, y hay una opción Lista desplegable de selección múltiple puede ayudarlo a seleccionar fácilmente varios elementos de la lista desplegable en una celda.

Después de crear la lista desplegable, seleccione las celdas de la lista desplegable y haga clic en Kutools > La lista desplegable > Lista desplegable de selección múltiple para habilitar esta utilidad.
doc kutools lista desplegable de selección múltiple 1

Luego, las celdas de la lista desplegable seleccionada se pueden seleccionar con varios elementos en la celda.

Si usa esta opción por primera vez, puede especificar la configuración de esta utilidad que necesite antes de aplicar esta utilidad.

Presione Kutools > La lista desplegable > la flecha al lado Lista desplegable de selección múltiple > Ajustes.
doc kutools lista desplegable de selección múltiple 2

Entonces en el Configuración de lista desplegable de selección múltiple diálogo, puedes

1) Especifique el alcance de aplicación que necesite;

2) Especifique la dirección del lugar de los artículos;

3) Especifique el separador entre elementos;

4) Especifique si no agrega duplicados y elimina elementos duplicados.

Presione Ok y haga clic Kutools > La lista desplegable > Lista desplegable de selección múltiple para que surta efecto.

Consejo: Para aplicar el Lista desplegable de selección múltiple utilidad, necesitas instalar al principio. Si desea crear una lista desplegable con varios niveles, la utilidad a continuación puede ayudarlo.

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 30 días de prueba gratis!
doc avanzado combinar filas
 
Kutools for Excel: con más de 300 prácticos complementos de Excel, gratis para probar sin limitación en 30 día.

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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!
officetab parte inferior
Comentarios (26)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Después de agregar, los datos del menú desplegable, la eliminación no funciona.
Este comentario fue minimizado por el moderador en el sitio
Encontré el mismo problema. Creo que encontré una manera de superarlo. En la parte inferior del código, verá el código "xStrNew = xStrOld". En su lugar, haz que diga xStrNew = " "

Esto funciona para mi.
Este comentario fue minimizado por el moderador en el sitio
¿Alguna posibilidad de que todavía tengas este código? Estoy tratando de hacer lo que dijiste, pero el texto aún se duplica.
Muchas Gracias
Este comentario fue minimizado por el moderador en el sitio
Lo siento pero no lo hago. Sin embargo, acabo de mirar el código anterior y parece que el autor editó el código con mi sugerencia.

publique su problema en el hilo principal de este artículo.
Este comentario fue minimizado por el moderador en el sitio
en el primer código agregue la siguiente línea entre la línea 6 y 7 (10-11 en el segundo código): Si Target.Value = "" Entonces Salir de Sub
Este comentario fue minimizado por el moderador en el sitio
Usé esto "Seleccionar varios elementos de la lista desplegable a una celda sin repetir"
esto es lo que pasó
1. Las selecciones múltiples ocurren sin problemas.
2. El problema es cuando trato de editar y eliminar una opción. No hay forma de que elimine una opción. sigue multiplicándose.
Este comentario fue minimizado por el moderador en el sitio
¿Cómo aplicaría esta funcionalidad pero haciéndola para que no haya valores redundantes? ¡Cualquier ayuda sería apreciada!
Este comentario fue minimizado por el moderador en el sitio
Si creo una hoja con una lista desplegable usando casillas de verificación, ¿hay alguna forma de compartir este libro de trabajo con esta función de casillas de verificación?
Este comentario fue minimizado por el moderador en el sitio
También descubro que después de seleccionar varios elementos usando el código VBA actualizado, todavía no puedo borrar la celda, simplemente sigue multiplicándose.
¿Alguien tiene una solución para esto todavía?
Este comentario fue minimizado por el moderador en el sitio
Hola, Rusty, el código lo he actualizado para hacerlo más estable. Pero debido a que la celda está en validación de datos, el espacio en blanco está fuera de la validación de datos, el código no puede resolver este problema.
Este comentario fue minimizado por el moderador en el sitio
el código funciona, pero se transfiere a todas las celdas y se multiplica en las celdas y no permite eliminar, ¿puede ayudar?
Este comentario fue minimizado por el moderador en el sitio
Quando quero eliminar alguna opção ou todos dá erro. ¿Cómo posso resolver?
Este comentario fue minimizado por el moderador en el sitio
¡Hola! ¿Cómo puedo usar este código para todo un worksheet y no solo para una pestana?
Este comentario fue minimizado por el moderador en el sitio
Hola, Vero, La función Lista desplegable de selección múltiple de Kutools for Excel admite la selección de varios elementos de la lista desplegable en toda la hoja de trabajo o en todo el libro de trabajo, solo especifique el Ámbito especificado en el cuadro de diálogo Configuración de la lista desplegable de selección múltiple.
Este comentario fue minimizado por el moderador en el sitio
¿Cómo puedo hacer eso para la primera fórmula que proporcionó :) ¡Gracias de antemano!
Este comentario fue minimizado por el moderador en el sitio
hola,
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 !
comentar faire?
merci par avance
Este comentario fue minimizado por el moderador en el sitio
Hola, lo siento por eso. Actualizaremos nuestra función en la próxima versión para evitar este problema. Gracias por su comentario.
Este comentario fue minimizado por el moderador en el sitio
Merci bcp
¿Mas à quand la nouvelle version?
Este comentario fue minimizado por el moderador en el sitio
Hola, la nueva versión está en planificación, ya que la próxima versión actualizará varias funciones, puede llevar algo de tiempo.
Este comentario fue minimizado por el moderador en el sitio
Hola, hemos actualizado esta versión para usted, pero esta es una versión beta, descárguela de aquí: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Si hay algún problema, bienvenido a recibir sus comentarios.
Este comentario fue minimizado por el moderador en el sitio
gracias,
Je vais la télécharger et essayer.
Bonne journée
Este comentario fue minimizado por el moderador en el sitio
el código funciona, pero no me deja eliminarlo, ¿alguien puede publicar el nuevo código?
Este comentario fue minimizado por el moderador en el sitio
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiero?

Example:
Mi texto para la lista es:
TRAMITAR ESTE ASUNTO
COORDINADOR
ANALIZAR Y RECOMENDAR

si 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.....
Este comentario fue minimizado por el moderador en el sitio
Hola, Gorgelys, la lista desplegable de selección múltiple de Kutools puede ayudarte. Los elementos que seleccionó estarán en el orden que desee.
Este comentario fue minimizado por el moderador en el sitio
¿Cómo posso utilizar una función con una planilla bloqueada?
Este comentario fue minimizado por el moderador en el sitio
Hola, macros, intente con el código siguiente, es compatible para seleccionar varios elementos en la lista desplegable en la hoja 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

Y también Kutools for Excel 26.1 y versiones posteriores admiten este trabajo en hoja protegida.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL