¿Cómo borrar el contenido de un cuadro combinado con código VBA en Excel?
Normalmente, puedes borrar el contenido de un cuadro combinado limpiando los datos de la lista del Rango de entrada. Pero, ¿qué pasa si deseas borrar el contenido de todos los cuadros combinados en una hoja de cálculo de Excel? Este artículo proporciona dos códigos VBA para ayudarte no solo a borrar el contenido de un cuadro combinado, sino también a borrar el contenido de todos los cuadros combinados al mismo tiempo en una hoja de cálculo de Excel.
Borrar fácilmente el contenido de un cuadro combinado con código VBA
Borrar fácilmente el contenido de un cuadro combinado con código VBA
Los siguientes dos códigos VBA pueden ayudarte a borrar el contenido de un cuadro combinado o de todos los cuadros combinados en la hoja de cálculo activa. Por favor, sigue los pasos a continuación.
1. En la hoja de cálculo donde necesitas borrar el contenido de un cuadro combinado, presiona las teclas Alt + F11 al mismo tiempo para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia el siguiente código VBA en la ventana de Código.
VBA 1: Borrar el contenido de un cuadro combinado en la hoja de cálculo
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End SubNota: En el código, “Drop Down 2” es el nombre del cuadro combinado del que borrarás el contenido. Por favor, cámbialo por el tuyo propio.
VBA 2: Borrar el contenido de todos los cuadros combinados en la hoja de cálculo activa
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub3. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar el código.
Luego podrás ver que el contenido se ha borrado en el cuadro combinado especificado o en todos los cuadros combinados de la hoja de cálculo activa, como se muestra en la siguiente captura de pantalla:
Nota: Los códigos VBA se pueden aplicar tanto al Cuadro combinado (Control de formulario) como al Cuadro combinado (Control ActiveX).
Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
Artículos relacionados:
- ¿Cómo borrar contenido y formato al mismo tiempo en las celdas en Excel?
- ¿Cómo borrar el contenido de un rango nombrado en Excel?
- ¿Cómo borrar valores restringidos en las celdas en Excel?
- ¿Cómo borrar el contenido de una celda específica si cambia el valor de otra celda en Excel?
- ¿Cómo borrar el contenido de una celda específica al abrir y cerrar un libro de trabajo en Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos