Okvir s popisom u VBA-u je popis koji je dodijeljen varijabli, a popis ima razne ulaze za odabir, iz okvira s popisom možemo odabrati više opcija odjednom, okvir s popisom može se napraviti do korisničkog obrasca u excelu VBA odabirom popisa i crtanjem na korisničkom obrascu za okvir s popisom imamo imenovani raspon koji ima određene vrijednosti za odabir u okviru s popisom.
Što je okvir s popisom u programu Excel VBA?
Okvir s popisom je popis s kojeg korisnik može odabrati stavku. Okvir s popisom u programu Excel VBA može se koristiti ako želite prikazati popis vrijednosti između kojih korisnici mogu odabrati.
Kako stvoriti okvir s popisom u programu Excel?
Da biste stvorili okvir s popisom u Excelovom radnom listu, slijedite ove korake:
Prvo morate omogućiti karticu Developer da se izvrsno vidi na vrpci kako biste mogli doći do kontrolnih naredbi VBA i ActiveX. Da biste otvorili karticu Developer , otvorite dijaloški okvir Excel Options , kliknite Customize Ribbon u Excelu i potvrdite okvir Developer.
- Kliknite na Excel vrpcu, zatim odaberite karticu Developer, a zatim kliknite Insert, a zatim kliknite kontrolu okvira s popisom da biste umetnuli novi okvir s popisom u radni list excels.
- Nakon toga, nacrtajte pravokutnik u radnom listu programa Excel kako biste stvorili okvir s popisom u programu Excel.
- Dok odabirete List Boxin excel, kliknite karticu programera i odaberite Svojstva. Otvorit će se prozor Svojstva.
- U prozoru Svojstva, za postavku Lista popuniti raspon, unesite Dani - imenovani raspon s radnim danima.
- Kliknite svojstvo Multi-Select i na padajućem popisu odaberite 1-fmMultiSelectMulti, kao što je prikazano na donjoj snimci zaslona.
- Kliknite svojstvo Stil popisa i na padajućem popisu odaberite 1-fmListStyleOption. Ovo dodaje potvrdne okvire s lijeve strane stavki popisa, kao što je prikazano na donjoj snimci zaslona.
- Zatvorite prozor Svojstva.
Način dizajna možete isključiti klikom na način dizajna.
Kako stvoriti okvir s popisom u programu Excel VBA?
Možete uzeti u obzir sljedeći primjer za bolje razumijevanje okvira s popisom VBA:
Primjer # 1
Da biste ovaj okvir s popisom povezali sa ćelijom, desnom tipkom miša kliknite okvir s popisom (provjerite je li odabran način dizajna) i kliknite Svojstva. Ispunite B17 za povezanu ćeliju, kao što je prikazano na donjoj snimci zaslona.
Naziv popisa mjeseci kao mjesec odlazi na svojstva i odaberite Raspon popunjavanja popisa kao mjesec.
Podaci će se promijeniti u ćelijama ćelije B17 kada promijenite svoj izbor u okviru s popisom, kao što je prikazano na donjoj snimci zaslona.
Primjer 2 - Kako stvoriti okvir s popisom na korisničkom obrascu?
- Idite na karticu Developer, a zatim kliknite Visual Basic iz koda ili pritisnite Alt + F11.
- Idite na izbornik Umetanje, kliknite UserForm.
- Povucite okvir s popisom Kontrola na obliku korisnika iz okvira s alatima.
- Dvaput kliknite UserForm i odaberite događaj Userform kao što je prikazano na donjoj snimci zaslona.
- Sada dodajte sljedeći kod u postupak između.
Privatni podkorisnikForm_Initialize ()
ListBox1.AddItem “MBA”
ListBox1.AddItem "MCA"
ListBox1.AddItem “MSC”
ListBox1.AddItem “MECS”
ListBox1.AddItem "CA"
Kraj pod
- Sada pritisnite "F5" za pokretanje koda.
Primjer # 3 - Kako dodati dinamičku kontrolu okvira s popisom
Dodajte dinamičku kontrolu okvira popisa na korisnički obrazac pomoću VBA.
- Dodajte naredbeni gumb na korisnički obrazac iz okvira s alatima.
- Desnom tipkom miša kliknite naredbeni gumb, kliknite svojstva.
- Promijenite naslov naredbenog gumba u 'Create_Listbox'
- Dvaput kliknite na naredbeni gumb
- Sada pokazuje sljedeći kod.
Private Sub CommandButton1_Click ()
Kraj pod
- Pozovite donji postupak pod nazivom "Add_Dynamic_Listbox" i pronađite donji postupak koji treba pokrenuti.
Sub Add_Dynamic_Listbox ()
'Dodaj dinamički okvir s popisom i dodijeli ga objektu' LstBx '
Postavite LstBx = UserForm3.Controls.Add (“Forms.ListBox.1”)
'Položaj okvira s popisom
LstBx.Left = 20
LstBx.Top = 10
Kraj pod
- Sada kliknite F5 da biste pokrenuli makronaredbu.
Kako dodati stavke u kontrolu okvira s popisom u VBA?
Privatni podumetak _Items _To_LstBox ()
ListBox1.AddItem "Stavka 1"
ListBox1.AddItem "Stavka 2"
ListBox1.AddItem "Stavka 3"
ListBox1.AddItem "Stavka 4"
ListBox1.AddItem "Stavka 5"
Kraj pod
Kako izbrisati stavke iz kontrole okvira s popisom pomoću VBA?
Sub Clr_LstBx ()
UserForm3.ListBox1.Clear
Kraj pod
Primjer # 4
Pretpostavimo da imamo podatke o prodaji, a želimo detalje prodaje grafičkog korisničkog sučelja odabirom odabira stavke u popisu. Zatim moramo promijeniti oznaku ćelije kao vezu ćelije i primijeniti formulu VLOOKUP za dohvaćanje detalja prodaje kako je prikazano na donjim snimkama zaslona.
Stvari koje treba zapamtiti o okviru s popisom u programu Excel VBA
Okvir s popisom u programu Excel može se koristiti za odabir više stavki iz njega.
