Les partenaires publicitaires:

Comment utiliser listview avec une case à cocher dans vba

Utilisation d'un "ListView" contrôle avec des cases à cocher dans votre Visual Basic pour Applications (VBA) forme peut rendre votre application plus dynamique en offrant à l'utilisateur des options. Un "ListView" commande affiche les éléments en utilisant l'un des quatre points de vue différents, et organise des articles en colonnes avec ou sans colonne Microsoft Excelheadings. Utilisez le "ListItems.Add" propriété pour ajouter des éléments, et utiliser le "À carreaux" propriété permet de déterminer les éléments qui ont été vérifiés par l'utilisateur.

Choses que vous devez

  • Microsoft Excel

Instructions

  • 1

    Lancez Microsoft Excel, cliquez sur le "Promoteur" onglet et faites un clic "Visual Basic" pour ouvrir la fenêtre éditeur VBA. Cliquez sur le "Insérer" menu et clic "UserForm" pour créer une nouvelle forme. Cliquez sur le "Outils," clic "Contrôles supplémentaires," et cochez la case à côté de "Contrôle ListView Microsoft" pour ajouter un nouveau "ListView" commande à votre formulaire.

  • 2

    droit; cliquez sur le "ListView" contrôle et clic "Propriétés." Faites défiler la fenêtre des propriétés et choisissez "Vrai" à côté de "Les cases à cocher." Cliquez "CommandButton" du "Boîte à outils" volet et cliquez sur le formulaire pour ajouter un nouveau bouton de commande. Ajouter un second bouton en utilisant la même technique.

  • 3

    Double-cliquez sur "CommandButton1" pour créer un événement de clic pour ce bouton. Ajoutez le code suivant pour remplir la "ListBox" avec trois éléments:

    Me.ListView1.ListItems.Add (1) = "Check Point 1"



    Me.ListView1.ListItems.Add (2) = "Check Point 2"

    Me.ListView1.ListItems.Add (3) = "Check Point 3"

  • 4



    Revenez à votre formulaire et double-clic "CommandButton2" pour créer un nouveau clic événement pour ce bouton. Ajouter le code suivant à boucle à travers le "ListBox" articles et d'imprimer tout les articles cochés dans la "Immédiat" fenêtre:

    Pour compteur = 1 Pour Me.ListView1.ListItems.Count

    Si Me.ListView1.ListItems.Item (compteur) .checked Puis

    Debug.Print Me.ListView1.ListItems.Item (compteur) .Text

    End If

    Suivant

  • 5

    Revenez à votre formulaire et cliquez sur "F5" pour exécuter le programme. Cliquez "CommandButton1" pour remplir la "ListView" contrôle et clic "CommandButton2" pour afficher les éléments vérifiés.

» » » » Comment utiliser listview avec une case à cocher dans vba