Remkomplekty.ru

IT Новости из мира ПК
0 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Vba excel combobox

Класс ComboBox — комбинированный список в VBA

Элемент управления ComboBox VBA языка позволяет формировать комбинированный список. Он предоставляет возможность, как выбирать готовые значения, так и вводить собственные данные. Вообще, стоит сказать, что робота со списками требует отдельной темы по определению, так как наиболее ярким примером создания сложных и комбинированных списков является — формирование базы данных.

Однако и тут есть один момент – большая часть возможностей языка VBA отходит на задний план. Даже продукт Microsoft Access (работа с базами данных), который в былые времена я скрупулезно изучал на уроках информатики, мне на практике ни разу не пригодился.

Поэтому, и в этой статье я не буду вникать во все премудрости компонента ComboBox.

Базовые свойства элемента управления ComboBox VBA языка:

  • ColumnCount – позволяет задать количество столбиков в списке
  • ColumnWidth – ширина столбиков
  • ColumnHeads – определяет, отображать (значение true) или не отображать (значение false) заголовки столбиков.
  • RowSource – позволяет задать диапазон для элементов списка
  • Value и Text – собственно, текущее значение, что хранится в списке.

Как и для компонента TextBox, для ComboBox главным событием является Change. Событие Change возникает при вводе данных в список.

Ладно, пора приступать к практике. Сначала мы напишем пример использования объекта языка VBA ComboBox в Excel, а потом в Word.

VBA ComboBox Excel

И так, добавьте в окно Проекта новый модуль и новую форму. Модуль назовите ComboBox, а форму – CB_Form, за имена отвечает свойство Name. В редакторе кода для модуля пропишите следующую процедуру:

Процедура сделает форму видимой.

Теперь нужно приступить к созданию и настройке формы. Как она выглядит, вы можете просмотреть на картинке, но… для “слепого” браузера я ее опишу.

Параметры формы (UserForm): название (Caption) — работа с ComboBox в VBA, ширина – 340, высота – 190.

Параметры надписи (Label): Имя (Name) L_CB, свойство Caption оставляете пустым, ширина 324, высота 30, отступ слева и сверху равен 6.

Далее нам следует добавить четыре элемента управления vba ComboBox excel, разместите их так: по два в одну строку, имена для каждого компонента задайте такие: CB_A, CB_B, CB_C и CB_D. Я выбрал такие имена потому, что в каждом списке будет отображаться содержимое текущего листа Excel для колонок A, B, C и D.

Это важно. Позаботьтесь, что бы содержимое колонок A-B не было пустым и что бы количество в них элементов не было слишком огромным, достаточно 100 записей максимум. В противном случае у вас возникнут ошибки.

Для наглядности над каждым объектом ComBox vba можете поставить надписи вида: Ячейка А, Ячейка В и так далее.

В самом низу, разместите, кнопку с именем CommandButton1 и напишите на ней “Объединить”.

Ладно, теперь в редакторе кода для форму пропишите следующие процедуры:

Процедура CommandButton1_Click – тут происходит обработка клика по кнопке. После клика, произойдет считывание выбранных данных для каждого объекта ComboBox vba excel, далее, все четыре значения объединяются и записываются в содержимое свойства Caption объекта Надпись.

Процедура UserForm_Initialize – тут происходит заполнение списков содержимым колонок сразу после инициализации формы. Происходит выбор заданной колонки листа Excel, потом циклично идет перебор всех ее значений и их добавление (метод AddItem) в выбранный список.

VBA ComboBox Word

Тут мы создадим список, состоящий из трех колонок, как он выглядит, можно посмотреть на рисунке. Не буду вникать во все премудрости, а сразу покажу код:

Как видим, при инициализации мы сначала заполняем свойства объекта ComboBox1 в блоке with … wend: три колонки, равной длины, заголовки отсутствуют. Далее происходит ручное заполнение списка. Как видим, элемент первой колонки добавляется с помощью метода AddItem, остальные колонки заполняются как массивы с помощью метода List.

Спасибо за внимание. Автор блога Владимир Баталий

Советую ещё почитать:

  • Основные элементы текстового редактора Word 2007
  • Урок 12 по JScript — конструкция try catch
  • Утилита WMI CIM Studio — часть 2
  • Коллекция Word ListLevels и объект ListLevel — работа со списками в Word
  • Коллекция Word Characters — количество символов

