/ / Excel VBA Combo Box

Excel VBA Combo Box

Комбіноване поле - це розкривний список, з якого користувач може вибрати товар або заповнити його власним вибором. Щоб створити комбінація в Excel VBA, виконайте наступні кроки.

1. На вкладці Розробник, натисніть Вставити.

2. У групі ActiveX Controls натисніть Combo Box.

Створення комбінованого поля в Excel VBA

3. Перетягніть комбіноване поле на робочому аркуші.

Перетягніть поле Combo

Примітка: ви можете змінити назву елемента керування, клацнувши правою кнопкою миші на елементі керування (переконайтеся, що вибрано режим проектування), а потім натисніть Властивості. Наразі ми залишаємо ComboBox1 як ім'я комбінованого поля.

Створити книжкову відкриту подію. Код, доданий до книги "Відкрита подія", буде виконаний Excel VBA при відкритті книги.

4. Відкрийте редактор Visual Basic.

5. Двічі клацніть на цій робочій книзі в Project Explorer.

6. Оберіть Книгу з розкривного списку ліворуч та виберіть "Відкрити" у спадному списку праворуч.

Робоча книга Відкрита подія в Excel VBA

7. Щоб додати елементи до списку, додайте наступні кодові рядки до відкритої події Workbook:

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

Примітка: використовуйте Sheet2, якщо поле для вашого списку розташоване на другому аркуші, Sheet3, якщо поле вашого списку розташоване на третьому аркуші тощо. Якщо ви використовуєте ці кодові рядки за межами відкритої події Workbook Open, можливо, ви бажаєте додати ці рядки коду до цих кодові лінії Перша кодова рядок очищає комбіноване поле. Таким чином, ваші елементи не будуть додаватися кілька разів, якщо ви виконаєте свій код більше одного разу. Друга кодова рядок очищає ваш власний вибір.

ComboBox1.Clear
ComboBox1.Value = ""

8. Щоб пов'язати це поле з комбінованим ящиком в комірці, клацніть правою кнопкою миші на поле для комбінації (переконайтеся, що обрано режим дизайну) і натисніть на Властивості. Заповніть D2 для LinkedCell.

LinkedCell

Примітка. Також перегляньте властивість ListFillRange, щоб заповнити комбіноване поле з діапазоном комірок.

9. Зберегти, закрити та знову відкрити файл Excel.

Результат:

Combo Box

Хоча в деяких ситуаціях це може бути корисним для безпосереднього розміщення комбінації на вашому робочому аркуші, комбіноване поле є особливо корисним, коли розміщується на Userform.

Також читайте: