Cómo utilizar ListView con una casilla en VBA

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

Instrucciones

1 Lanzamiento de Microsoft Excel, haga clic en la pestaña "desarrolladores" y haga clic en "Visual Basic" para abrir la ventana Editor de VBA. Haga clic en el menú "Insertar" y haga clic en "formulario de usuario" para crear una nueva forma. Haga clic en "Herramientas", haga clic en "Controles adicionales," y marca la casilla junto a "Microsoft ListView control" para agregar un nuevo control "ListView" a su formulario.

2 Haga clic en el control "ListView" y haga clic en "Propiedades". Desplazarse por la ventana Propiedades y seleccione "verdadera" al lado de "casillas de verificación." Haga clic en "CommandButton" en el panel "Herramientas" y haga clic en el formulario para agregar un nuevo control de botón. Añadir un segundo botón utilizando la misma técnica.

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

Me.ListView1.ListItems.Add (1) = "Punto de verificación 1"

Me.ListView1.ListItems.Add (2) = "Punto de verificación 2"

Me.ListView1.ListItems.Add (3) = "Punto de verificación 3"

4 Cambie de nuevo a su forma y haga doble clic en "CommandButton2" para crear un nuevo evento Click para este botón. Agregue el código siguiente para recorrer los elementos "ListBox" e imprimir ningún artículo comprobarse a la ventana "inmediata":

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

If Me.ListView1.ListItems.Item(counter).Checked Then

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

Terminara si

Siguiente

5 Cambie de nuevo 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.