Работа со списками в Visual Basic

Приведённые практические работы по программированию могут быть использованы при изучении элементов выбора Visual Basic. Списки целесообразно изучать после знакомства с переключателями (OptionButton) и флажками (CheckBox).

При объяснении нового материала удобно использовать распечатки с изложением теоретического материала и примерами программ, которые выдаются каждому студенту (ученику), либо методические пособия (мы используем авторское пособие “Практикум по решению задач в среде Visual Basic”, часть 1, 2).

Приведённые практические работы рассчитаны на 3 занятия по 2 часа. Задания самостоятельной работы можно использовать в качестве домашних заданий.

В Visual Basic существует 2 вида списков:

  • комбинированный список ComboBox;
  • список ListBox.

1. Комбинированный список ComboBox

Комбинированный список представляет комбинацию раскрывающегося списка и текстового поля. Пользователь имеет возможность выбрать определенное значение какого-либо параметра в раскрывающемся списке или ввести необходимое значение в текстовое поле. Если элементы не помещаются в границах стандартного окна, то автоматически появляются полосы прокрутки, с помощью которых можно выбирать требуемый элемент в списке.

Свойство Style задаёт внешний вид комбинированного списка (по умолчанию оно равно 0 — элемент ComboBox отображается в виде текстового поля со стрелкой справа, позволяющей развернуть весь список и выбрать требуемое значение). Если Style = 1, то постоянно отображается весь список (или список с полосой прокрутки).

Основные свойства ComboBox

0 — Dropdown Combo (раскрывающийся комбинированный список);

1 — Simple Combo (простой комбинированный список);

2 — Dropdown List (раскрывающийся список).

Для добавления нового элемента в список используется метод AddItem.

Пример: Combo1.AddItem “Пение” — добавить в список Combo1 слово Пение.

Добавляемые в список элементы имеют тип String; [index] — порядковый номер в списке, под которым будет находиться новый элемент (необязательный параметр).

Добавить элементы в комбинированный список можно также на этапе разработки с помощью свойства List. Для добавления очередного элемента в список нужно ввести этот элемент в свойстве List и нажать комбинацию клавиш Ctrl + Enter.

2. Список ListBox

Данный элемент применяется в том случае, когда пользователю необходимо выбрать один элемент из имеющегося списка для выполнения определенных действий. Объекты ListBox используются обычно в сочетании с управляющими кнопками, которые позволяют обрабатывать элементы списка (добавлять, удалять и т. д.).

В отличие от ComboBox список ListBox можно создать многоколончатым и осуществлять выбор нескольких элементов одновременно.

Свойство MultiSelect позволяет задать режим множественного выбора элементов в списке. В режиме MultiSelect = 1 добавление элемента в выделенную группу или исключение из нее осуществляется с помощью щелчка мыши или нажатия пробела. Если MultiSelect = 2, то в этом случае выделение элементов выполняется по аналогии с программой Проводник:

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

Основные свойства элемента ListBox

0 — одноколончатый список с вертикальной прокруткой;

1 — одноколончатый список с горизонтальной прокруткой;

>1 — многоколончатый список с горизонтальной прокруткой

0 — None (обычный список);

1 -Simple (простой множественный выбор — щелчок мыши или нажатие Пробел выделяет очередной элемент или снимает выделение);

2 — Extended (расширенный множественный выбор) — выделение с использованием вспомогательных клавиш.

Методы ListBox аналогичны методам ComboBox.

Практическая работа 1. Проект “Результаты сессии”

Задание: создать проект, содержащий 3 списка: список студентов группы; список студентов, получивших зачёт и список неаттестованных. Двойным щелчком мыши в списке студентов (List1) выбирается фамилия и добавляется в список “Зачёт” (List2). Двойным щелчком в списке “Зачёт” фамилия возвращается назад. Кнопкой “Добавить в список” фамилия, введённая в текстовое поле Text1, заносится в список List1. Кнопка “н/а” заносит выбранную фамилию из списка студентов в список List3 ( н/а).

Private Sub Form_Load() ‘загрузка формы

List1.AddItem «Чесноков»: List1.AddItem «Симонов»

List1.AddItem «Трушков»: List1.AddItem «Морозова»

Private Sub List1_DblClick() ‘перенести из списка в зачёт

