Поле со списком - это список, из которого пользователь может выбрать элемент. Чтобы создать список в Excel VBAвыполните следующие шаги.
1. На вкладке «Разработчик» нажмите «Вставить».
2. В группе «Элементы управления ActiveX» щелкните «Список».
3. Перетащите список на лист.
Примечание. Вы можете изменить имя элемента управления, щелкнув его правой кнопкой мыши (убедитесь, что выбран режим «Дизайн»), а затем щелкнув «Свойства». На данный момент мы оставим ListBox1 в качестве имени поля со списком.
Создайте событие открытия книги. Код, добавленный в событие открытия книги, будет выполнен Excel VBA при открытии книги.
4. Откройте редактор Visual Basic.
5. Дважды щелкните эту книгу в проводнике проекта.
6. Выберите «Рабочая книга» в раскрывающемся списке слева и выберите «Открыть» в раскрывающемся списке справа.
7. Чтобы добавить элементы в список, добавьте следующие строки кода в событие открытия книги:
С Sheet1.ListBox1
.AddItem "Париж"
.AddItem "Нью-Йорк"
.AddItem "Лондон"
Конец с
Примечание: используйте Sheet2, если ваш список расположен на втором листе, Sheet3, если ваш список расположен на третьем листе, и т. Д. Если вы используете эти строки кода вне события Workbook Open, вы можете добавить следующую строку кода перед этими строками кода. Эта строка кода очищает список. Таким образом, ваши элементы не будут добавляться несколько раз, если вы выполните свой код более одного раза.
ListBox1.Clear
8. Чтобы связать это поле со списком с ячейкой, щелкните правой кнопкой мыши поле со списком (убедитесь, что выбран режим разработки) и выберите «Свойства». Заполните D3 для LinkedCell.
Примечание. См. Также свойство ListFillRange, чтобы заполнить поле списка диапазоном ячеек.
9. Сохраните, закройте и снова откройте файл Excel.
Результат:
Хотя в некоторых ситуациях может быть полезно разместить поле со списком непосредственно на рабочем листе, окно со списком особенно полезно при размещении в пользовательской форме.
