Cómo utilizar ListView con una casilla en VBA

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. Cosas que necesitará
Microsoft Excel
Ver Más instrucciones
1

lanzamiento Microsoft Excel , haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para abrir el Editor de VBA ventana . 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 ListView de Microsoft " para añadir un nuevo control " ListView " al formulario.

2 Haga clic en el " " de control y haga clic en " Propiedades " ListView . 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 .
3

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 "
4

volver a su forma 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) . Chequeado Entonces

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

End If

Siguiente
Página 5

volver a su forma y haga 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 .