|
aide d'une commande " ListView " avec des cases à cocher dans votre Visual Basic pour Applications ( VBA) forme peut rendre votre application plus dynamique en fournissant à l'utilisateur des options. Un contrôle " ListView " expose des objets à l'aide de l'un des quatre points de vue différents , et organise des articles en colonnes avec ou sans colonne Microsoft Excelheadings . Utilisez la propriété " ListItems.Add " d'ajouter des éléments , et utiliser la propriété "checked" pour déterminer quels articles ont été vérifiés par l'utilisateur. Les choses dont vous aurez besoin
Microsoft Excel
Show More Instructions
1 Lancez Microsoft Excel, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour ouvrir l'éditeur VBA fenêtre . Cliquez sur le menu «Insertion» et cliquez sur « UserForm » pour créer une nouvelle forme . Cliquez sur le menu "Outils ", cliquez sur " contrôles supplémentaires ", et cochez la case à côté de " contrôle ListView Microsoft " pour ajouter un nouveau contrôle " ListView " de votre formulaire.
2 clic droit sur l' " " commande et cliquez sur" Propriétés ". ListView Faites défiler la fenêtre Propriétés et sélectionnez "True" à côté de " cases à cocher . " Cliquez sur " CommandButton " dans le volet " boîte à outils " 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 clic pour ce bouton. Ajoutez le code suivant pour remplir le " ListBox " avec trois éléments :
Me.ListView1.ListItems.Add (1) = "Check Point 1 " de Me.ListView1.ListItems.Add (produits 2) = "Check Point 2 "
Me.ListView1.ListItems.Add (3) = "Check Point 3 "
4 revenir à votre forme et double -cliquez sur " CommandButton2 "pour créer un nouvel événement de clic pour ce bouton. Ajoutez le code suivant pour parcourir les " ListBox " articles et imprimer les articles cochés dans la fenêtre " immédiate ":
compteur = 1 To Me.ListView1.ListItems.Count
Si moi . ListView1.ListItems.Item (compteur) . cochée
Debug.Print Me.ListView1.ListItems.Item (compteur) . texte Clip End If
suivant < br >
5 revenir à votre forme et cliquez sur " F5" pour exécuter le programme . Cliquez sur " CommandButton1 " pour remplir le contrôle " ListView " et cliquez sur " CommandButton2 " pour afficher les articles cochés .
|
