Slik bruker du ListView med en CheckBox i VBA

Forfatter: Peter Berry
Opprettelsesdato: 11 August 2021
Oppdater Dato: 17 November 2024
Anonim
Slik bruker du ListView med en CheckBox i VBA - Artikler
Slik bruker du ListView med en CheckBox i VBA - Artikler

Innhold

Ved å bruke en ListView-kontroll med avmerkingsbokser på en VBA-skjema kan det gjøres et mer dynamisk program ved å gi brukerne muligheter. En ListView viser elementer ved å bruke en av fire forskjellige visninger og ordner dem i kolonner med eller uten Microsoft Excel-overskrifter. Bruk "ListItems.Add" -egenskapen til å legge til elementer og "Checked" for å bestemme hvilke elementer som er valgt av brukeren.


retninger

Fyll ut ListView-kontrollen i Excel ved hjelp av VBA (Hemera Technologies / Photos.com / Getty Images)
  1. Åpne Microsoft Excel, klikk på "Utvikler" -fanen og deretter på "Visual Basic" for å åpne VBA-editor-vinduet. Klikk på "Sett inn" -menyen og deretter "UserForm" (brukerskjema) for å opprette et nytt skjema. Klikk "Verktøy", "Ytterligere kontroller" og velg boksen ved siden av "Microsoft ListView Control" (Microsoft ListView-kontroll) for å legge til en ny "ListView" -kontroll i skjemaet.

  2. Høyreklikk på "ListView" -kontrollen og deretter på "Egenskaper". Bla nedover vinduet og velg "True" ved siden av "Checkboxes" -alternativet. Klikk på "CommandButton" i "Toolbox" -ruten og deretter på skjemaet for å legge til en ny knapp. Legg til en ny knapp ved å bruke de samme trinnene.


  3. Dobbeltklikk på "CommandButton1" for å opprette en ny hendelse for den knappen. Legg til følgende kode til populære "ListBox" med tre elementer:

    Me.ListView1.ListItems.Add (1) = "Sjekk element 1" Me.ListView1.ListItems.Add (2) = "Kontroller element 2" Me.ListView1.ListItems.Add (3) = "Sjekk element 3"

  4. Gå tilbake til skjemaet og dobbeltklikk på "CommandButton2" for å opprette en ny klikkhendelse for den knappen. Legg til følgende kode for å gå gjennom "ListBox" -elementene og vise de valgte elementene i "Umiddelbare" -vinduet:

    For counter = 1 To Me.ListView1.ListItems.Count Hvis Me.ListView1.ListItems.Item (counter) .Check Then Debug.Print Me.ListView1.ListItems.Item (counter) .Text End hvis neste

  5. Gå tilbake til skjemaet og klikk "F5" for å kjøre programmet. Deretter klikker du på "CommandButton1" for å fylle ut "ListView" -kontrollen og deretter "CommandButton2" for å vise de valgte elementene.


Hva du trenger

  • Microsoft Excel

Mange kontorer kommunierer via e-pot, en rak og enkel måte å ende meldinger til tore grupper av menneker på. Av denne grunn kan en e-pot være en fin måte å introduere nye...

Dekorer gla og keramike retter om utfyller innredningen din med melaktig termolina. Milky termoline er en type decoupage lim om fungerer både om lim og om bakide for papir og andre fine materiale...

Interessant