Cómo utilizar ListView con una casilla en VBA

Llenar un control ListView en Excel utilizando Visual Basic para Aplicaciones. 

ListView CHECKBOX

El uso de un control "ListView" con casillas de verificación de la aplicación de Visual Basic para Aplicaciones (VBA) forma puede hacer que su aplicación sea más dinámico, proporcionando al usuario con opciones. Un control "ListView" muestra los elementos que utilizan uno de los cuatro puntos de vista diferentes, y organiza los elementos en columnas con o sin columna Excelheadings Microsoft. Utilice la propiedad "ListItems.Add" para agregar elementos, y el uso de la propiedad "Checked" para determinar qué elementos se verificaron por el usuario.

Lo que necesita

Microsoft Excel

Inicie Microsoft Excel, haga clic en la pestaña de "desarrolladores" y haga clic en "Visual Basic" para abrir la ventana del editor de VBA. Haga clic en el menú "Insertar" y haga clic en "formulario de usuario" para crear un nuevo formulario. Haga clic en "Herramientas", haga clic en "Controles adicionales" y marque la casilla junto a "Control Microsoft ListView" para añadir un nuevo control "ListView" al formulario.

Haga clic en el control "ListView" y haga clic en "Propiedades". Desplácese hacia abajo en la ventana de propiedades y seleccione "True" al lado de "casillas". Haga clic en "CommandButton" en el panel "Herramientas" y haga clic en el formulario para agregar un nuevo control de botón. Agregar un segundo botón con la misma técnica.

Haga doble clic en "CommandButton1" para crear un evento de clic en este botón. Agregue el siguiente código para rellenar el "ListBox" con tres elementos:

Me.ListView1.ListItems.Add (1) = "Compruebe Artículo 1"

Me.ListView1.ListItems.Add (2) = "Compruebe Artículo 2"

Me.ListView1.ListItems.Add (3) = "Compruebe Artículo 3"

Regrese al formulario y haga doble clic en "CommandButton2" para crear un nuevo evento de clic en este botón. Agregue el código siguiente para recorrer los elementos "ListBox" e imprimir los elementos seleccionados en la ventana de "inmediato":

Para contador = 1 Para Me.ListView1.ListItems.Count

Si Me.ListView1.ListItems.Item (contador). Activada,

Debug.Print Me.ListView1.ListItems.Item (contador). Texto

End If

Próximo

Vuelva al formulario y haz clic en "F5" para ejecutar el programa. Haga clic en "CommandButton1" para rellenar el control "ListView" y haga clic en "CommandButton2" para mostrar los elementos seleccionados.