List1.RemoveItem List1.ListIndex ‘удалить из списка

Private Sub List2_DblClick() ‘перенести назад в Список из Зачёт

Private Sub List3_DblClick() ‘перенести назад в список из н/а

Private Sub Command1_Click() ‘добавить в список из текст. поля

Private Sub Command3_Click() ‘добавить в н/а

List1.RemoveItem List1.ListIndex ‘удалить из списка

Задания

  1. Добавьте в проект список оценок (2, 3, 4, 5) – List4.
  2. Измените проект таким образом, чтобы можно было добавлять в результаты фамилию и оценку ученика.
  3. Создайте кнопку “Очистить результаты”.

Примерный вид формы показан на рисунке.

Практическая работа 2. Проект “Переводчик”

Задание: создать проект для проверки знания иностранных слов (англо-русский и русско-английский переводчик).

Элементы интерфейса проекта:

  1. Комбинированные списки Combo1 и Combo2 – для хранения русских и английских слов. Индексы русских слов в списке должны соответствовать индексам соответствующих им английских слов.
  2. Текстовое поле Text1 — для вывода случайного слова из списка, которое необходимо перевести.
  3. Текстовое поле Text2 — для вывода комментария “Верно” или “Неверно”.
  4. Текстовые поля Text3, Text4 — для вывода количества вопросов и верных ответов.
  5. Таймер Timer1 – для временной задержки при выводе очередного вопроса.
  6. Image1 – для вывода рисунка, соответствующего слову.
  7. Элемент MMControl1 — для воспроизведения звука.

Элемент MMControl является дополнительным компонентом VB (Activ X). Для его установки необходимо:

  • Открыть в меню Проект – Компоненты вкладку Управление (Control);
  • Установить флажок MicrosoftMultimedia Control 6.0;
  • На панели элементов управления появится новый значок MMControl.

Рисунки к проекту сохраните в папке с проектом в порядке следования слов в списке Combo1:

Ris0.jpg – рисунок к первому слову списка;

Ris1.jpg – рисунок ко второму слову списка и т.д.

Для определения имени файла рисунка в проекте используем переменную Path:

Path = «Ris» & Mid(Str(n), 2, 1) & «.jpg»

Функция Mid используется для того, чтобы убрать пробел перед числом в имени файла, т.к. функция Str(n) для положительного числа формирует строку с пробелом перед числом. Таким образом, получаем неверное имя файла Ris 0.jpg, вместо Ris0.jpg.

Рассмотрим основные процедуры проекта.

1) В процедуре загрузки формы нужно заполнить списки русских и английских слов.

Dim n, k, z, p As Integer, Path As String

‘n – индекс слова в списке; k – количество верных ответов; z – кол. вопросов; p – признак направления перевода; Path – путь к файлу с рисунком на диске

Private Sub Form_Load()

Combo1.AddItem «собака»: Combo1.AddItem «дельфин»

Combo1.AddItem «осёл»: Combo1.AddItem «красный»

Combo1.AddItem «зеленый»: Combo2.AddItem «Dog»

Combo2.AddItem «Dolphin»: Combo2.AddItem «Donkey»

Combo2.AddItem «Red»: Combo2.AddItem «Green»

k = 0 ’количество верных ответов

z = 0 ‘количество вопросов

2) При выборе кнопки “Перевод рус/англ” должно появляться русское слово. Для данного слова нужно найти перевод в списке английских слов. Список русских слов при этом должен скрываться.

Private Sub Command5_Click() ‘Перевод рус/англ

p = 1 ‘признак перевода – рус/англ

Combo1.Visible = False ‘скрыть список русских слов

Combo2.Visible = True ‘показать список англ. слов

Label1.Caption = «Русское слово»

Timer1.Enabled = True ‘включить таймер

3) В процедуре таймера случайным образом определяем индекс слова в списке слов. Если p=1, то было выбрано направление перевода рус/англ., поэтому слово выбирается из списка русских слов Combo1.

Private Sub Timer1_Timer()

z = z + 1 ‘подсчёт кол. вопросов

n = Int(Rnd * 4) ‘случайный выбор индекса слова в списке слов

If p = 1 Then Text1.Text = Combo1.List(n)

4) Для выбора перевода заданного русского слова пользователь делает щелчок по списку английских слов. Если индекс исходного русского слова n совпадает с индексом слова-перевода, выбранного пользователем, то ответ верный.

