/ / Excel VBA kombinirani okvir

Excel VBA kombinirani okvir

Kombinirani okvir je padajući popis s kojeg korisnik može odabrati stavku ili ispuniti vlastiti izbor. Za izradu a kombinirani okvir u Excel VBA, izvršite sljedeće korake.

1. Na kartici Razvojni program kliknite Umetni.

2. U grupi ActiveX Controls, kliknite Combo Box.

Stvorite kombinirani okvir u programu Excel VBA

3. Povucite kombinirani okvir na svoj radni list.

Povucite kombinirani okvir

Bilješka: možete promijeniti naziv kontrole desnim klikom na kontrolu (provjerite je li odabran nacin dizajna), a zatim kliknite Svojstva. Za sada ćemo ostaviti ComboBox1 kao ime kombiniranog okvira.

Stvorite radnu knjižicu Otvori događaj. Kôd dodan u radnu knjižicu Otvori događaj će izvršiti Excel VBA kada otvorite radnu knjigu.

4. Otvorite Visual Basic Editor.

5. Dvaput kliknite na ovu radnu knjigu u programu Explorer.

6. Na padajućem popisu s lijeve strane odaberite Radnu knjigu i odaberite Otvori s desnog padajućeg popisa.

Radna knjiga Otvori događaj u programu Excel VBA

7. Za dodavanje stavki u kombinirani okvir, dodajte sljedeće retke koda u Open Event radnu knjižicu:

With Sheet1.ComboBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

Bilješka: koristite Sheet2 ako je vaš kombinirani okvir smješten na drugom radnom listu, Sheet3 ako je vaš kombinirani okvir smješten na trećem radnom listu i sl. Ako koristite ove linije koda izvan događaja Openbook, možda biste htjeli dodati linije koda ispod ovih kodne linije. Prva linija koda briše kombinirani okvir. Na taj način vaše stavke neće biti dodane više puta ako izvršite svoj kôd više puta. Druga šifra koda briše se po vlastitom izboru.

ComboBox1.Clear
ComboBox1.Value = ""

8. Da biste ovaj kombinirani okvir povezali s ćelijom, desnom tipkom miša kliknite kombinirani okvir (provjerite je li način odabira) i kliknite Svojstva. Ispunite D2 za LinkedCell.

LinkedCell

Napomena: također vidite svojstvo ListFillRange da popuni kombinirani okvir s nizom ćelija.

9. Spremite, zatvorite i ponovo otvorite Excel datoteku.

Proizlaziti:

Kombinirani okvir

Iako u nekim situacijama može biti korisno izravno postaviti kombinirani okvir na svoj radni list, kombinacija je osobito korisna kada se stavi na Userform.

Također pročitajte: