/ / Excel VBA popisni okvir

Excel VBA popisni okvir

Popisni okvir je popis s kojeg korisnik može odabrati stavku. Za izradu a okvir za popise u Excel VBA, izvršite sljedeće korake.

1. Na kartici Razvojni program kliknite Umetni.

2. U grupi ActiveX Controls, kliknite List Box.

Izradite okvir za popis u programu Excel VBA

3. Povucite okvir popisa na radnom listu.

Povucite okvir popisa

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 ListBox1 kao naziv popisa.

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 okvir za popis dodajte sljedeće retke koda u Open Event radnu knjigu:

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

Bilješka: koristite Sheet2 ako je vaš okvir za popis nalazi se na drugom radnom listu, Sheet3 ako je vaš okvir za popis nalazi se na trećem radnom listu i sl. Ako koristite ove linije koda izvan radnog događaja Openbook, možda biste trebali dodati sljedeću liniju koda prije tih kodne linije. Ova linija koda briše okvir popisa. Na taj 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 ovaj okvir popisa spojili na ćeliju, desnom tipkom miša kliknite okvir s popisom (provjerite je li odabran nacin dizajna) i kliknite Svojstva. Ispunite D3 za LinkedCell.

LinkedCell

Napomena: također vidite svojstvo ListFillRange kako biste popunili okvir s nizom ćelija.

9. Spremite, zatvorite i ponovo otvorite Excel datoteku.

Proizlaziti:

Popisni okvir

Iako u nekim situacijama može biti korisno izravno staviti okvir za unos na radni list, okvir s popisom je osobito koristan kada se stavi na Userform.

Također pročitajte: