/ / Корпус на списъците Excel VBA

Кутия за списък с Excel VBA

Списък със списъци е списък, от който потребителят може да избере даден елемент. За да създадете списък в Excel VBA, изпълнете следните стъпки.

1. В раздела Разработчик кликнете върху Вмъкване.

2. В групата ActiveX Controls щракнете върху Box List.

Създайте списък в Excel VBA

3. Преместете поле от списъка в работния лист.

Преместете поле за списък

Забележка: можете да промените името на контрола, като щракнете с десния бутон на мишката върху контрола (уверете се, че е избран режим на проектиране) и след това щракнете върху Properties (Свойства). Засега ще оставим ListBox1 като името на списъка.

Създаване на събитие за отваряне на работна книга. Кодът, добавен към работното събитие Open Workbook, ще бъде изпълнен от Excel VBA, когато отворите работната книга.

4. Отворете редактора на Visual Basic.

5. Щракнете двукратно върху тази работна книга в Project Explorer.

6. Изберете Работна книга от левия падащ списък и изберете Отвори от десния падащ списък.

Отворете събитието в Excel

7. За да добавите елементи към списъка, добавете следните кодови линии към събитието Open Workbook:

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

Забележка: използвайте Sheet2, ако списъкът ви се намира във втория работен лист, Sheet3, ако списъкът ви се намира в третия работен лист и т.н. Ако използвате тези кодови линии извън събитието Workbook Open, може да искате да добавите следния код преди да ги кодови линии. Тази кодова линия изчиства списъка. По този начин вашите елементи няма да се добавят многократно, ако изпълнявате кода си повече от веднъж.

ListBox1.Clear

8. За да свържете това поле със клетка, щракнете с десния бутон на мишката върху списъка (уверете се, че е избран режим на проектиране) и щракнете върху Properties. Попълнете D3 за LinkedCell.

LinkedCell

Забележка: вижте също собствеността на ListFillRange, за да попълните поле със списък с диапазон от клетки.

9. Запазете, затворете и отворете отново Excel файла.

Резултат:

Списък с полета

Въпреки че в някои ситуации може да е полезно директно да поставите списък в работния лист, поле със списъци е особено полезно, когато се постави върху Userform.

Също така се чете: