Vba excel события для combobox

Элемент управления пользовательской формы ComboBox для выбора и ввода информации в VBA Excel. Свойства поля с раскрывающимся списком, заполнение, извлечение данных, примеры кода.

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

ComboBox представляет из себя комбинацию двух элементов управления: текстового поля (TextBox) и списка (ListBox), поэтому его еще называют «комбинированным списком» или «полем со списком». Также ComboBox сочетает в себе свойства этих двух элементов управления.

Изначально комбинированный список прорисовывается на форме в виде текстового поля с кнопкой для отображения раскрывающегося списка. Далее по тексту будем использовать слово «поле» в значении текстового поля в составе элемента управления ComboBox, а словосочетание «раскрывающийся список» – в значении списка в составе элемента управления ComboBox.

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

Элемент управления ComboBox незаменим при больших списках. При списках из нескольких позиций его можно заменить на ListBox, который отображает позиции для выбора сразу после загрузки формы, не требуя дополнительных действий от пользователя.

Свойства поля со списком

Свойство	Описание
AutoSize	Автоподбор размера комбинированного поля. True – размер автоматически подстраивается под длину выбранной или введенной строки. False – размер элемента управления определяется свойствами Width и Height.
AutoTab	Включение автоматической табуляции – передачи фокуса следующему элементу управления при достижении максимального числа символов при значениях свойства MaxLenght > 0. True – автоматическая табуляция включена, False – выключена.
ColumnCount	Указывает количество столбцов в раскрывающемся списке. Значение по умолчанию = 1.
ColumnHeads	Добавляет строку заголовков в раскрывающийся список. True – заголовки столбцов включены, False – заголовки столбцов выключены. Значение по умолчанию = False.
ColumnWidths	Ширина столбцов в раскрывающемся списке. Значения для нескольких столбцов указываются в одну строку через точку с запятой (;).
ControlSource	Ссылка на ячейку для ее привязки к элементу управления ComboBox.
ControlTipText	Текст всплывающей подсказки при наведении курсора на элемент управления.
Enabled	Доступ пользователя к полю и раскрывающемуся списку. True – доступ разрешен, False – доступ запрещен*. Значение по умолчанию = True.
Font	Шрифт, начертание и размер текста в поле.
Height	Высота элемента управления ComboBox.
Left	Расстояние от левого края внутренней границы пользовательской формы до левого края комбинированного списка.
List	Позволяет заполнить ComboBox данными из одномерного или двухмерного массива, а также обращаться к отдельным элементам раскрывающегося списка по индексам для записи и чтения.
ListIndex	Номер выбранной пользователем строки в раскрывающемся списке. Нумерация начинается с нуля. Если ничего не выбрано, ListIndex = -1.
ListRows	Количество видимых строк в раскрытом списке. Если общее количество строк больше ListRows, появляется полоса прокрутки. Значение по умолчанию = 8.
Locked	Запрет на отображение раскрывающегося списка, ввод и редактирование данных в поле. True – ввод и редактирование запрещены**, False – ввод и редактирование разрешены. Значение по умолчанию = False.
MatchRequired	Задает проверку вводимых в поле строк с элементами списка. True – проверка включена (допускается ввод только строк, совпадающих с элементами списка), False – проверка выключена (допускается ввод любых строк). Значение по умолчанию = False.
MaxLenght	Максимальная длина строки в поле. Значение по умолчанию = 0, что означает – ограничений нет.
RowSource	Источник строк для раскрывающегося списка (адрес диапазона на рабочем листе Excel).
TabIndex	Целое число, определяющее позицию элемента управления в очереди на получение фокуса при табуляции. Отсчет начинается с 0.
Text	Текстовое содержимое (значение) поля (=Value).
TextAlign	Выравнивание текста в поле: 1 (fmTextAlignLeft) – по левому краю, 2 (fmTextAlignCenter) – по центру, 3 (fmTextAlignRight) – по правому краю.
Top	Расстояние от верхнего края внутренней границы пользовательской формы до верхнего края комбинированного списка.
Value	Текстовое содержимое (значение) поля (=Text).
Visible	Видимость поля со списком. True – ComboBox отображается на пользовательской форме, False – ComboBox скрыт.
Width	Ширина элемента управления.

