Combobox vba excel примеры

Класс 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 и работа с шаблонами

• Классы WMI, пространство имен и CIM

• Создание маркированного списка в Ворде

• Формат вывода данных в утилите WMIC

• Объект FileSystemObject метод CopyFolder и BuildPath — Как скопировать папку

Работа со списками в 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

Литература

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

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 нет) и т.п.

Combobox vba excel примеры

Элемент управления Combo Box объединяет особенности text box и list box. Этот элемент управления позволяет пользователю либо выбрать элемент, печатая текст в combo box, либо выбрать элемент из списка.

Рис. 7.6 Элемент управления combo box

Элементы управления combo box предоставляют пользователю список вариантов выбора. Если число элементов не умещается в окне combo box, на элементе управления автоматически появятся полосы прокрутки. Тогда пользователь сможет пролистать список вверх-вниз или слева направо.

Когда вместо list box используется combo box

Обычно combo box используется, когда есть список предложенных вариантов выбора, а list box — когда ввод ограничен тем, что находится в списке. Combo box содержит поле редактирования, и варианты выбора, отсутствующие в списке, могут быть напечатаны в этом поле.

Кроме того, combo box сохраняют место в форме. Поскольку полный список не отображается, пока пользователь не нажимает стрелку «вниз» (кроме Стиля 1, который всегда раскрыт), combo box может легко уместиться в маленьком пространстве, где список бы не поместился.

Особенности, связанные с данными

Visual Basic включает и стандартные, и связанные с данными версии элемента управления combo box. Обе версии позволяют отображать, редактировать и модифицировать информацию большинства стандартных типов баз данных, а связанный с данными combo box обеспечивает более продвинутые особенности доступа к данным. Связанный с данными элемент управления combo box поддерживает также иные свойства и методы, чем стандартный элемент управления.

Стили combo box

Есть три стиля поля со списком. Каждый стиль может быть установлен как во время разработки, так и во время выполнения, а для установки стиля combo box используются соответствующие значения или эквивалентные константы Visual Basic.

Раскрывающийся combo box

Простой combo box

Раскрывающийся list box

Рис. 7.7 Стили combo box

Раскрывающийся combo box

С настройкой по умолчанию (Стиль = 0) combo box — раскрывающийся combo box. Пользователь может или непосредственно вводить текст (как в text box), или нажать стрелку справа от combo box, чтобы открыть список выбора.Выбранный вариант вставляется в верхнюю текстовую часть combo box. Пользователь может также открыть список, нажимая ALT + СТРЕЛКУ «ВНИЗ», когда элемент управления имеет фокус.

Простой combo box

Установка свойства Style на 1 — определяет простой combo box, в котором список отображен всегда. Чтобы отобразить все входы в списке, вы должны протянуть достаточно большой список чтобы все входы отобразились. Когда входов больше, чем может отобразить список, автоматически вставляется вертикальная полоса прокрутки. Здесь также пользователь может как вводить текст непосредственно, так и выбирать из списка. Как и раскрывающийся combo box, простой combo box также позволяет пользователям выбирать варианты, которых нет в списке.

Раскрывающийся list box

Раскрывающийся list box (Стиль = 2) подобен обычному list box — он отображает список элементов из которых пользователь должен выбрать. Но в отличие от list box, список не отображается, пока вы не нажмете стрелку справа от поля. Ключевое различие между ним и раскрывающимся combo box в том, что пользователь не может печатать в поле, а может только выбрать элемент из списка. Используйте этот тип списка, когда пространства мало.

Добавление элементов

Чтобы добавить в combo box элементы, используйте метод AddItem, который имеет следующий синтаксис:

Имя list box или combo box.

Строковое выражение, которое надо добавить в список. Если элемент — литеральная константа, включите его в кавычки.

Определяет, где новый элемент должен быть вставлен в список. Индекс 0 представляет первую позицию. Если индекс опущен, элемент вставляется в конец (или в порядке надлежащей сортировки).

Если элементы списка обычно добавляются в процедуру события Form_Load, метод AddItem можно использовать в любое время. Это дает возможность динамически (в ответ на действия пользователя) добавлять элементы в список.

Следующий код размещает «Chardonnay», «Fumé Blanc», «Gewürztraminer» и «Zinfandel» в combo box с именем Combo1 с его свойством Style, установленным в 0 (vbComboDropDown):

Private Sub Form_Load ()
Combo1.AddItem «Chardonnay»
Combo1.AddItem «Fumé Blanc»
Combo1.AddItem «Gewürztraminer»
Combo1.AddItem «Zinfandel»
End Sub

Каждый раз, когда форма загружается во время выполнения и пользователь нажимает стрелку «вниз», появляется список, показанный на рис. 7.8.

Рис. 7.8 Combo box «Список вин»

Добавление элементов во время разработки

Вы можете также вводить в список элементы во время разработки, установив свойство List в окне свойств элемента управления combo box. Когда вы выбираете опцию свойства List и затем нажимаете стрелку «вниз», вы можете напечатать элементы списка, а затем нажать комбинацию клавиш CTRL+ENTER, чтобы запустить новую строку.

Добавлять элементы вы можете только в конец списка. А если затем вы хотите расположить список в алфавитном порядке, установите свойство Sorted в True.

Добавление элемента в указанную позицию

Чтобы добавить элемент в определенную позицию списка, определите значение индекса после нового элемента. Например, следующая строка программы вставляет «Pinot Noir» в первую позицию, смещая позиции других элементов вниз:

Combo1.AddItem «Pinot Noir» , 0

Обратите внимание, что первый элемент в списке определяется как 0, а не как 1 (см. рис. 7.9).

Рис. 7.9 Добавление элемента в список

Сортировка списка

Вы можете определить, чтобы элементы были добавлены в список в алфавитном порядке, установив свойство Sorted в True и опуская индекс. Сортировка не учитывает регистр; так что слова «chardonnay» и «Chardonnay» обрабатываются одинаково.

Когда свойство Sorted установлено в True, использование метода AddItem с аргументом index может привести к непредсказуемым, несортируемым результатам.

Удаление элементов

Для удаления элементов из поля со списком вы можете использовать метод RemoveItem. Он имеет один аргумент — index, который определяет элемент для удаления:

Поле и аргументы index такие же, как и для AddItem.

Например, чтобы удалить первый вход в списке, вы добавляете бы следующую строку программы:

Чтобы удалять все входы списка в поле со списком, используйте метод Clear:

Получение содержания списка через свойство Text

Обычно самый простой способ получить значение выбранного в настоящее время элемента — использование свойства Text. Свойство Text соответствует тому, что введено в часть текстового поля элемента управления во время выполнения. Это может быть выбранный элемент списка или строка, которую пользователь вводит в текстовое поле.

Например, следующий код отобразит информацию о Chardonnay, если пользователь выберет «Chardonnay» из списка:

Private Sub Combo1_Click ()
If Combo1.Text = «Chardonnay» Then
Text1.Text = «Chardonnay — полусухое белое вино.»
End If
End Sub

Свойство Text содержит выбранный в настоящее время элемент в списке Combo1. Код проверяет, был ли выбран «Chardonnay» и если да, то отображает информацию в текстовом поле.

Доступ к элементам списка через свойство List

Свойство List обеспечивает доступ ко всем элементам списка. Это свойство содержит массив, в котором каждый элемент списка является также элементом массива. Каждый элемент представлен в форме строки. Чтобы обратиться к элементу списка, используйте следующий синтаксис:

Аргумент box — ссылка на поле со списком, а index — позиция элемента. Верхний элемент имеет index 0, следующий — 1 и так далее. Например, следующая инструкция отображает третий элемент списка в текстовом поле (index = 2):

Определение позиции через свойство ListIndex

Если вы хотите знать позицию выбранного элемента списка в combo box, используйте свойство ListIndex. Это свойство устанавливает или возвращает индекс элемента списка, выбранного в настоящее время в элементе управления, и доступна только во время выполнения. Установка свойства ListIndex для combo box также генерирует событие Click для элемента управления.

