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