* При Enabled в значении False пользователь не может раскрывать список, а также вводить или редактировать данные в поле.
** Для элемента управления ComboBox действие свойства Locked в значении True аналогично действию свойства Enabled в значении False.

В таблице перечислены только основные, часто используемые свойства поля со списком. Еще больше доступных свойств отображено в окне Properties элемента управления ComboBox, а все методы, события и свойства – в окне Object Browser.

Вызывается Object Browser нажатием клавиши «F2». Слева выберите объект ComboBox, а справа смотрите его методы, события и свойства.

Свойства BackColor, BackStyle, BorderColor, BorderStyle отвечают за внешнее оформление комбинированного списка и его границ. Попробуйте выбирать доступные значения этих свойств в окне Properties, наблюдая за изменениями внешнего вида элемента управления ComboBox на проекте пользовательской формы.

Способы заполнения ComboBox

Используйте метод AddItem для загрузки элементов в поле со списком по одному:

With UserForm1.ComboBox1   .AddItem «Элемент 1»   .AddItem «Элемент 2»   .AddItem «Элемент 3» End With

Используйте свойство List, чтобы скопировать одномерный массив значений в элемент управления ComboBox:

UserForm1.ComboBox1.List = Array(«Строка 1», _ «Строка 2», «Строка 3», «Строка 4», «Строка 5»)

Вместо функции Array можно использовать переменные одномерных и двухмерных массивов. При загрузке значений из двухмерного массива, требуется предварительно указать количество столбцов в комбинированном списке.

Используйте свойство RowSource, чтобы загрузить в ComboBox значения из диапазона ячеек рабочего листа:

UserForm1.ComboBox1.RowSource = «Лист5!B1:B15»

При загрузке данных из диапазона, содержащего более одного столбца, требуется предварительно указать количество столбцов в комбинированном списке:

With UserForm1.ComboBox1   ‘Указываем количество столбцов   .ColumnCount = 5   .RowSource = «‘Таблица с данными’!A1:E20» End With

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

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

Привязка поля со списком к ячейке

Чтобы привязать комбинированный список к ячейке на рабочем листе Excel, необходимо свойству ControlSource присвоить адрес ячейки. Это можно сделать непосредственно в окне Properties элемента управления ComboBox или в коде VBA:

UserForm1.ComboBox1.ControlSource = "Лист1!B2"

Имя листа для составного адреса ячейки берется из названия ярлыка. Если имя листа содержит пробелы, оно заключается в одинарные кавычки. При указании адреса без имени листа, ComboBox привязывается к ячейке на активном листе.

В результате привязки образуется взаимосвязь между свойством Value комбинированного списка и значением ячейки. Все изменения в поле ComboBox дублируются в привязанной ячейке и наоборот, изменения в ячейке приводят к изменению текста в поле.

Чтобы протестировать результаты привязки ячейки к полю со списком ComboBox1, разместите на пользовательской форме UserForm1 еще какой-нибудь элемент управления и запустите следующий код VBA Excel:

Sub Test() With UserForm1.ComboBox1   ‘Заполняем список ComboBox1 данными   .List = Array(«Красный», «Оранжевый», «Желтый», _   «Зеленый», «Голубой», «Синий», «Фиолетовый»)   ‘Привязываем ComboBox1 к ячейке «A1»   .ControlSource = «A1»   ‘Открываем форму в немодальном окне End With   UserForm1.Show 0 End Sub

В результате работы кода пользовательская форма откроется в немодальном окне со значением в поле, скопированном из ячейки «A1» активного листа. Немодальное окно формы позволит редактировать ячейку «A1», не закрывая форму.

Меняйте значение ячейки «A1», нажимайте клавишу «Tab» или «Enter», поле комбинированного списка примет значение ячейки. Меняйте значение поля ComboBox1 с помощью клавиатуры или выбирайте из раскрывающегося списка, нажимайте клавишу «Tab» или «Enter», ячейка «A1» примет значение поля со списком.

Дополнительный элемент управления на форме нужен для передачи ему фокуса нажатием клавиши «Tab» или «Enter», чтобы завершить ввод значения в поле ComboBox1. Иначе новое значение поля будет передано в ячейку «A1» только при закрытии формы.

Значение ComboBox по умолчанию

В раскрывающийся список элемента управления ComboBox1 загружены названия семи основных цветов:

Private Sub UserForm_Initialize() With Me.ComboBox1   .List = Array(«Красный», «Оранжевый», «Желтый», _   «Зеленый», «Голубой», «Синий», «Фиолетовый»)   ‘Сюда добавляем код вставки значения по умолчанию End With End Sub

Есть несколько вариантов сделать так, чтобы при открытии пользовательской формы в поле ComboBox1 было отображено значение по умолчанию. Код следует вставлять перед строкой «End With».

‘Вариант 1 (произвольная строка) .Value = «Моя строка по умолчанию» ‘или .Value = «Синий» ‘Вариант 2 (произвольная строка) .ControlSource = «A1» Range(«A1») = «Моя строка по умолчанию» ‘или .ControlSource = «A1» Range(«A1») = «Желтый» ‘Вариант 3 (строка из списка) .ListIndex = 0 ‘Красный ‘или .ListIndex = 3 ‘Зеленый

Кроме значения по умолчанию, в свойства комбинированного списка можно добавить текст всплывающей подсказки, который будет отображаться при наведении на ComboBox курсора:

UserForm1.ComboBox1.ControlTipText = "Выберите значение из списка"

Извлечение информации из ComboBox

Первоначально элемент управления ComboBox открывается с пустым полем или значением по умолчанию. Свойства Value и Text в этом случае возвращают пустую строку или текст по умолчанию.

Если пользователь выбрал новое значение из раскрывающегося списка или ввел его с клавиатуры, оно перезапишет значения свойств Value и Text. Из этих свойств мы с помощью кода VBA Excel извлекаем информацию, выбранную или введенную пользователем:

Dim myTxt As String myTxt = UserForm1.ComboBox1.Value ‘или myTxt = UserForm1.ComboBox1.Text

Вторую строку кода можно записать myTxt = UserForm1.ComboBox1, так как Value является свойством поля со списком по умолчанию.

Если вас интересует, как извлечь значение из многостолбцового раскрывающегося списка, смотрите об этом в статье с описанием элемента управления ListBox. Извлечение данных из комбинированного поля аналогично извлечению данных из ListBox. Знакомясь со статьей, следует учесть, что у ComboBox отсутствует многострочный выбор.

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

Элемент управления 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 нет) и т.п.

Добавляет новый элемент в список значений, отображаемых указанным элементом управления «поле со списком». 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	Обязательный Required	String String	Отображаемый текст для нового элемента. The display text for the new item.
Index Index	Необязательный Optional	Variant Variant	Положение элемента в списке. The position of the item in the list. Если этот аргумент опущен, элемент добавляется в конец списка. If this argument is omitted, the item is added to the end of the list.

Свойству 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.

Используйте метод 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.

Элемент управления пользовательской формы ComboBox для выбора и ввода информации в VBA Excel. Свойства поля с раскрывающимся списком, заполнение, извлечение данных, примеры кода.

Элемент управления ComboBox

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

ComboBox представляет из себя комбинацию двух элементов управления: текстового поля (TextBox) и списка (ListBox), поэтому его еще называют «комбинированным списком» или «полем со списком». Также ComboBox сочетает в себе свойства этих двух элементов управления.

Изначально комбинированный список прорисовывается на форме в виде текстового поля с кнопкой для отображения раскрывающегося списка. Далее по тексту будем использовать слово «поле» в значении текстового поля в составе элемента управления ComboBox, а словосочетание «раскрывающийся список» – в значении списка в составе элемента управления ComboBox.

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

Элемент управления ComboBox незаменим при больших списках. При списках из нескольких позиций его можно заменить на ListBox, который отображает позиции для выбора сразу после загрузки формы, не требуя дополнительных действий от пользователя.

Свойства поля со списком

