Меню Закрыть

Excel vba combobox additem

В следующем примере используется элемент ComboBox для отображения параметров размещения рисунка для элемента управления. The following example uses a ComboBox to show the picture placement options for a control. Каждый раз, когда пользователь выбирает элемент списка, изображение и подпись обновляются на CommandButton. Each time the user clicks a list choice, the picture and caption are updated on the CommandButton. В этом примере кода также используется метод AddItem для заполнения элементов ComboBox . This code sample also uses the AddItem method to populate the ComboBox choices.

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. To use this example, copy this sample code to the Declarations portion of a form. Убедитесь, что эта форма содержит: Make sure that the form contains:

  • Метка под названием Label1. A Label named Label1.
  • Элемент CommandButton с именем CommandButton1. A CommandButton named CommandButton1.
  • Элемент ComboBox с именем ComboBox1. A ComboBox named ComboBox1.

Поддержка и обратная связь Support and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь. Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Заполнение ComboBox данными с помощью кода VBA Excel. Добавление значений в поле со списком методом AddItem, из массива и из диапазона рабочего листа. Примеры.

Заполнение ComboBox методом AddItem

Создайте пользовательскую форму UserForm1 и разместите на ней поле со списком ComboBox1. Используйте метод AddItem для заполнения элемента управления значениями:

Скопируйте код и запустите его выполнение, на открывшейся форме раскройте поле со списком, в результате увидите, что элемент управления ComboBox1 заполнен соответствующими значениями:

Читайте также:  Aport ru российская поисковая система

Заполнение ComboBox значениями из массива

Для заполнения элемента управления ComboBox значениями из массива будем использовать свойство поля со списком List и функцию Array:

Результат выполнения кода будет таким же, как и на предыдущем изображении.

Таким же образом можно использовать не только функцию Array, но и переменную массива, предварительно объявленную и заполненную значениями:

Заполнение ComboBox значениями из ячеек

Для заполнения поля со списком значениями из диапазона ячеек рабочего листа будем использовать свойство комбинированного списка RowSource, предварительно заполнив диапазон "A1:A5" активного листа уже известными значениями:

Чтобы присвоить элементу управления ComboBox значения из диапазона ячеек любого рабочего листа, добавьте ссылку на него перед наименованием диапазона, например, замените "A1:A5" на "Лист1!A1:A5", и поле со списком будет заполнено значениями ячеек "A1:A5", расположенных на листе с именем "Лист1". Имя листа берется из наименования ярлыка.

Более подробно о заполнении данными ComboBox можно прочитать в статье о заполнении ListBox, так как оба эти элемента управления используют одинаковые способы заполнения.

Иногда возникает необходимость заполнения элементов управления ListBox и ComboBox уникальными значениями из диапазона ячеек с повторяющимся содержимым. Смотрите, как отсортировать уникальные элементы из списка с помощью объектов Collection и Dictionary.

Вы можете скачать файл Excel с представленными выше примерами. Файл упакован в ZIP-архив. Для проверки работоспособности кода, непосредственно в редакторе VBA помещайте курсор внутри тела каждой процедуры и нажимайте кнопку «Run Sub».

VBA Excel. ComboBox – заполнение поля со списком : 5 комментариев

Не получился ни один из предложенных вариантов( С чем это может быть связано?

Оксана, скорее всего у вас имена UserForm и ComboBox другие, чем в приведенных примерах. Я сегодня в конце статьи размещу файл для скачивания с этими примерами.

Евгений, подскажите, а где в Вашем примере пользовательская форма? Что бы наглядно посмотреть)

Или это что-то у меня((( При нажатии на Run Sub в вашем файле, у меня тоже нет списка(

Читайте также:  Видео в стиле vhs

UserForm1 находится в папке «Forms» в проводнике редактора VBA под строчкой «ЭтаКнига». Возможно, у вас в параметрах Excel отключены макросы, поэтому коды не работают.

Добавляет новый элемент в список значений, отображаемых указанным элементом управления "поле со списком". Adds a new item to the list of values displayed by the specified combo box control.

Синтаксис Syntax

Expression. AddItem (Элемент, индекс) expression.AddItem (Item, Index)

Expression (выражение ) Переменная, представляющая объект ComboBox . expression A variable that represents a ComboBox object.

Параметры Parameters

Имя NameОбязательный или необязательный Required/OptionalТип данных Data typeОписание Description
Элемент ItemОбязательный RequiredString StringОтображаемый текст для нового элемента. The display text for the new item.
Index IndexНеобязательный OptionalVariant VariantПоложение элемента в списке. The position of the item in the list. Если этот аргумент опущен, элемент добавляется в конец списка. If this argument is omitted, the item is added to the end of the list.

Примечания Remarks

Свойству RowSourceType указанного элемента управления должен быть присвоено значение List. The RowSourceType property of the specified control must be set to Value List.

Этот метод действителен только для элементов управления списка или поля со списком в формах. This method is only valid for list box or combo box controls on forms.

Нумерация элементов списка начинается с нуля. List item numbers start from zero. Если значение аргумента Item не соответствует существующему номеру элемента, возникает ошибка. If the value of the Item argument doesn’t correspond to an existing item number, an error occurs.

Для списков с несколькими столбцами используйте точку с запятой, чтобы разделять строки для каждого столбца (например, "1010; Red; Large" для списка из трех столбцов). For multiple-column lists, use semicolons to delimit the strings for each column (for example, "1010;red;large" for a three-column list). Если аргумент Item содержит меньше строк по сравнению со столбцами в элементе управления, элементы будут добавлены начиная с самого левого столбца. If the Item argument contains fewer strings than columns in the control, items will be added starting with the left-most column. Если аргумент Item содержит больше строк по сравнению со столбцами в элементе управления, лишние строки игнорируются. If the Item argument contains more strings than columns in the control, the extra strings are ignored.

Читайте также:  Arma 3 altis life системные требования минимальные

Используйте метод RemoveItem для удаления элементов из списка значений. Use the RemoveItem method to remove items from the list of values.

Пример Example

В этом примере элемент добавляется в конец списка в элементе управления "список". This example adds an item to the end of the list in a list box control. Чтобы функция работала, необходимо передать ей объект ListBox , представляющий элемент управления "список" в форме, и строковое значение **** , представляющее текст добавляемого элемента. For the function to work, you must pass it a ListBox object representing a list box control on a form and a String value representing the text of the item to be added.

В этом примере элемент добавляется в начало списка в элементе управления "поле со списком". This example adds an item to the beginning of the list in a combo box control. Чтобы функция работала, необходимо передать ей объект ComboBox , представляющий элемент управления "поле со списком" в форме, и строковое значение, представляющее текст добавляемого элемента. For the function to work, you must pass it a ComboBox object representing a combo box control on a form and a String value representing the text of the item to be added.

Поддержка и обратная связь Support and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь. Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Рекомендуем к прочтению

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*

code

Adblock
detector