Если выбран первый (верхний) элемент, значение этого свойства — 0, если выбран следующий (второй) элемент — 1 и так далее. Если никакой элемент не выбран или если пользователь вводит в combo box (Стиль 0 или 1) свой вариант выбора вместо выбора существующего элемента списка, ListIndex = 1.

Примечание Свойство NewIndex позволяет следить за индексом последнего элемента, добавленного в список. Это может быть полезно при вставке элемента в сортируемый список.

Возвращение числа элементов через свойство ListCount

Чтобы возвратить число элементов в combo box, используйте свойство ListCount. Например, следующая инструкция использует свойство ListCount, чтобы определить число входов в combo box

Text1.Text = «У вас» & Combo1.ListCount & «входов»

Как быстро заполнить/очистить элементы на форме(TextBox-ы, ComboBox-ы)

Очень часто при работе с формами(UserForm) приходится заполнять значениями КомбоБоксы(ComboBox) и ТекстБоксы(TextBox). Иногда однотипными данными. Или очистить их все после выполнения какого-либо действия. А может проверить, все ли элементы заполнены, прежде чем продолжать действие. Если КомбоБоксов/ТекстБоксов пару штучек — не проблема

и всех делов. А если их порядка двадцати? Или больше? Мало того, что писать это все долго, так еще и код растягивается, как портянка. Но это можно сделать гораздо проще и удобнее. Воспользоваться можно несколькими способами. Этот способ наиболее популярен, если необходимо произвести однотипные действия со всеми ТекстБоксами на форме:

Sub All_TextBoxes() Dim oControl As Control For Each oControl In UserForm1.Controls If TypeOf oControl Is MSForms.TextBox Then oControl.Value = «» Next oControl End Sub

В примере элементы формы очищаются, но в код можно подставить любое действие — добавление нового элемента списка(для ComboBox), поменять представление данных в TextBox, проверить наличие данных в проверяемом элементе и т.д. Тут уж зависит от поставленной задачи. Конечно, подобным способом можно проделать разные действия и с остальными элементами формы. Только надо будет заменить тип для проверки элементов:

ComboBox — MSForms.ComboBox CheckBox — MSForms.CheckBox CommandButton — MSForms.CommandButton Frame — MSForms.Frame Image — MSForms.Image Label — MSForms.Label ListBox — MSForms.ListBox MultiPage — MSForms.MultiPage SpinButton — MSForms.SpinButton TabStrip — MSForms.TabStrip ToggleButton — MSForms.ToggleButton

Это не единственный способ проделывания однотипных действий с элементами формы. Код ниже использует имена элементов для обращения к ним:

Sub All_TextBoxes() Dim li As Long For li = 1 To 10 UserForm1.Controls(«TextBox» & li).Value = li Next li End Sub

Недостаток данного метода: имена элементов должны строго соответствовать используемым в коде и лишь нумерация на конце имени должна различаться. За нумерацию отвечает переменная li и, конечно, цикл, в котором задается начальное и конечные значения. В примере ТекстБоксам с именами от «TextBox1» до «TextBox10» будут подставлены значения номеров самих ТекстБоксов. Но такой недостаток может быть очень полезным. Например, если необходимо проделать действия не над всеми ТекстБоксами, а лишь над некоторыми из них. Тогда все, что необходимо дать ТекстБоксам определенные имена с нумерацией(«ToDB1″,»ToDB2» и т.д.) и в зависимости от имени можно проделывать различные действия: стирать значения, менять свойства элементов и т.д.
И есть еще один плюс такого подхода: когда необходимо заполнить значения ТекстБоксов значениями ячеек. Скажем надо заполнить 10 ТекстБоксов(с именами TextBox1 , TextBox2 , TextBox3 и т.д.) из ячеек диапазона A2:A11 листа с именем «Лист2″(т.е. из 10 ячеек, начиная с ячейки A2). Код будет выглядеть так:

Sub Fill_TextBoxes_FromCells() Dim li As Long For li = 1 To 10 UserForm1.Controls(«TextBox» & li).Value = Sheets(«Лист2»).Range(«A» & li).Value ‘или применить Cells вместо Range ‘UserForm1.Controls(«TextBox» & li).Value = Sheets(«Лист2»).Cells(li, 1).Value Next li End Sub

