Saltar al contenido principal

¿Cómo borrar el contenido del cuadro combinado con código VBA en Excel?

Normalmente, puede borrar el contenido de un cuadro combinado borrando los datos de la lista Rango de entrada. Pero, ¿qué hay de borrar el contenido de todos los cuadros combinados en una hoja de cálculo de Excel? Este artículo prepara dos códigos VBA para ayudarlo 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.

Limpie fácilmente el contenido del cuadro combinado mediante el código VBA


Limpie fácilmente el contenido del cuadro combinado mediante el código VBA

Los siguientes dos códigos VBA pueden ayudarlo a borrar el contenido de un cuadro combinado o todos los cuadros combinados en la hoja de trabajo activa. Haz lo siguiente.

1. En la hoja de trabajo necesita borrar el contenido de un cuadro combinado, presione el otro + F11 llaves al mismo tiempo para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego, copie el código VBA a continuación en la ventana Código.

VBA 1: Borrar contenido de un cuadro combinado en la hoja de trabajo

Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
    .ListFillRange = ""
End With
End Sub

Note: En el código, “Desplegable 2” es el nombre del cuadro combinado del que borrarás el contenido. Cámbielo por el suyo.

VBA 2: Borrar el contenido de todos los cuadros combinados en la hoja de trabajo 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 Sub

3. presione el F5 o haga clic en el botón Ejecutar para ejecutar el código.

Luego puede ver que los contenidos se borran en el cuadro combinado especificado o en todos los cuadros combinados en la hoja de trabajo activa como se muestra a continuación:

Note: los códigos VBA se pueden aplicar tanto a Combo Box (Control de formulario) como a Combo Box (Control ActiveX).


Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
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...

Descripción


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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations