Sadržaj

• smjerovi
• Što vam je potrebno

Korištenje kontrole ListView s potvrdnim okvirima na VBA obrascu može učiniti aplikaciju dinamičnijom pružajući korisniku mogućnosti. ListView prikazuje stavke koristeći jedan od četiri različita prikaza i raspoređuje ih u stupce sa ili bez Microsoft Excel zaglavlja. Koristite svojstvo "ListItems.Add" za dodavanje stavki i "Provjereno" da biste odredili koje stavke je korisnik odabrao.

smjerovi

Popunite ListView kontrolu u Excelu koristeći VBA (Hemera Technologies / Photos.com / Getty Images)

1. Otvorite Microsoft Excel, kliknite na karticu "Developer", a zatim na "Visual Basic" da biste otvorili prozor za uređivanje VBA-a. Kliknite "Umetni" izbornik, a zatim "Korisnički oblik" (korisnički obrazac) kako biste stvorili novi obrazac. Kliknite "Tools", "Additional Controls" i odaberite okvir pored "Microsoft ListView Control" (kontrola Microsoft ListView) da biste obrascu dodali novu kontrolu "ListView".

2. Kliknite desnom tipkom miša na kontrolu "ListView", a zatim na "Svojstva". Pomaknite se prema dolje kroz prozor i odaberite opciju "True" pored opcije "Checkboxes". Kliknite "CommandButton" u oknu "Toolbox", a zatim na obrascu da biste dodali novi gumb. Dodajte drugi gumb pomoću istih koraka.

   
   

3. Dvaput kliknite na "CommandButton1" da biste stvorili novi događaj za taj gumb. Dodajte sljedeći kod u popularni "ListBox" s tri stavke:

   Me.ListView1.ListItems.Add (1) = "Provjeri stavku 1" Me.ListView1.ListItems.Add (2) = "Provjeri stavku 2" Me.ListView1.ListItems.Add (3) = "Provjeri stavku 3"

4. Vratite se na obrazac i dvaput kliknite na "CommandButton2" da biste stvorili novi događaj klika za taj gumb. Dodajte sljedeći kôd da biste pregledali stavke "ListBox" i prikazali odabrane stavke u prozoru "Odmah":

   Za brojač = 1 Za Me.ListView1.ListItems.Count Ako Me.ListView1.ListItems.Item (brojač) .Checked Zatim Debug.Print Me.ListView1.ListItems.Item (brojač).

5. Vratite se na obrazac i kliknite "F5" za pokretanje programa. Zatim kliknite "CommandButton1" da biste popunili kontrolu "ListView", a zatim "CommandButton2" da biste prikazali odabrane stavke.

   
   

Što vam je potrebno

• Microsoft Excel