Luetteloruutu on luettelo, josta käyttäjä voi valita kohteen. Luo a luetteloruutu sisään Excel VBA, suorita seuraavat vaiheet.
1. Valitse Kehittäjä -välilehdeltä Lisää.
2. Valitse ActiveX -komponentit -luettelosta Luetteloruutu.
3. Vedä laskentataulukon luetteloruutua.
Huomautus: voit muuttaa ohjausobjektin nimen napsauttamalla ohjainta hiiren kakkospainikkeella (varmista, että Suunnittelutila on valittuna) ja napsauttamalla sitten Ominaisuudet. Jätämme toistaiseksi ListBox1: n luetteloruudun nimeksi.
Luo työkirjan avoin tapahtuma. Työkirjan avoimeen tapahtumaan lisätty koodi suoritetaan Excel VBA: n avulla, kun avaat työkirjan.
4. Avaa Visual Basic Editor.
5. Kaksoisnapsauta tätä työkirjaa Project Explorerissa.
6. Valitse vasemmasta avattavasta luettelosta Työkirja ja oikeanpuoleisesta avattavasta luettelosta Avaa.
7. Voit lisätä kohteita luetteloruutuun lisäämällä seuraavat koodirivit työkirjan avoimeen tapahtumaan:
Sheet1.ListBox1
.Lisää "Pariisi"
.Lisää "New York"
.AddItem "Lontoo"
Lopeta
Huomautus: käytä taulukkoa 2, jos luetteloruutu sijaitsee toisessa laskentataulukossa, tai taulukkoa 3, jos luetteloruutu sijaitsee kolmannessa laskentataulukossa jne. Jos käytät näitä koodirivejä työkirjan avaamistapahtuman ulkopuolella, voit halutessasi lisätä seuraavan koodirivin ennen näitä koodirivejä. Tämä koodirivi tyhjentää luetteloruudun. Tällä tavalla kohteita ei lisätä useita kertoja, jos suoritat koodisi useammin kuin kerran.
ListBox1.Clear
8. Jos haluat linkittää tämän luetteloruudun soluun, napsauta hiiren kakkospainikkeella luetteloruutua (varmista, että suunnittelutila on valittu) ja napsauta Ominaisuudet. Täytä D3 LinkedCellille.
Huomautus: katso myös ListFillRange -ominaisuus, jos haluat täyttää luetteloruudun solualueella.
9. Tallenna, sulje ja avaa Excel -tiedosto uudelleen.
Tulos:
Vaikka joissakin tilanteissa voi olla hyödyllistä sijoittaa luetteloruutu suoraan laskentataulukkoosi, luetteloruutu on erityisen hyödyllinen sijoitettaessa Userform -lomakkeeseen.
