XL2000: Cómo quitar todos los elementos de un control ListBox o ComboBox

Seleccione idioma Seleccione idioma
Id. de artículo: 213721 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

No hay ningún único método que se puede utilizar para quitar todos los elementos de un control ListBox o ComboBox en un UserForm . El método que se utiliza para quitar un elemento depende de si el control de cuadro de lista o cuadro combinado está enlazado a una hoja de cálculo. En este artículo contiene ejemplos que quitan elementos de un control de ejemplo que está enlazado a una hoja de cálculo y un ejemplo de control es no enlazado a una hoja de cálculo.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita, incluyendo, pero sin limitarse a, las garantías implícitas de comerciabilidad e idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y las herramientas utilizadas para crear y depurar procedimientos. Los profesionales de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos a necesidades específicas.
Si tiene poca experiencia en programación, desea póngase en contacto con un Microsoft Certified Partner o servicios de consultoría de Microsoft. Para obtener más información, visite estos sitios Web de Microsoft:

Microsoft certificado Partners - https://partner.microsoft.com/global/30000104

Servicios de asesoramiento de Microsoft - http://support.microsoft.com/gp/advisoryservice

Para obtener más información acerca de las opciones de soporte técnico que están disponibles y cómo ponerse en contacto con Microsoft, visite el siguiente sitio Web de Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

ListBox o ComboBox que está enlazado a una hoja de cálculo

Para crear un UserForm que contiene un control ListBox que está enlazado a una hoja de cálculo de ejemplo y, a continuación, quitar elementos en el control, siga estos pasos:
  1. Cierre y guarde los libros abiertos y después cree un nuevo libro.
  2. En la Hoja1, escriba los valores siguientes:
           A1: Alpha
           A2: Bravo
           A3: Charlie
           A4: Delta
           A5: Echo
    					
  3. Inicie el Editor de Visual Basic (presione ALT+F11).
  4. Si no está visible la ventana Propiedades , haga clic en Propiedades en el menú Ver (o presione F4).
  5. Si la ventana Explorador de proyectos no está visible, haga clic en Explorador de proyectos en el menú Ver .
  6. En el menú Insertar , haga clic en UserForm .
  7. Dibuje un control ListBox en el UserForm .
  8. Cambie a la ventana de Propiedades (presione F4).
  9. Cambie la propiedad RowSource del control ListBox en el valor siguiente:
    Sheet1! a1: A5
  10. Dibuje un control CommandButton del UserForm .
  11. Haga doble clic en el botón de comando para abrir la ventana de código para el control CommandButton .
  12. En el módulo, escriba el siguiente código para el evento Click de CommandButton :
    Private Sub CommandButton1_Click()
        ListBox1.RowSource = ""
    End Sub
    					
  13. Ejecutar el UserForm .

    El cuadro de lista que agregó al UserForm se rellena con los valores que introdujo en Sheet1.
  14. Haga clic en el CommandButton .
Todos los elementos se quitan ListBox1.

Control ListBox o ComboBox que no está enlazado a una hoja de cálculo

Para generar un ejemplo UserForm que contiene un control ListBox que se rellena con una matriz de valores cuando se carga el formulario UserForm y, a continuación, quitar elementos en el control, siga estos pasos:
  1. Cierre y guarde los libros abiertos y después cree un nuevo libro.
  2. Inicie el Editor de Visual Basic (presione ALT+F11).
  3. Si no está visible la ventana Propiedades , haga clic en Propiedades en el menú Ver (o presione F4).
  4. En el menú Insertar , haga clic en UserForm .
  5. Haga doble clic en el UserForm para abrir la ventana de código para el UserForm .
  6. En el módulo, escriba el siguiente código para el evento Initialize de UserForm :
    Private Sub UserForm_Initialize()
        Dim MyArray As Variant
        Dim i As Integer
    
        'Initialize array with values to populate ListBox.
        MyArray = Array("Alpha", "Bravo", "Charlie", "Delta","Echo")
    
        For i = LBound(MyArray) To Ubound(MyArray)
    
            'Add a value from MyArray to ListBox1.
            UserForm1.ListBox1.AddItem MyArray(i)
    
        Next
    End Sub
    						
    este procedimiento rellena ListBox1 cuando se carga el UserForm .
  7. Dibuje un control ListBox en el UserForm .
  8. Dibuje un control CommandButton del UserForm .
  9. Haga doble clic en el botón de comando para abrir la ventana de código para el control CommandButton .
  10. En el módulo, escriba el siguiente código para el control CommandButton de evento Click:
    Private Sub CommandButton1_Click()
        Dim i As Integer
    
        For i = 1 To ListBox1.ListCount
    
            'Remove an item from the ListBox.
            ListBox1.RemoveItem 0
    
        Next i
    End Sub
    						
    VisualBasic este procedimiento quita todos los elementos de ListBox1.
  11. Ejecutar el UserForm .
  12. Haga clic en el CommandButton .
Todos los elementos se quitan ListBox1.

Referencias

Para obtener más información sobre cómo utilizar el control ListBox, en el Editor de Visual Basic, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda , escriba control listbox en el Ayudante de Office o el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver el tema.

Para obtener más información sobre cómo utilizar la propiedad OrigenDeLaFila (RowSource), en el Editor de Visual Basic, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda , escriba la propiedad rowsource en el Ayudante de Office o el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver el tema.

Para obtener más información sobre cómo utilizar el método RemoveItem, en el Editor de Visual Basic, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda , escriba el método removeitem en el Ayudante de Office o el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver el tema.

Propiedades

Id. de artículo: 213721 - Última revisión: jueves, 23 de noviembre de 2006 - Versión: 3.5
La información de este artículo se refiere a:
  • Microsoft Excel 2000 Standard Edition
Palabras clave: 
kbmt kbhowto kbprogramming kbui KB213721 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 213721

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com