Met behulp van een " ListView " control met selectievakjes in uw Visual Basic for Applications ( VBA ) formulier kan uw toepassing dynamischer te maken door het verstrekken van de gebruiker met opties . Een " ListView " controle geeft items via een van vier verschillende standpunten , en regelt items in kolommen met of zonder kolom Microsoft Excelheadings . Gebruik de " ListItems.Add " eigenschap om items toe te voegen , en gebruik de "checked " eigenschap om te bepalen welke items werden gecontroleerd door de gebruiker . Wat je nodig hebt
Microsoft Excel
Toon Meer Aanwijzingen
Lancering Microsoft Excel 1 , klikt u op het tabblad " Developer " en klik op " Visual Basic " om de VBA -editor te openen venster . Klik op het menu "Invoegen " en klik op " UserForm " om een nieuw formulier te maken . Klik op de 'Extra ', klik op ' Extra Controls , " en vink het vakje naast" Microsoft ListView Control " een nieuwe " ListView " controle toe te voegen aan uw formulier . Kopen van 2 Klik met de rechtermuisknop " ListView " controle en klik op 'Eigenschappen'. Scroll naar beneden het Venster eigenschappen en kies " True " naast " Checkboxes . " Klik op " CommandButton " van de " Toolbox " venster en klik op het formulier om een nieuwe knop controle toe te voegen . Voeg een tweede knop met behulp van dezelfde techniek .
Dubbelklik op " CommandButton1 " 3 om een gebeurtenis click voor deze toets te maken . Voeg de volgende code toe aan de " ListBox " met drie items bevolken : Me.ListView1.ListItems.Add
( 1 ) = " Controleer Item 1 " Me.ListView1.ListItems.Add
( 2 ) = " Controle Item 2 " Me.ListView1.ListItems.Add
( 3 ) = " Controleer punt 3 "
Switch 4 terug naar uw formulier en dubbelklik op " CommandButton2 "om een nieuwe gebeurtenis click voor deze knop te maken . Voeg de volgende code voor het doorlussen van de " ListBox " items en alle geselecteerde items af te drukken op de ' Direct ' venster :
For teller = 1 To
Me.ListView1.ListItems.Count Als Me . ListView1.ListItems.Item ( teller ) . Gecontroleerd dan Debug.Print Me.ListView1.ListItems.Item
( teller ) . tekst End
Als
Volgende < br >
Switch 5 terug naar uw formulier in en klik op " F5 " om het programma uit te voeren . Klik op " CommandButton1 " om de " ListView " controle bevolken en klik op " CommandButton2 " om geselecteerde items weer te geven .
|