Свойство	Описание
AutoSize	Автоподбор размера комбинированного поля. True – размер автоматически подстраивается под длину выбранной или введенной строки. False – размер элемента управления определяется свойствами Width и Height.
AutoTab	Включение автоматической табуляции – передачи фокуса следующему элементу управления при достижении максимального числа символов при значениях свойства MaxLenght > 0. True – автоматическая табуляция включена, False – выключена.
ColumnCount	Указывает количество столбцов в раскрывающемся списке. Значение по умолчанию = 1.
ColumnHeads	Добавляет строку заголовков в раскрывающийся список. True – заголовки столбцов включены, False – заголовки столбцов выключены. Значение по умолчанию = False.
ColumnWidths	Ширина столбцов в раскрывающемся списке. Значения для нескольких столбцов указываются в одну строку через точку с запятой (;).
ControlSource	Ссылка на ячейку для ее привязки к элементу управления ComboBox.
ControlTipText	Текст всплывающей подсказки при наведении курсора на элемент управления.
Enabled	Доступ пользователя к полю и раскрывающемуся списку. True – доступ разрешен, False – доступ запрещен*. Значение по умолчанию = True.
Font	Шрифт, начертание и размер текста в поле.
Height	Высота элемента управления ComboBox.
Left	Расстояние от левого края внутренней границы пользовательской формы до левого края комбинированного списка.
List	Позволяет заполнить ComboBox данными из одномерного или двухмерного массива, а также обращаться к отдельным элементам раскрывающегося списка по индексам для записи и чтения.
ListIndex	Номер выбранной пользователем строки в раскрывающемся списке. Нумерация начинается с нуля. Если ничего не выбрано, ListIndex = -1.
ListRows	Количество видимых строк в раскрытом списке. Если общее количество строк больше ListRows, появляется полоса прокрутки. Значение по умолчанию = 8.
Locked	Запрет на отображение раскрывающегося списка, ввод и редактирование данных в поле. True – ввод и редактирование запрещены**, False – ввод и редактирование разрешены. Значение по умолчанию = False.
MaxLenght	Максимальная длина строки в поле. Значение по умолчанию = 0, что означает – ограничений нет.
RowSource	Источник строк для раскрывающегося списка (адрес диапазона на рабочем листе Excel).
TabIndex	Целое число, определяющее позицию элемента управления в очереди на получение фокуса при табуляции. Отсчет начинается с 0.
Text	Текстовое содержимое (значение) поля (=Value).
TextAlign	Выравнивание текста в поле: 1 (fmTextAlignLeft) – по левому краю, 2 (fmTextAlignCenter) – по центру, 3 (fmTextAlignRight) – по правому краю.
Top	Расстояние от верхнего края внутренней границы пользовательской формы до верхнего края комбинированного списка.
Value	Текстовое содержимое (значение) поля (=Text).
Visible	Видимость поля со списком. True – ComboBox отображается на пользовательской форме, False – ComboBox скрыт.
Width	Ширина элемента управления.

* При Enabled в значении False пользователь не может раскрывать список, а также вводить или редактировать данные в поле.
** Для элемента управления ComboBox действие свойства Locked в значении True аналогично действию свойства Enabled в значении False.

В таблице перечислены только основные, часто используемые свойства поля со списком. Еще больше доступных свойств отображено в окне Properties элемента управления ComboBox, а все методы, события и свойства – в окне Object Browser.

Вызывается Object Browser нажатием клавиши «F2». Слева выберите объект ComboBox, а справа смотрите его методы, события и свойства.

Свойства BackColor, BackStyle, BorderColor, BorderStyle отвечают за внешнее оформление комбинированного списка и его границ. Попробуйте выбирать доступные значения этих свойств в окне Properties, наблюдая за изменениями внешнего вида элемента управления ComboBox на проекте пользовательской формы.

Способы заполнения ComboBox

Используйте метод AddItem для загрузки элементов в поле со списком по одному:

Используйте свойство List, чтобы скопировать одномерный массив значений в элемент управления ComboBox:

Вместо функции Array можно использовать переменные одномерных и двухмерных массивов. При загрузке значений из двухмерного массива, требуется предварительно указать количество столбцов в комбинированном списке.

Используйте свойство RowSource, чтобы загрузить в ComboBox значения из диапазона ячеек рабочего листа:

При загрузке данных из диапазона, содержащего более одного столбца, требуется предварительно указать количество столбцов в комбинированном списке:

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

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

Привязка поля со списком к ячейке

Чтобы привязать комбинированный список к ячейке на рабочем листе Excel, необходимо свойству ControlSource присвоить адрес ячейки. Это можно сделать непосредственно в окне Properties элемента управления ComboBox или в коде VBA:

UserForm1.ComboBox1.ControlSource = «Лист1!B2»

Имя листа для составного адреса ячейки берется из названия ярлыка. Если имя листа содержит пробелы, оно заключается в одинарные кавычки. При указании адреса без имени листа, ComboBox привязывается к ячейке на активном листе.

В результате привязки образуется взаимосвязь между свойством Value комбинированного списка и значением ячейки. Все изменения в поле ComboBox дублируются в привязанной ячейке и наоборот, изменения в ячейке приводят к изменению текста в поле.

Чтобы протестировать результаты привязки ячейки к полю со списком ComboBox1, разместите на пользовательской форме UserForm1 еще какой-нибудь элемент управления и запустите следующий код VBA Excel:

В результате работы кода пользовательская форма откроется в немодальном окне со значением в поле, скопированном из ячейки «A1» активного листа. Немодальное окно формы позволит редактировать ячейку «A1», не закрывая форму.

Меняйте значение ячейки «A1», нажимайте клавишу «Tab» или «Enter», поле комбинированного списка примет значение ячейки. Меняйте значение поля ComboBox1 с помощью клавиатуры или выбирайте из раскрывающегося списка, нажимайте клавишу «Tab» или «Enter», ячейка «A1» примет значение поля со списком.

Дополнительный элемент управления на форме нужен для передачи ему фокуса нажатием клавиши «Tab» или «Enter», чтобы завершить ввод значения в поле ComboBox1. Иначе новое значение поля будет передано в ячейку «A1» только при закрытии формы.

Значение ComboBox по умолчанию

В раскрывающийся список элемента управления ComboBox1 загружены названия семи основных цветов:

Есть несколько вариантов сделать так, чтобы при открытии пользовательской формы в поле ComboBox1 было отображено значение по умолчанию. Код следует вставлять перед строкой «End With».

Кроме значения по умолчанию, в свойства комбинированного списка можно добавить текст всплывающей подсказки, который будет отображаться при наведении на ComboBox курсора:

UserForm1.ComboBox1.ControlTipText = «Выберите значение из списка»

Извлечение информации из ComboBox

Первоначально элемент управления ComboBox открывается с пустым полем или значением по умолчанию. Свойства Value и Text в этом случае возвращают пустую строку или текст по умолчанию.

Если пользователь выбрал новое значение из раскрывающегося списка или ввел его с клавиатуры, оно перезапишет значения свойств Value и Text. Из этих свойств мы с помощью кода VBA Excel извлекаем информацию, выбранную или введенную пользователем:

Вторую строку кода можно записать myTxt = UserForm1.ComboBox1 , так как Value является свойством поля со списком по умолчанию.

Если вас интересует, как извлечь значение из многостолбцового раскрывающегося списка, смотрите об этом в статье с описанием элемента управления ListBox. Извлечение данных из комбинированного поля аналогично извлечению данных из ListBox. Знакомясь со статьей, следует учесть, что у ComboBox отсутствует многострочный выбор.

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

Igor67 Пользователь Сообщений: 3726 Регистрация: 21.12.2012

