Indhold
Brug af en ListView-kontrol med afkrydsningsfelter på en VBA-formular kan gøre en applikation mere dynamisk ved at give brugeren mulighed for at vælge. En ListView viser elementer ved hjælp af en af fire forskellige visninger og arrangerer dem i kolonner med eller uden Microsoft Excel-overskrifter. Brug "ListItems.Add" egenskaben for at tilføje elementer og "Checked" for at bestemme hvilke elementer der er valgt af brugeren.
retninger
-
Åbn Microsoft Excel, klik på fanen "Udvikler" og derefter på "Visual Basic" for at åbne VBA editor vinduet. Klik på "Indsæt" menuen og derefter "UserForm" (brugerformular) for at oprette en ny formular. Klik på "Værktøjer", "Yderligere kontroller" og vælg feltet ud for "Microsoft ListView Control" (Microsoft ListView-kontrol) for at tilføje en ny "ListView" -kontrol til formularen.
-
Højreklik på "ListView" kontrol og derefter på "Properties". Rul ned i vinduet og vælg "True" ud for "Checkboxes" indstillingen. Klik på "CommandButton" i "Toolbox" ruden og derefter på formularen for at tilføje en ny knap. Tilføj en anden knap ved hjælp af de samme trin.
-
Dobbeltklik på "CommandButton1" for at oprette en ny begivenhed for den knap. Tilføj følgende kode til populære "ListBox" med tre elementer:
Me.ListView1.ListItems.Add (1) = "Check Item 1" Me.ListView1.ListItems.Add (2) = "Check Item 2" Me.ListView1.ListItems.Add (3) = "Check Item 3"
-
Gå tilbage til formularen og dobbeltklik på "CommandButton2" for at oprette en ny klikhændelse for den knap. Tilføj følgende kode for at gå gennem "ListBox" -elementerne og vise de markerede elementer i vinduet "Immediate":
Til mod = 1 Til Me.ListView1.ListItems.Count Hvis Me.ListView1.ListItems.Item (counter) .Check Then Debug.Print Me.ListView1.ListItems.Item (counter) .Text End hvis næste
-
Gå tilbage til formularen og klik på "F5" for at køre programmet. Klik derefter på "CommandButton1" for at udfylde "ListView" -kontrollen og derefter "CommandButton2" for at vise de valgte elementer.
Hvad du har brug for
- Microsoft Excel
