Combobox vba excel как заполнить

Я новичок в VBA, и я борется с заполнением combobox. Я пытаюсь заполнить combobox с содержимым первого столбца в электронной таблице, чтобы я мог удалить связанную строку данных на основе выбора combobox.

Я рассмотрел несколько вопросов как здесь, так и в других местах, когда я задавал этот вопрос, но я не нашел ничего, что сработало.

Ниже приведен код, который я пробовал. Я немного потерян, так как я пытался собрать разные ответы от других вопросов, чтобы заставить это работать, но безрезультатно. Я ожидаю, что combobox заполняется значениями из столбца 1, но он остается пустым.

Попытка # 1 Это связано с созданием динамического диапазона:

Любая помощь по этому поводу будет действительно оценена!

EDIT: Я попытался вставить код, предложенный Гэри Студентом, в мой UserForm_Initialize() Sub, но когда я пытаюсь открыть форму пользователя, я получаю следующее сообщение об ошибке:

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

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

Установите значение combobox с VBA — CodeRoad

• щелчок мыши при нажатой клавише Shift позволяет выделить несколько подряд расположенных элементов;
• щелчок мыши при нажатой клавише Ctrl даёт возможность выделять группу несмежных элементов списка.

Добрый день! Большое спасибо Вам за ваш канал! Очень информативно и доступно ясно. У меня к вам вопрос по ComboBox. У вас в этом уроке показано работу выпадающего списка по двум столбцам Разделы и Группы. А как сделать на три столбца Разделы — Группы — Подгруппы(соответственно в форме будет три ComboBox) , чтобы работало по тому же принципу?

Возвращает порядковый номер выбранного значения из списка (если значение было введено пользователем в текстовом поле, то в этом случае ListIndex = -1)

3 ответа

Я новичок в VBA. Я уже несколько часов пытаюсь выполнить простую функцию заполнения combobox (элемент управления формой) с помощью кода VBA. Я просмотрел много сайтов(в том числе и этот), но ни один из кодов, похоже, не работает. Я использую этот код. (Я помещаю этот код в модуль) Sub.

Похоже, вы используете ActiveX ComboBox . Есть несколько способов добиться того, чего вы хотите.

Установите свойство LinkedCell ComboBox в нужное место (даже на скрытом листе).

• Вы можете прочитать значение combobox из этой ячейки, даже вручную введенный текст
  Worksheets(«Sheet1»).Shapes(«ComboBox1»).LinkedCell = «C1»
• Вы можете установить значение ячейки, и оно будет отражено в combobox
  boxValue = Range(«C1»)
  Range(«C1») = «custom entry»

Получите прямой доступ к объекту управления ActiveX.

• Я подчеркнул «object», потому что элемент управления является дочерним объектом объекта рабочего листа. Так что вы можете сделать это:
  msgbox Worksheets(«Sheet1»).ComboBox1.Value
  и это напрямую дает вам ценность. Не забудьте использовать имя элемента управления, заданное в свойстве Name элемента управления.
• Установка значения работает точно так же:
  Worksheets(«Sheet1»).ComboBox1.Value = strExample

В любом случае вы получите доступ к контрольным данным.

Большинству элементов управления диалогового окна можно назначить комбинацию клавиш. Таким образом, пользователь получит доступ к элементу управления, нажав и указанную клавишу. Применив свойство Accelerator в окне Properties, можно определить клавишу для активизации элемента управления.

Combo Box in Excel (Examples) | How to Create Combo Box in Excel?

Добрый день. Пробую осваивать VBA так как тоже нужна такая умная табличка для ИМ. Повторял действия за Вами и на 39 минуте, при проверке работы с tbx_group выдает ошибку, какую не могу понять.. все делал в точности как на видео, что не так? 5 раз пересматриваю, переписываю под диктовку и выдает ошибку.. вот ссылка на мою таблицу: drive.google.com/open?id=1lQOnp96DdZIqI3B8FcC9QM9TZKHhoBpx

Excel Combo Box

Для того чтобы отобразить пользовательское диалоговое окно с помощью VBA, необходимо создать процедуру, которая вызывает метод Show объекта UserForm. Форму UserForm невозможно отобразить, не выполнив как минимум одну строку кода VBA:

Урок 5. Заполнение списков ComboBox. Excel VBA. Система учета Интернет-магазина

Добрый день! Большое спасибо Вам за ваш канал! Очень информативно и доступно ясно. У меня к вам вопрос по ComboBox. У вас в этом уроке показано работу выпадающего списка по двум столбцам Разделы и Группы. А как сделать на три столбца Разделы — Группы — Подгруппы(соответственно в форме будет три ComboBox) , чтобы работало по тому же принципу?

Multi-column List

@Pavel Kogan данный код действительно прекрасно работает, но он не решает проблему взаимозависимости нескольких столбцов друг от друга. Или я не смог разобраться? Если есть такая возможность снимите урок про взаимозависимые выпадающие списки пользовательской формы с более чем двумя столбцами. Если возможно. Заранее спасибо!

Simple List

Добрый день, мне кажется, что Sub FillRazdel не выполняет функцию отбора уникальных значений, т.к. если через несколько строчек повторится значение, которое было добавлено в список ранее, то в комбобоксе будут несколько повторяющихся значений. Что думаете?