Подскажите пожалуйста, возможно ли контролировать события изменения ComboBox без привязки к листу на котором он создан? Есть пример решения, хотелось бы вынести процедуру Private Sub TempCombo_KeyDown с модуля листа (Июнь в примере) на котором создан этот ComboBox. Но перенос его в модуль книги по аналогии с контролем события листа ни чего не дает:( А может я не смог задать правильный вопрос Google Так, при активации столбцов B, D, F вызывается ComboBox и надо обработать потом события.

The_Prist Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	Нет. Я бы просто посоветовал в таком случае использовать пользовательскую форму, вместо объекта. Тогда привязки к листу не будет. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Игорь, это же событийная процедура, а она только на листе с контролом отслеживается.

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	А вариант Димы (с формой) — в самый раз.

Igor67 Пользователь Сообщений: 3726 Регистрация: 21.12.2012	The_Prist, Дима, это наверно будет следующий вопрос  есть у меня наброски решения, но их пока нельзя выложить на форум Там сделан Комбо на форме, но возникают другие вопросы… Пока не разобрался. Хочу Форму с 1 Комбо по размеру формы и позиционированием по Target с дальнейшей обработкой Комбо на форме. Там пока еще читаю и пробую…

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012

#6 29.06.2013 23:18:17 Igor67, возможно подойдёт вариант с классом? код модуля класса Код Option Explicit Public WithEvents CbEvent As ComboBox Private Sub CbEvent_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)     MsgBox True End Sub код книги Код Option Explicit Dim CbEvents As New cl_CBEvents Private Sub Workbook_Open()     Dim sh As Worksheet     Dim cb As MSForms.ComboBox     Dim objTmp As OLEObject          For Each sh In Worksheets         For Each objTmp In sh.OLEObjects             If TypeOf objTmp.Object Is MSForms.ComboBox Then                 Set cb = objTmp.Object: Exit For             End If         Next     Next          Set CbEvents.CbEvent = cb End Sub Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

R Dmitry Пользователь Сообщений: 3103 Регистрация: 22.12.2012 Excel,MSSQL,Oracle,Qlik	#7 29.06.2013 23:26:17 В похожих ситуациях я отказался от выпадающих списков и делаю все на контекстном меню( при условии, что список не совсем огромный конечно) Спасибо

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.

#8 29.06.2013 23:29:12 Игорь, Юрий М выкладывал как-то код активации формы по onkey. Я в одном из своих проектов использовал его. Код Private Sub Worksheet_SelectionChange(ByVal Target As Range)     If Intersect(Target, Range("C:C")) Is Nothing Then         Application.OnKey "~"         Application.OnKey "{ENTER}"     Else         Application.OnKey "~", "ShowForm"         Application.OnKey "{ENTER}", "ShowForm"     End If End Sub Sub ShowForm()     UserForm2.Show 0 End Sub На форме комбобокс. Код привязан к листу, но с тем же успехом можно вязать к любому событию книги. Однако гемор еще тот надо не забыть при деактивации книги сбрасывать онкей, а при активации восстанавливать. Я сам — дурнее всякого примера! …

R Dmitry Пользователь Сообщений: 3103 Регистрация: 22.12.2012 Excel,MSSQL,Oracle,Qlik	#9 29.06.2013 23:35:20 я как то выкладывал на форуме этот пример, посмотри может почерпнешь идею. Прикрепленные файлы contexMenu.xls (69 КБ) Спасибо

Igor67 Пользователь Сообщений: 3726 Регистрация: 21.12.2012	Спасибо всем за оклики. LightZ, попробую Ваш вариант через модуль класса. В принципе я знаю решение — не техническое, а организационное   Делаем все на 1 листе (и код значительно уменьшится) типа ввод текущих на листе с макросами, и еще добавляем перенос месячных данных (уже введенных) в данном случае в виде архивных листов с данными без формул и пр… Но, нормальные герои всегда идут в обход (с)

Igor67 Пользователь Сообщений: 3726 Регистрация: 21.12.2012	В общем, кажется получилось то, что хотел. Вариант решения в этой теме в сообщении от 30 Июн 2013 17:53:36 файл …версия 1_1. R Dmitry, вариант интересный, но данных оочень много для него. Это подойдет максимум до 20 значений. KuklP, этот вариант решения вероятно будет следующим. Сейчас мне не актуально. Еще раз спасибо всем за поддержку   Изменено: Igor67 — 30.06.2013 18:17:42

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	Вариант с модулем класса помог? Т.к. толком не тестил, но должно работать без ошибок. Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

Igor67 Пользователь Сообщений: 3726 Регистрация: 21.12.2012	LightZ, да, именно его и реализовал. Были затыки по незнанию, но разобрался

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Богдан, видишь ли — делать класс — ИМХО из пушки по воробьям. Но ИМХО.  Пусть еще ребята выскажутся… Я всегда сторонник упрощенного подхода. Я сам — дурнее всякого примера! …

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	Привет, Сереж. К сожалению, в данной ситуации (именно с КомбоБоксами на листе) — я не вижу другого варианта кроме класса А идеи с ЮзерФормами и тд — это уже из другой «оперы» Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

ikki Пользователь Сообщений: 9709 Регистрация: 22.12.2012	соглашусь   фрилансер Excel, VBA — контакты в профиле «Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

R Dmitry Пользователь Сообщений: 3103 Регистрация: 22.12.2012 Excel,MSSQL,Oracle,Qlik	#17 01.07.2013 02:13:23 Цитата Igor67 пишет: R Dmitry,  вариант интересный, но данных оочень много для него. Это подойдет максимум до 20 значений. Если данных много то их можно группировать. Например, у деклараций есть дата, соответственно можно группировать по году, месяцу и т.д. Также можно группировать по фирме, декларанту и т.д. ———— Но конечно все зависит от конечного пользователя, если ему удобней внести код, то конечно лучше использовать комбобокс. Спасибо

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

Пример
элемента управления ComboBox
представлен на рис. 4.

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

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

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

• когда
список позиций для выбора необходимо
формировать динамически на основании
данных из источника (базы данных, листа
Excel и т.п.).

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

1)
с помощью свойства RowSource.
Для этого необходимо предварительно
заполнить ячейки листа Exсel
требуемыми значениями, а затем указать
полученный диапазон непосредственно
в окне свойств:

