/ / Комбинирана кутия за Excel VBA

Комбинирана кутия за Excel VBA

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

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

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

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

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

Плъзнете комбинирана кутия

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

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

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

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

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

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

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

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

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

ComboBox1.Clear
ComboBox1.Value = ""

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

LinkedCell

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

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

Резултат:

Комбинирана кутия

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

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