Поле зі списком-це розкривний список, де користувач може вибрати елемент або заповнити свій вибір. Для створення a комбіноване вікно в Excel VBA, виконайте наступні кроки.
1. На вкладці Розробник натисніть Вставити.
2. У групі Елементи керування ActiveX клацніть Комбіноване вікно.
3. Перетягніть поле зі списком на своєму аркуші.
Примітка: Ви можете змінити назву елемента керування, клацнувши правою кнопкою миші на елементі керування (переконайтеся, що вибрано Режим проектування), а потім натиснути кнопку Властивості. Поки що ми залишимо ComboBox1 як назву поля зі списком.
Створення відкритої події робочої книги. Код, доданий до відкритої події книги, буде виконано програмою Excel VBA під час відкриття книги.
4. Відкрийте редактор Visual Basic.
5. Двічі клацніть цю книгу в Провіднику проектів.
6. Виберіть "Робоча книга" зі спадного списку ліворуч і виберіть "Відкрити" зі спадного списку праворуч.
7. Щоб додати елементи до поля зі списком, додайте такі рядки коду до відкритої події книги:
З Sheet1.ComboBox1
.Додаток "Париж"
.Додаток "Нью -Йорк"
.Додаток "Лондон"
Закінчити з
Примітка: використовуйте Sheet2, якщо ваше поле зі списком знаходиться на другому аркуші, Sheet3, якщо ваше поле зі списком знаходиться на третьому аркуші тощо. Якщо ви використовуєте ці рядки коду поза подією Відкриття книги, ви можете додати рядки коду нижче перед цими рядками коду. Перший рядок коду очищає поле зі списком. Таким чином, ваші елементи не будуть додаватися кілька разів, якщо ви виконуєте код більше одного разу. Другий рядок коду видаляє ваш власний вибір.
ComboBox1. Очистити
ComboBox1.Value = ""
8. Щоб прив'язати це поле зі списком до клітинки, клацніть правою кнопкою миші на полі зі списком (переконайтеся, що вибрано режим оформлення) і натисніть Властивості. Заповніть D2 для LinkedCell.
Примітка: також перегляньте властивість ListFillRange, щоб заповнити поле зі списком діапазоном клітинок.
9. Збережіть, закрийте та знову відкрийте файл Excel.
Результат:
Хоча в деяких ситуаціях може бути корисним безпосередньо розмістити поле зі списком на вашому аркуші, поле зі списком особливо корисно, коли воно розміщується у формі користувача.
