Inhoud

• routebeschrijving
• Wat je nodig hebt

Het gebruik van een ListView-besturingselement met selectievakjes op een VBA-formulier kan een toepassing dynamischer maken door opties aan de gebruiker te bieden. Een ListView toont items met behulp van een van de vier verschillende weergaven en rangschikt ze in kolommen met of zonder Microsoft Excel-headers. Gebruik de eigenschap "ListItems.Add" om items toe te voegen en "Gecontroleerd" om te bepalen welke items door de gebruiker zijn geselecteerd.

routebeschrijving

Vul het ListView-besturingselement in Excel in met behulp van VBA (Hemera Technologies / Photos.com / Getty Images)

1. Open Microsoft Excel, klik op het tabblad "Ontwikkelaar" en vervolgens op "Visual Basic" om het VBA-editorvenster te openen. Klik op het menu "Invoegen" en vervolgens op "Gebruikersformulier" (gebruikersformulier) om een ​​nieuw formulier te maken. Klik op 'Extra', 'Aanvullende besturingselementen' en selecteer het vakje naast 'Microsoft ListView Control' (Microsoft ListView-besturingselement) om een ​​nieuw besturingselement 'ListView' aan het formulier toe te voegen.

2. Klik met de rechtermuisknop op het besturingselement "ListView" en vervolgens op "Eigenschappen". Blader door het venster en kies 'Waar' naast de optie 'Selectievakjes'. Klik op "CommandButton" in het deelvenster "Toolbox" en vervolgens op het formulier om een ​​nieuwe knop toe te voegen. Voeg een tweede knop toe met dezelfde stappen.

   
   

3. Dubbelklik op "CommandButton1" om een ​​nieuwe gebeurtenis voor die knop te maken. Voeg de volgende code toe aan de populaire "ListBox" met drie items:

   Me.ListView1.ListItems.Add (1) = "Check Item 1" Me.ListView1.ListItems.Add (2) = "Check Item 2" Me.ListView1.ListItems.Add (3) = "Check Item 3"

4. Ga terug naar het formulier en dubbelklik op "CommandButton2" om een ​​nieuwe klikgebeurtenis voor die knop te maken. Voeg de volgende code toe om door de "ListBox" -items te gaan en de geselecteerde items weer te geven in het venster "Onmiddellijk":

   Voor 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 Next

5. Ga terug naar het formulier en klik op "F5" om het programma uit te voeren. Klik vervolgens op "CommandButton1" om het besturingselement "ListView" te vullen en vervolgens op "CommandButton2" om de geselecteerde items weer te geven.

   
   

Wat je nodig hebt

• Microsoft Excel