Hvordan bruke Listview Med en avkrysningsboks i VBA

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. En "Listview" kontroll viser elementer ved hjelp av en av fire ulike visninger, og ordner elementer i kolonner med eller uten kolonne Microsoft Excelheadings. Bruk "ListItems.Add" eiendom for å legge gjenstander, og bruke "Sjekket" eiendom for å avgjøre hvilke elementer som ble sjekket av brukeren.

Bruksanvisning

1 Start Microsoft Excel, klikker du på "Utvikler" og klikk "Visual Basic" for å åpne VBA Editor vinduet. Klikk på "Insert" -menyen og klikk "Userform" for å skape en ny form. Klikk på "Tools", klikk "Flere kontroller", og merk av for "Microsoft List Control" for å legge til en ny "Listview" kontroll i skjemaet.

2 Høyreklikk på "Listview" kontroll og klikk "Egenskaper". Rull ned vinduet Egenskaper og velge «True" ved siden av "avmerkingsboksene." Klikk "Command" fra "Toolbox" -panelet, og klikk på skjemaet for å legge til en ny knapp kontroll. Legg til en andre knapp ved hjelp av samme teknikk.

3 Dobbeltklikk på "CommandButton1" for å lage et klikk hendelser denne knappen. Legg til følgende kode for å fylle den "ListBox" med tre elementer:

Me.ListView1.ListItems.Add (1) = "Sjekk punkt 1"

Me.ListView1.ListItems.Add (2) = "Sjekk punkt 2"

Me.ListView1.ListItems.Add (3) = "Sjekk Sak 3"

4 Bytt tilbake til skjemaet og dobbeltklikk på "CommandButton2" for å lage en ny klikk hendelser denne knappen. Legg til følgende kode i sløyfe gjennom "listeboksen" elementer og skrive noen sjekket elementer til "Immediate" vinduet:

For teller = 1 Til Me.ListView1.ListItems.Count

If Me.ListView1.ListItems.Item(counter).Checked Then

Debug.Print Me.ListView1.ListItems.Item (telleren) .text

Slutt om

neste

5 Bytt tilbake til skjemaet og klikk på "F5" for å kjøre programmet. Klikk "CommandButton1" å fylle "Listview" kontroll og klikk "CommandButton2" for å vise sjekket elementer.