Okvir s popisom je popis na kojem korisnik može odabrati stavku. Za stvaranje a okvir s popisom u Excel VBA, izvršite sljedeće korake.
1. Na kartici Developer kliknite Umetni.
2. U grupi Kontrole ActiveX kliknite Okvir s popisom.
3. Povucite okvir s popisom na radnom listu.
Napomena: naziv kontrole možete promijeniti desnim klikom na kontrolu (provjerite je li odabran način dizajna), a zatim kliknite Svojstva. Za sada ćemo ostaviti ListBox1 kao naziv okvira s popisom.
Izradite otvoreni događaj radne knjige. Kôd dodan otvorenom događaju radne knjige izvršit će Excel VBA kada otvorite radnu knjigu.
4. Otvorite Visual Basic Editor.
5. Dvaput kliknite na ovu radnu knjigu u Project Exploreru.
6. Odaberite Radna knjiga s lijevog padajućeg popisa i odaberite Otvori s desnog padajućeg popisa.
7. Da biste dodali stavke u okvir s popisom, dodajte sljedeće retke koda u Otvoreni događaj radne knjige:
S Sheet1.ListBox1
.Dodatak "Pariz"
.Dodatak "New York"
.Dodatak "London"
Završi s
Napomena: upotrijebite Sheet2 ako se okvir s popisom nalazi na drugom radnom listu, Sheet3 ako se okvir s popisom nalazi na trećem radnom listu itd. Ako ove retke koda koristite izvan događaja Otvorena knjiga, možda ćete htjeti dodati sljedeći kodni redak prije ovih redaka koda. Ovaj kodni redak briše okvir s popisom. Na ovaj način vaše stavke neće biti dodane više puta ako izvršite kôd više puta.
ListBox1.Clear
8. Da biste povezali ovaj popisni okvir s ćelijom, desnom tipkom miša kliknite okvir s popisom (provjerite je li odabran način dizajna) i kliknite Svojstva. Ispunite D3 za LinkedCell.
Napomena: pogledajte i svojstvo ListFillRange kako biste okvir s popisom ispunili rasponom ćelija.
9. Spremite, zatvorite i ponovno otvorite Excel datoteku.
Proizlaziti:
Iako u nekim situacijama može biti korisno izravno postaviti okvir s popisom na vaš radni list, okvir s popisom posebno je koristan kada se postavi na korisnički obrazac.
