Списъчно поле е списък, от който потребителят може да избере елемент. За да създадете a списъчно поле в Excel VBA, изпълнете следните стъпки.
1. В раздела Разработчик щракнете върху Вмъкване.
2. В групата ActiveX Controls щракнете върху Списъчно поле.
3. Плъзнете списъчно поле във вашия работен лист.
Забележка: можете да промените името на контролата, като щракнете с десния бутон върху контролата (уверете се, че е избран режим на проектиране) и след това щракнете върху Свойства. Засега ще оставим ListBox1 като име на списъчното поле.
Създайте отворено събитие на работна книга. Кодът, добавен към отвореното събитие на работната книга, ще бъде изпълнен от Excel VBA, когато отворите работната книга.
4. Отворете редактора на Visual Basic.
5. Щракнете двукратно върху Тази работна книга в Project Explorer.
6. Изберете Workbook от левия падащ списък и изберете Open от десния падащ списък.
7. За да добавите елементи към списъчното поле, добавете следните кодови редове към отвореното събитие на работната книга:
С Sheet1.ListBox1
.AddItem "Париж"
.AddItem "Ню Йорк"
.AddItem "Лондон"
Край с
Забележка: използвайте Sheet2, ако списъчното ви поле се намира на втория работен лист, Sheet3, ако списъчното ви поле се намира на третия работен лист и т.н. Ако използвате тези кодови редове извън събитието Workbook Open, може да искате да добавите следния кодов ред преди тези кодови редове. Този код код изчиства списъчното поле. По този начин вашите елементи няма да се добавят няколко пъти, ако изпълнявате кода си повече от веднъж.
ListBox1.Clear
8. За да свържете това списъчно поле с клетка, щракнете с десния бутон върху полето със списъка (уверете се, че е избран режим на проектиране) и щракнете върху Свойства. Попълнете D3 за LinkedCell.
Забележка: вижте също свойството ListFillRange, за да попълните поле със списък с диапазон от клетки.
9. Запазете, затворете и отворете отново Excel файла.
Резултат:
Въпреки че в някои ситуации може да бъде полезно директно да поставите поле със списък във вашия работен лист, полето със списък е особено полезно, когато се постави в Userform.
