Kombinirani okvir je padajući popis na kojem korisnik može odabrati stavku ili ispuniti svoj izbor. Za stvaranje a kombinirani okvir u Excel VBA, izvršite sljedeće korake.
1. Na kartici Developer kliknite Umetni.
2. U grupi Kontrole ActiveX kliknite Kombinirani okvir.
3. Povucite kombinirani okvir na radni list.
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 ComboBox1 kao naziv kombiniranog okvira.
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 kombinirani okvir, dodajte sljedeće retke koda u Otvoreni događaj radne knjige:
S listom1.ComboBox1
.Dodatak "Pariz"
.Dodatak "New York"
.Dodatak "London"
Završi s
Napomena: upotrijebite Sheet2 ako se vaš kombinirani okvir nalazi na drugom radnom listu, Sheet3 ako se vaš kombinirani okvir nalazi na trećem radnom listu itd. Ako ove retke koda koristite izvan događaja Otvorena radna knjiga, možda biste trebali dodati kodne retke u nastavku prije ovih redaka koda. Prvi kodni redak briše kombinirani okvir. Na ovaj način vaše stavke neće biti dodane više puta ako izvršite kôd više puta. Druga linija koda briše vaš vlastiti izbor.
ComboBox1.Očisti
ComboBox1.Value = ""
8. Da biste povezali ovaj kombinirani okvir s ćelijom, desnom tipkom miša kliknite kombinirani okvir (provjerite je li odabran način dizajna) i kliknite Svojstva. Ispunite D2 za LinkedCell.
Napomena: pogledajte i svojstvo ListFillRange da biste ispunili kombinirani okvir rasponom ćelija.
9. Spremite, zatvorite i ponovno otvorite Excel datoteku.
Proizlaziti:
Iako u nekim situacijama može biti korisno postaviti kombinirani okvir na radni list, kombinirani okvir je osobito koristan kada se postavi na korisnički obrazac.