2)
с помощью метода AddItem().

Обычно
он помещается в обработчик события
Initialize
для формы. Применение его может выглядеть
так:

Private Sub
UserForm_Initialize()

ComboBox1.AddItem
«Санкт-Петербург»

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

ComboBox1.AddItem
«Москва»

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

End
Sub

3)
с помощью свойства List.
Данное свойство не отражается в окне
свойств, поэтому его необходимо задавать
программно. Для этого предварительно
необходимо заполнить массив требуемыми
значениями, а затем присвоить массив
свойству List:

ComboBox1.List
= A,

где
A
– произвольный
массив.

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

BoundColumn
— устанавливает
тип, возвращаемый свойством Value.
А именно, если свойство BoundColumn
равно 0, то свойство Value
возвращает индекс выбранной строки, т.
е. в этом случае оно действует как
свойство ListIndex.
Если свойство BoundColumn
принимает значение из диапазона от 1 до
количества столбцов в списке, то свойство
Value
возвращает элемент из выбранной строки,
стоящий в столбце, определенном свойством
BoundColumn.

ColumnCount
— устанавливает
число столбцов в списке.

ColumnHeads
— обеспечивает возможность вывода
заголовков столбцов раскрывающегося
списка. В качестве заголовков принимаются
значения, расположенные непосредственно
над диапазоном, указанным в свойстве
RowSource (по умолчанию False
– не выводятся).

ColumnWidths
— устанавливает ширину столбцов списка
в точках. Значение данного свойства
представляет собой строку из значений
ширин колонок, разделенных точкой с
запятой, например, «20;30;30» (для 3-х колонок).

ControlSource
— устанавливает
диапазон (ячейку), в которую возвращается
значение свойства Value
для выбранного элемента.

TextColumn
— устанавливает
столбец в списке, элемент которого
возвращается свойством Text.

List¹
—
возвращает
элемент списка, стоящий на пересечении
указанных строки и столбца. Синтаксис:
List(row,
column).
Данное свойство также используется для
заполнения списка значениями с помощью
массива (см. пример выше).

ListCount^*
— возвращает число элементов списка.

Listlndex^*
— возвращает номер текущего элемента
списка. Нумерация элементов списка
начинается с нуля. Данное свойство
позволяет определить, какую строку
выбрал пользователь. Если никакая строка
не выбрана, данное свойство равно (-1).

MatchEntry
— определяет, будут ли при вводе
пользователем первых символов значения
выбираться подходящие позиции из списка.
Возможность очень удобная, рекомендуется
сохранить значение, которое используется
по умолчанию.

MatchRequired
— определяет, разрешается ли пользователю
вводить то значение, которого нет в
списке. По умолчанию False,
т. е. разрешено.

RowSource
— устанавливает диапазон, содержащий
элементы списка.

Value
(или Text)
— позволяет программным способом
установить выбранное значение в списке
или получить в переменную выбранное
или введенное пользователем значение.
Следует отметить, что если для
комбинированных списков, состоящих ид
одного столбца, данные свойства идентичны,
то для комбинированных списков, состоящих
из нескольких столбцов, использование
данных свойства зависит от установки
свойств BoundColumn
и TextColumn
соответственно. Например, для TextColumn=1
свойство
Text
возвращает значение первого столбца,
для BoundColumn=2
свойство
Value
возвращает значение второго столбца и
т.д. Нумерация столбцов при этом
осуществляется с единицы.

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

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

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #