Verwenden von ListView mit einer CheckBox in VBA

Mithilfe eines "ListView"-Steuerelements Kontrollkästchen in Ihren Visual Basic für Applikationen (VBA) Formular machen Ihrer Anwendung dynamischer die dem Benutzer Optionen. Ein "ListView"-Steuerelement zeigt Elemente mit einer der vier verschiedenen Ansichten und Elemente in Spalten angeordnet, mit oder ohne Spalte Microsoft Excelheadings. Verwenden Sie die "ListItems.Add"-Eigenschaft Elemente hinzufügen, und verwenden Sie die "Checked"-Eigenschaft, um zu bestimmen, welche Elemente vom Benutzer aktiviert wurden.

Anweisungen

1 Microsoft Excel zu starten, klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf "Visual Basic", das VBA-Editor-Fenster zu öffnen. Klicken Sie im Menü "Einfügen" und auf "UserForm" um ein neues Formular zu erstellen. Klicken Sie auf "Extras", klicken Sie auf "Weitere Steuerelemente", und aktivieren Sie das Kontrollkästchen neben "Microsoft ListView-Steuerelement" ein neues "ListView"-Steuerelement zum Formular hinzufügen.

2 Maustaste auf das Steuerelement "ListView" und auf "Eigenschaften". Blättern Sie das Eigenschaften-Fenster und wählen Sie "True" neben "Checkboxes." Klicken Sie auf "CommandButton" aus dem Bereich "Toolbox", und klicken Sie auf das Formular, um ein neues Schaltflächensteuerelement hinzufügen. Fügen Sie eine zweite Schaltfläche, mit der gleichen Technik.

3 Doppelklicken Sie auf "CommandButton1" ein Click-Ereignis für diese Schaltfläche zu erstellen. Fügen Sie folgenden Code zum Auffüllen der "ListBox" mit drei Elementen:

Me.ListView1.ListItems.Add(1) = "Item 1" überprüfen

Me.ListView1.ListItems.Add(2) = "Artikel 2" zu überprüfen

Me.ListView1.ListItems.Add(3) = "Item 3" überprüfen

4 Wechseln Sie wieder zur Ihrer Form und doppelklicken Sie auf "" CommandButton2 "" ein neues Click-Ereignis für diese Schaltfläche zu erstellen. Fügen Sie den folgenden Code, um die "ListBox" Elemente durchlaufen und Drucken Sie alle aktivierten Elemente zum Fenster "Sofort":

Für Counter = 1 To Me.ListView1.ListItems.Count

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

Debug.Print Me.ListView1.ListItems.Item(counter).Text

End If

Next5

Wechseln Sie zurück zum Formular, und klicken Sie auf "F5", um das Programm ausführen. Klicken Sie auf "CommandButton1" füllen Sie das Steuerelement "ListView" und klicken Sie auf "" CommandButton2 "" um Anzeigeelemente geprüft.