Ved hjælp af en " Listevisning " kontrol med afkrydsningsfelter i din Visual Basic for Applications ( VBA ) formular kan gøre din ansøgning mere dynamisk ved at give brugeren valgmuligheder. A " Listevisning " kontrol viser elementer ved hjælp af en af fire forskellige synspunkter , og arrangerer elementer i kolonner med eller uden kolonne Microsoft Excelheadings . Brug " ListItems.Add " ejendom for at tilføje elementer , og bruge " Checked " ejendom til at bestemme , hvilke elementer blev kontrolleret af brugeren. Ting du har brug
Microsoft Excel
Vis Flere Instruktioner
1
Launch Microsoft Excel , skal du klikke på "Udvikler " fanen og klik på " Visual Basic " for at åbne VBA Editor vindue . Klik på " Indsæt" menuen og klik på " UserForm " for at oprette en ny formular. Klik på "Funktioner ", klik på " yderligere kontrol ", og marker afkrydsningsfeltet ved siden af " Microsoft Listevisning Control" for at tilføje en ny " Listevisning " kontrol til formularen .
2
Højreklik på " Listevisning "kontrol og klik på" Egenskaber ". Rul ned vinduet Egenskaber og vælg " Ægte " ud for " Checkbokse ". Klik på " CommandButton " fra " Toolbox" rude og klikke på formularen til at tilføje en ny knap kontrol. Tilføj en anden knap ved hjælp af samme teknik.
3
Dobbeltklik på " CommandButton1 " for at oprette et klik begivenhed for denne knap. Føj følgende kode til at befolke " ListBox " med tre punkter : Hej
Me.ListView1.ListItems.Add (1) = " Check punkt 1 "
Me.ListView1.ListItems.Add ( 2) = "Check punkt 2 "
Me.ListView1.ListItems.Add (3) = "Check punkt 3 "
4
Skift tilbage til din form og dobbeltklik på " CommandButton2 "for at oprette et nyt klik begivenhed for denne knap. Føj følgende kode til at sløjfe gennem " listbox " elementer og udskrive markerede elementer til " Immediate " vinduet : Hej
counter = 1 til Me.ListView1.ListItems.Count
p Hvis Me . ListView1.ListItems.Item ( tæller) . Kontrolleret Så
Debug.Print Me.ListView1.ListItems.Item ( tæller) . Text
End If
Next < br >
5
Skift tilbage til formularen og klik på " F5 " for at køre programmet. Klik på " CommandButton1 " for at befolke " Listevisning " kontrol og klik på " CommandButton2 " for at vise markerede elementer .