Private Sub Combo2_Click() ‘список англ. слов

If n = Combo2.ListIndex Then ‘если ответ верный

Image1.Visible = True ‘показать рисунок

MMControl1.FileName = «da.wav» ‘загрузить звуковой файл

Path = «Ris» & Mid(Str(n), 2, 1) & «.jpg»

Image1.Picture = LoadPicture(Path) ‘загрузить файл с соответствующим рисунком

Else ‘если ответ неверный

MMControl1.Command = «sound» ‘воспроизвести звук. файл

Задания:

  1. Создайте процедуру кнопки “Перевод англ/рус”.
  2. Добавьте кнопку Сброс.
  3. Подберите 2 звуковых файла для подтверждения верного и неверного ответа, подключите эти файлы к проекту.
  4. Создайте заставку к проекту.

Самостоятельная работа

  1. Создать проект “Выбор шрифта”, позволяющий выбрать с помощью списков тип шрифта, размер, начертание (свойства): жирный, подчёркнутый, курсив. Выбранные параметры должны применяться к метке Образец.

Свойства шрифта в метке задаются следующими командами:

Label1.Font.Italic = True – установить курсив

Label1.Font.Bold = False – отменить жирный шрифт

Label1.Font.Underline = True – установить подчёркнутый шрифт

Label1.Font = Combo1.Text – применить к метке тип шрифта, выбранный в комбинированном списке 1

