Ved hjelp av en " ListView " kontroll med avmerkingsbokser i Visual Basic for Applications ( VBA ) form kan gjøre programmet mer dynamisk ved å gi brukeren med alternativer. A " ListView " kontroll viser elementer ved hjelp av en av fire forskjellige visninger , og ordner elementer i kolonner med eller uten kolonne Microsoft Excelheadings . Bruk " ListItems.Add " eiendom for å legge til elementer , og bruke " sjekket " eiendom for å avgjøre hvilke elementer som ble sjekket av brukeren. Du trenger:
Microsoft Excel
Vis flere instruksjoner
en
Launch Microsoft Excel , klikker du på " Developer " og klikk " Visual Basic " for å åpne VBA Editor vinduet. Klikk på " Insert"-menyen og klikk " UserForm " for å skape en ny form . Klikk på "Verktøy ", klikk " flere kontroller " og merk av for " Microsoft listevisningen Control" for å legge til en ny " ListView " kontroll i skjemaet.
2
Høyreklikk på " ListView " Ctrl og klikk på " Egenskaper ". Rull ned vinduet Egenskaper og velg " Ekte " ved siden av " Avkrysningsbokser . " Klikk " CommandButton " fra " Toolbox" -panelet , og klikk på skjemaet for å legge til en ny knapp kontroll. Legg til en ny knapp med samme teknikk.
3
Dobbeltklikk på " CommandButton1 " for å skape et klikk hendelsen for denne knappen. Legg til følgende kode for å fylle ut " Liste- " med tre elementer : en
Me.ListView1.ListItems.Add ( 1 ) = " Sjekk Element en "
Me.ListView1.ListItems.Add ( 2 ) = " Sjekk Sak 2 "
Me.ListView1.ListItems.Add ( 3 ) = " Sjekk Punkt 3 "
4
Switch tilbake til din form og dobbeltklikk på " CommandButton2 "for å opprette en ny klikkhendelsen for denne knappen. Legg til følgende kode i sløyfe gjennom " listeboksen " elementer og skrive noen avkryssede objekter til " Immediate "-vinduet : en
teller = 1 To Me.ListView1.ListItems.Count
p Hvis Me . ListView1.ListItems.Item ( teller) . Sjekket Deretter
Debug.Print Me.ListView1.ListItems.Item ( teller) . Text
End If
Neste
5
Switch tilbake til skjemaet og klikk på " F5 " for å kjøre programmet . Klikk " CommandButton1 " å fylle " ListView " kontroll og klikk " CommandButton2 " for å vise avkryssede objekter .