Подробнее про обращение к диапазонам из VBA можно узнать из этой статьи: Как обратиться к диапазону из VBA

Tips_Macro_WorkWithGroupControls.xls (51,5 KiB, 3 460 скачиваний)

Статья помогла? Поделись ссылкой с друзьями!

Поиск по меткам

Вы правильно идете. Просес овладения VBA (как и любой) содержит две параллельные дороги — теория и задачи. По теории горы книг и все переписывают азы друг у друга, да ктому же читаешь на 30 странице и не помнишь что на 1 -ой. Решение отдельной задачи с подробными коментариями, это вторая, очень нужная Дорога. Спосибо.

А как сделать тоже самое, имею ввиду очистку, только на листе.Сейчас пользуюсь
таким кодом.
Private Sub test()
TextBox1 = «»
TextBox2 = «»
TextBox3 = «»
TextBox4 = «»
TextBox5 = «»
End Sub

Спасибо пришлось самой найти
For iCount = 1 To 10
OLEObjects(«TextBox» & iCount).Object.Value = «»
Но я вам благодарна, что ваши идеи заставляют извилины работать.

При использовании combobox (в макросе Exel) часто возникают новые значения,которые должны быть занесены в ниспадающий список. Мохно ли автоматизировать занесение этих значений в список после набора их в окне combobox.

Яков, я бы рекомендовал на форум обратиться. Ваш вопрос к статье никакого отношения не имеет.

Добрый день у меня на форме 10 комбобоксов я использую такой код т.е. пишу для каждого соmbobox отдельно

With Sheets(«справка»)
LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
Me.ComboBox1.List = .Range(«b2:b» & LastRow).Value
Me.ComboBox2.List = .Range(«b2:b» & LastRow).Value
Me.ComboBox3.List = .Range(«b2:b» & LastRow).Value

Как можно сократить код.Спасибо.

Юрий, а статью-то прочитать не судьба? Там есть Ваш случай, только в качестве примера TextBox.

Разобрался .Все работает. Главное внимательно прочесть
Спасибо за сайт.

Ваш сайт для меня — просто находка! Какой вопрос ни возникает, здесь есть практически все ответы. Спасибо! И за эту статью отдельное спасибо!

На форме используются текстбоксы:
txtb_НачальнаяДата,txtb_КонечнаяДата,txtb_Cтоимость и т.д. до 10 штук. Начальные буквы txtb, а далее меняются окончания. Как очистить текстбоксы.
Вариант :txtb_НачальнаяДата.Value=»» -это понятно ,а через цикл можно?

Юрий, применить смекалку и доступные инструкции проверки:

Sub All_TextBoxes() Dim oControl As Control For Each oControl In UserForm1.Controls If TypeOf oControl Is MSForms.TextBox Then If left(Control.Name,4) = «txtb» Then oControl.Value = «» End If End If Next oControl End Sub

Подскажите пожалуйста, как мне заполнить Textbox, которые имеют разные названия (по типу «a», «h». ) из ячеек с7:с12.
Сейчас я использую такой код, но он очень уж не оптимальный исходя из того что мне надо заполнять 10 заданий, 10 вариантов, в каждом по 7 textbox (700 строчек).
.
If Co = «Вариант1» Then
h = Range(«c7»)
d = Range(«c8»)
q = Range(«c9»)
h1 = Range(«c10»)
d1 = Range(«c11»)
q1 = Range(«c12»)
ElseIf Co = «Вариант2» Then
h = Range(«d7»)
d = Range(«d8»)
q = Range(«d9»)
h1 = Range(«d10»)
d1 = Range(«d11»)
q1 = Range(«d12»)
ElseIf Co = «Вариант3» Then
h = Range(«e7»)
d = Range(«e8»)
q = Range(«e9»)
h1 = Range(«e10»)
d1 = Range(«e11»)
q1 = Range(«e12»)
.
заранее спасибо.

Поделитесь своим мнением

Комментарии, не имеющие отношения к комментируемой статье, могут быть удалены без уведомления и объяснения причин. Если есть вопрос по личной проблеме — добро пожаловать на Форум