Label1.Font.Size = Combo1.Text — применить к метке размер шрифта, выбранный в комбинированном списке 1

  • Создать проект “Заказы CD/DVD дисков по каталогам”. На форме разместить 2 комбинированных списка: “Игры” и “Обучающие программы”; список “Заказано”. Кнопки “Добавить в заказ” добавляют выбранный элемент в список “Заказано”. Кнопка “Удалить из заказа” удаляет выбранный элемент из заказа. Предусмотреть подсчёт количества заказов в списке.
  • Создать проект “Результаты кросса” с использованием 3-х списков. Двойным щелчком мыши в списке студентов (List1) выбирается фамилия и добавляется в список “Зачёт” (List2). Двойным щелчком в списке “Зачёт” фамилия возвращается назад. Кнопкой “Добавить в список” фамилия, введённая в текстовое поле Text1, заносится в список List1. Кнопка “н/а” заносит выбранную фамилию из списка в список List3 (н/а).
  • Литература

    1. Глушаков С.В. , Мельников В.В., Сурядный А.С. Программирование в среде Windows. Visual Basic 6.0. М.: ООО “Издательство АСТ”, 2001
    2. Браун С. Visual Basic. Учебный курс. – Спб.: Питер, 2002

    VBA ComboBox

    Excel VBA ComboBox

    ComboBox is the user form feature in VBA, they are different from the text boxes as text boxes are used to contain only text and we allow user to input any type of data, but by using combo boxes we limit user for the responses type we desire thus the data is in orderly fashion, it is similar to the list data validation in excel.

    ComboBox can be compared to a drop down list in excel, in worksheets we used data validation to provide a drop down but in VBA there is a userform feature where it is used to provide a drop down in any userform, but if we want to use a combo box in excel we can also access it from the developer section from there we can create combo boxes for individual or multiple cells.

    Combo Box is very similar to the drop-down list we have in an excel worksheet, with the combo box we can store pre-determined values, so that users make the selection from the list available from the combo box. Combo Box is generally used along with user forms as part of getting the input from the users.

    User forms are useful but having other tools on the user form is what makes the user form so special. One of the tool that we often use as a tool for user form is “ComboBox”.

    Top 2 Ways of Creating a VBA ComboBox

    #1 – Using Direct Coding

    First, we will see how to use Combo Box with the worksheet. Open any of the worksheets in the excel workbook, go to the Developer tab and under this tab we have a tool called “Insert”. Click on this and under this we have two options “Form Controls” & “Active X Controls”.

    From “Active X Controls” choose “Combo Box”.

    Now you can draw this object on any of the worksheets.

    Right-click on the combo box and choose the “Properties” option.

    When you choose properties it will open up huge list of properties of a combo box.

    For this combo box, we are going to give a list of department names so change the name property of the combo box to “DeptComboBox”.

    Now this combo box will be referred by the name “DeptComboBox”. We need to give pre-determined department names, so here I have a list of department names.

    Now we need to add these values to the combo box list, we can do this in two ways, through coding or through name manager.

    Double click on the Combobox and it will take you to the VBA macro procedure.

    But we need to see these department names when the workbook opens up, so double click on “ThisWorkbook”.

    From the drop-down list choose “Workbook”.

    From options choose “Open”.

    Now it will create a blank like the below one.

    Inside this macro enter the below code.

    Code:

    Ok, now save and close the workbook, when you reopen the workbook we could see the department names in it.

    #2 – Using UserForm

    Another way of adding values to the ComboBox is by using user form. First, give a name to cells as “Department”.

    Go to Visual Basic Editor and insert User Form from the INSERT option.

    Now the new user form is created.

    Next to the user form, we can see “Toolbox” from this toolbox we can insert “Combo Box”.

    Now the combo box is embedded to user form, in this method to open the properties option select the combo box and press the F4 key to open the properties window.

    Scroll down the properties tab and choose “Row Source”.

    For this “Row Source” enter the name that we had given to department name cells.

    Now this combo box holds the reference of the name “Department”.

    Now run the user form by using the run button.

    Now we can see a list of department names in the combo box on the user form.

    Practically user form associated with a combo box, text box, and many other tools. We will create a simple data entry user form with a text box & combo box.

    Create a user form like the below.

    Create two Command Buttons.

    Double click on the “SUBMIT” button it will open up below macro.

    Inside this macro add below code.

    Code:

    Now double click on the “CANCEL” button and add the below code.

    Now in the worksheet create a template like the below.

    Now run the user form and it will open up like this.

    Enter the employee name and pick the department name from the combo list.

    Click on the SUBMIT button and see the magic.

    We got the values entered in the table format we have created.

    Things to Remember

    • COMBO BOX has its own properties as well.
    • Adding values to list comes in two ways one is a coding way and another one is range name reference.
    • COMBO BOX is usually part of the user form.

    Recommended Articles

    This has been a guide to VBA ComboBox. Here we discuss how to insert and use a Combobox using VBA coding in excel along with the downloadable template. Below you can find some useful excel VBA articles –

    5.3.4 Элемент управления ComboBox (комбинированный список)

    Элемент управления ComboBox, метод AddItem(), свойство Value

    Комбинированный список также используется очень часто. Этот элемент управления позволяет пользователю как выбирать «готовые» значения из списка, так и вводить значения самостоятельно (хотя это можно запретить). Пример элемента управления ComboBox представлен на рис. 5.4.

    Рис. 5.4 Комбинированный список (элемент управления ComboBox)

    Обычно ComboBox используется в двух ситуациях:

    • когда пользователю необходимо выбрать одно или несколько значений из списка размером от 4-х до нескольких десятков позиций. Если позиций меньше, то проще использовать переключатели, если больше — то ориентироваться в списке становится неудобно и необходимо использовать специальные приемы, когда пользователь вводит первые буквы нужного слова и в списке остаются только значения, которые начинаются на эти буквы;
    • когда список позиций для выбора необходимо формировать динамически на основании данных из источника (базы данных, листа Excel и т.п.)

    К сожалению, через окно свойств заполнить список позициями не получится — для этой цели придется использовать специальный метод AddItem(). Обычно он помещается в обработчик события Initialize для формы. Применение его может выглядеть так:

    Private Sub UserForm_Initialize()

    ComboBox1.AddItem «Ленинградская область»

    ComboBox1.AddItem «Московская область»

    Параметр varIndex (необязательный) может использоваться для определения положения элемента в списке, но он не может превышать значения ListCount и поэтому для начальной загрузки ComboBox не подходит.

    Самые важные свойства комбинированного списка:

    • ColumnCount, ColumnWidth, BoundColumn, ColumnHeads, RowSource — свойства, которые применяются при работе со списками из нескольких столбцов. Пользователями нелюбимы и к использованию не рекомендуются (гораздо проще сделать несколько комбинированных списков);
    • MatchEntry — будут ли при вводе пользователем первых символов значения выбраться подходящие позиции из списка. возможность очень удобная, рекомендуется сохранить значение, которое используется по умолчанию.
    • MatchRequired — разрешается ли пользователю вводить то значение, которого нет в списке. По умолчанию False, то есть разрешено.
    • Value (или Text) — позволяет программным способом установить выбранное значение в списке или вернуть выбранное/введенное пользователем значение.

    Остальные свойства (AutoSize, Enabled, Locked, ControlText, ControlTipText, MaxLength) — применяются точно так же, как и для TextBox.

    Главное событие для комбинированного списка — Change, то же, что и для TextBox. Обычно в обработчике этого события проверяются введенные пользователем значения, эти значения переносятся в текстовое поле или ListBox (если нужно дать пользователю возможность выбрать несколько значений, поскольку свойства MultiSelect у ComboBox нет) и т.п.

    How to Populate ComboBox on VBA Userforms

    The VBA Tutorials Blog

    The ComboBox is a Control for VBA userforms that allows the user to choose from a list of options. It is also known as a drop-down menu, but to serve its purpose as a dropdown menu, you’ll first need to populate the combobox for the user so they can actually make a choice. There are two ways to populate a ComboBox with VBA:

    1. With the .AddItem method
    2. With the .List property

    The rest of this tutorial will teach you how to add entries to, or populate, your own VBA userform comboboxes, and we’ll have a little fun teaching it!

    Create the UserForm

    Before we write any code to populate our combobox, we need to create the box itself and the userform on which it lives.

    I’m sure you already have your own design, but in this tutorial, our userform will carry the name Combobox_Userform , our command button will be CmdButton_For_CB , and the combobox itself will be ComboBox_Demo1 .

    Here is what the layout looks like:


    Userform with three elements: a combobox, a label, and a button

    As you can see, we put default text “Click Here” into the combobox. This is not one of the dropdown options; it’s simply a filler before the user clicks the menu. You can edit it directly by clicking into the combobox in the preview window, just like for the Label and CommandButton controls, but what you really want to do is populate your combobox using VBA code, like we’ll demonstrate in the next section.

    Populate the VBA Combobox

    In this section, we will show you how to populate a combobox in the UserForm_Initialize VBA Event by either adding items sequentially or reading the values directly from an array.

    Accessing the Initialization Event

    VBA hands control off to the UserForm_Initialize Event only after the userform has been called. If you want a more in-depth discussion about the logic of showing a userform, check out our Userform Show article. In short, here’s the code for showing our particular userform:

    Make sure you place this in a regular Module, not the userform’s dedicated private code.

    Populate ComboBox with .List

    Now we’re going to begin actually populating the values in our ComboBox. One way to add multiple values to your ComboBox is to use the ComboBox List property, or .List .

    To use the ComboBox .List property, you simply need to put your dropdown menu options into an array and separate each dropdown item by a comma. You can use the Array function to create the array needed for the .List property. Don’t forget each option needs quotes since your entries are strings!

    Here’s a sample code that goes into the userform’s private code, not a regular module, and adds two items to your dropdown list once the userform is initialized:

    Make powerful macros with our free VBA Developer Kit

    Tutorials like this can be complicated. That’s why we created our free VBA Developer Kit to supplement this tutorial. Grab it below and you’ll be writing macros so much faster than you are right now.

    When you run this code, you’ll get this beauty:


    The userform with populated combobox open

    Notice the userform’s caption is “UserForm3”, but the userform name is ComboBox_Userform . I’m pointing this out because the same distinction applies to your combobox. Don’t get the (Name) and Caption or Text values mixed up! You will get a runtime error if you try to use the caption as the object name. You can change the object name and caption in the Properties window (F4), typically on the bottom left of the VBE.


    The Properties Window for Combobox_Userform with the Caption and Name Circled

    Populate ComboBox with a Range

    You can also use the .List property to populate a userform combobox with a range of cells in your spreadsheet. Take this macro, for example:

    This macro will quickly add all the values in range A1:A10 to your ComboBox. It’s incredibly fast and very helpful if your userform is designed to accept data from your spreadsheet.

    Populating Multi-Column ComboBox

    Speaking of columns of data, the .List property also has an optional second argument, pvargColumn, to let you populate specific columns of a multicolumn ComboBox.

    If you want to use the optional arguments in the .List property to create multi-columned comboboxes, there are some extra steps to take.

    First you need to change the number of columns in your combobox, much like you would in my tutorial on aligning columns differently in a UserForm ListBox. You can do this under the Properties window mentioned earlier, or you can do it at runtime by using the .ColumnCount property of the combobox object, like this:

    Then, you can create a dummy array that matches the dimensions you want for the list of options. Remember the .List array is zero-based. Let’s say you want a 3-row, 2-column list with any kind of data, like numbers or dates, so you dimensionalize an array, like this:

    From here, you have two choices. You can either (1) populate your array and then populate your ComboBox with your full array, or (2) populate your ComboBox with an empty array and then fill each array element individually.

    Either way, we’ll use the .List property, just like before, to add items to your ComboBox. The second option accesses each “cell” in the list to fill out the final dropdown menu.

    Option 1: Pass Full Array to ComboBox
    Option 2: Pass Empty Array to ComboBox

    Whichever option you choose, you’ll be left with a nice two-column, three-row VBA ComboBox that’s fully populated, like this one:


    A Populated Multi-Column ComboBox

    Populate ComboBox with .AddItem

    If instead you want to add items with methods (as opposed to properties), you can use the ComboBox .AddItem method during initialization. Each time you call the AddItems method, a new item will appear in your ComboBox.

    More interestingly, you can use .AddItems to add items dynamically after the userform has already been created.

    In code, populating your UserForm ComboBox dynamically would look something like this:

    We used the Event UserForm_Click , so when the user clicks on the userform area, an item is added to the bottom of our dropdown list. The initial userform has the default values we added with the .List property, but now we let the user add items by clicking on the userform, as well.


    The dropdown menu after clicking on the userform several times

    I know this is a silly example, but it demonstrates how you can dynamically alter your combobox when certain conditions are met; in this case, when the user clicks the form.

    You could also populate the list with .AddItem in the initialization stage if you wanted, like this:

    The VBA ComboBox AddItem method is the most popular way to add items to a userform, although I’ve found both options to be equally flexible.

    Imagine you had a lot of rows in a text file or something that you wanted to add to your combobox. You could nest the .AddItem method inside a For Loop to programatically add each item. Placing the AddItem ComboBox method inside a loop is a common practice for populating a UserForm ComboBoxes.

    Add Item to Different Positions in ComboBox

    The AddItem method of userform comboboxes also accepts an optional second argument: pvargIndex. When included, the pvargIndex tells your combobox where you want to add your new entry.

    The items in your combobox range from 0 (at the top) to .ListCount (at the bottom). For example, if you fed the argument a 0, it would add a new entry to the top of your userform. Omitting the argument is the same as passing the AddItem method an argument of ComboBox_Demo1 .ListCount .

    Let’s look at a couple examples. In the following code, the “You Clicked Me!” item is added in the first position instead of the default last position.

    to place the code at the top of your ComboBox (Position 0).

    Let’s take a look at one more example.

    In this example, we dynamically populated our combobox by adding an item to the top, bottom and at the 3rd entry in the dropdown menu by specifying a pvargIndex position. Notice how a pvargIndex of 2 added an item to the 3rd slot. Remember, ComboBox indexing begins at position 0!.


    pvargIndex to add items to ComboBox

    Conclusion

    Creative developers can use both .List and .AddItem to make interactive userform dropdown lists. By using ComboBoxes (or dropdowns), developers are able to guide user interactions with the program while still allowing a degree of freedom to the end users.

    We hope you enjoyed this tutorial. To take your VBA skills to the next level, check out more of our free VBA tutorials. Test your skills by trying to link concepts. For example, can you combine [VBA GetOpenFilename] feature with a ComboBox for an interactive dropdown. When you’re ready to take your VBA to the next level, subscribe using the form below.

    Oh, and if you have a question, post it in our VBA Q&A community.

    The best free VBA training on the web
    I see people struggling with Excel every day and I want to help. That’s why I’m giving away my 90-days to Master VBA eCourse and my entire personal macro library for free.

    Over 2 million people use our VBA tutorials each year to help automate their work. Are you ready to reclaim your time, too? Grab our VBA Cheat Sheets and you’ll be writing macros like a professional. With over 180 tips and 135 macro examples, they include everything you need to know to become a great VBA programmer.

    This article was written by Cory Sarver, a contributing writer for The VBA Tutorials Blog.

    Читать еще:  Как изменить область диаграммы в excel
    Ссылка на основную публикацию
    Adblock
    detector