Элемент управления пользовательской формы 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.
My ComboBox (named ddDatabase) can have either one of two values. These two values are pulled from a table in a separate worksheet. When I open the Excel file, however, neither of the two values are selected. Instead the ComboBox appears empty. Is there any way to explicitly set a specific value to be the default?
After some further testing, it appears that if the Excel file is saved with the first item of the ComboBox selected, the next time the file opens it will default to blank. Selecting any other value in the ComboBox other than the first will preserve the selection after you save, close, and re-open.
I’ve tried to use VBA to solve this issue by setting the value when the workbook is opened using this code:
Sub Workbook_Activate()
Dim ddDatabase As DropDown
Set ddDatabase = ActiveSheet.DropDowns("ddDatabase")
ddDatabase.Value = 1
End Sub
Unfortunately, it throws the following error:
unable to set the value property of the dropdown class
Is there a solution to this?
|
srodichev Пользователь Сообщений: 191 |
Добрый день, уважаемые форумчане! Прошу помощи в следующем вопросе: |
|
Private Sub UserForm_Initialize() |
|
|
GIG_ant  Пользователь Сообщений: 3102 |
|
|
Еще можно дописать ComboBox1.ListIndex = 3 |
|
|
srodichev Пользователь Сообщений: 191 |
Спасибо огромнейшее! Преклоняюсь!!! С уважением Сергей. |
|
Ребята. Немного видоизменил форму |
|
|
srodichev Пользователь Сообщений: 191 |
{quote}{login=GIG_ant}{date=26.09.2011 04:51}{thema=}{post}так ? см файл{/post}{/quote} |
|
ran  Пользователь Сообщений: 7091 |
Я вам отвечал, что макрос писался под определенную задачу, и в лоб там ничего не сделать! |
|
nerv  Пользователь Сообщений: 3071 |
>>Данные по умолчанию в комбобоксах /На форме, в поле .Value прописать то, что Вам нужно : ) |
|
SERZH а так вас не устроит? |
|
|
Ребята, дорогие Вы мои! Огромное Вам всем спасибо за помощь. С искренним уважением, Сергей |
|
|
Hugo Пользователь Сообщений: 23249 |
Только вот в макросе Sub new_row() определение iLastRow ни к чему — эта переменная здесь же и умирает. |
|
AKSENOV048  Пользователь Сообщений: 523 |
#13 27.09.2011 10:08:49 согласен с вами,конечно не нужны, забыл удалить эти строки.) просто сначала немного другой код был. <#0> |
I have a combobox in Excel created as the picture suggests, and it has a range associated to it.
How can I give it a default value from this range, through VBA?
ActiveSheet.Shapes("DropDown1").ControlFormat.Value = "Germany"
I tried the above code, but it doesn’t work. I believe the syntax is not correct. Can you please help?
Thank you!
asked Sep 13, 2013 at 15:03
SamSam
3,00719 gold badges52 silver badges55 bronze badges
2
You can use the DropDown type, it doesn’t show up in the intellisence when you type.
Dim DropDown1 As DropDown
Set DropDown1 = ActiveSheet.DropDowns("DropDown1")
DropDown1.Value = 1
The value is the index of the dropdown, so 1 is the first in the list etc. Use 0 to have no value selected. Also make sure the name «DropDown1» is the correct name for the control, if you right click the control in the excel sheet you’ll see the name for the control to the left of the function bar.
answered Sep 13, 2013 at 15:29
4
-
#2
I’ve was trying unsuccessfully to add items to a combobox on initialization. Seems you should set all of it on the event that triggers the userform rather than it’s initialization.
Can that happen
Code:
Private Sub CommandButton1_Click()
With UserForm1
.ComboBox1.RowSource = "RowSource"
.ComboBox1.ListIndex = 3
.Show
End With
End Sub
-
#3
Good idea, but didn’t work for me — yet. I will try a modification tomorrow.
-
#4
What you’ve got going on here sounds like two different things:
1) you want to set the combobox to defaul to the second item
2) you want to avoid the _Change() event for the combobox.
The first one is easy. You need to set the text of the combobox. It’s not like a listbox, where you can set the .Selection property. You’ve got to say «hey, cbo, here’s the text I want you to display!».
To do that, set the .Text = to .List(1), as in:
Code:
Private Sub UserForm_Initialize()
With Me.ComboBox1
.AddItem "Feb"
.AddItem "Mar"
.AddItem "Apr"
End With
Me.ComboBox1.Text = Me.ComboBox1.List(1)
End SubOkay, part number two, avoid the _Change() event. Yeah, can’t say as I know a way to keep it from firing (tho wiser heads than mine might). So what you might want to do is set up a module-level variable, set it at the time of the form load, and read it when the _Change() event fires. Based on the value (I use a boolean in the example below) you can exit the _Change() sub without further action:
Code:
' Here's our module-level boolean variable.
Private mbCancel As Boolean
Private Sub UserForm_Initialize()
With Me.ComboBox1
.AddItem "Feb"
.AddItem "Mar"
.AddItem "Apr"
End With
mbCancel = True 'here's where we set that variable.
Me.ComboBox1.Text = Me.ComboBox1.List(1)
End Sub
Private Sub ComboBox1_Change()
' Here's where we check that variable.
If mbCancel Then
' if it's TRUE, exit the sub...
Exit Sub
Else
' ... else keep going!
MsgBox "This puppy fired!"
End If
End SubHope this helps.
-
#5
What you’ve got going on here sounds like two different things:
1) you want to set the combobox to defaul to the second item
2) you want to avoid the _Change() event for the combobox.The first one is easy. You need to set the text of the combobox. It’s not like a listbox, where you can set the .Selection property. You’ve got to say «hey, cbo, here’s the text I want you to display!».
To do that, set the .Text = to .List(1), as in:
Code:
Private Sub UserForm_Initialize() With Me.ComboBox1 .AddItem "Feb" .AddItem "Mar" .AddItem "Apr" End With Me.ComboBox1.Text = Me.ComboBox1.List(1) End Sub
Hi Scott, hope you can help me too. I just found your reply to the default value for the combobox. I am interested in displaying always as the default value the last item in the list, but the list is a range that keeps growing. I use a name of a range in a table for the RowSource for this. So the items in the list change as I update the table. Is it possible to always display the value of the last item no matter how many items are in the RowSource? Could you please give me an idea about how to do that?
Thanks in advance,
Mauricio
-
#6
Hi Mauricio-
You can always display the last item in the combobox by modifying the code in the preceding example just a bit to:
Code:
Me.ComboBox1.Text = Me.ComboBox1.List(Me.ComboBox1.ListCount - 1)Assuming you always want the last item added to the combobox (in this case, the last item in the RowSource range) to be the default, then by using the ListCount property, you will get the total number of items in the combobox. Since items in a combobox are indexed as zero-based, you need to peel off one number from the total ListCount (hence the -1 at the end).
Make sense?
-
#7
Great!! That´s it.
Thank you very much, Scott.
Though it didn´t work if I use RowSource, so I had to use .additem to fill the list in the combobox. But It works perfect.
This is how it goes in case anybody finds it helpful:
Code:
Private Sub UserForm_Initialize()
Dim cboItem As Range
For Each cboItem In Worksheets(1).Range("nameoftherange")
With Me.combobox1
.AddItem cboItem.Value
End With
Next cboItem
[COLOR="Blue"]Me.combobox1.Text = Me.combobox1.List(Me.combobox1.ListCount - 1)[/COLOR]
End Sub
-
#8
When working with userforms, I find it useful to declare a module wide Boolean variable.
Code:
Dim ufEventsDisabled As Boolean
Private Sub cmbBottle_Click()
If ufEventsDisabled Then Exit Sub
MsgBox "Click"
End Sub
Private Sub UserForm_Initialize()
With cmbBottle
.List = Range("A1:A10").Value
ufEventsDisabled = True
.ListIndex = 1
ufEventsDisabled = False
End With
End SubThat variable is a tool that can be used with all UF control proceedures.
Last edited: May 29, 2009
-
#9
When working with userforms, I find it useful to declare a module wide Boolean variable.
Code:
Dim ufEventsDisabled As Boolean Private Sub cmbBottle_Click() If ufEventsDisabled Then Exit Sub MsgBox "Click" End Sub Private Sub UserForm_Initialize() With cmbBottle .List = Range("A1:A10").Value ufEventsDisabled = True .ListIndex = 1 ufEventsDisabled = False End With End SubThat variable is a tool that can be used with all UF control proceedures.
Hi, Mike.
I do not completely understand what´s that about, but I already try it and it works!
I am new in vba and that´s advanced vba.
Could you please be kind and share a brief explanation about what does that Boolean variable do.
-
#10
The problem in the OP was that VB code in the Initialize event was triggering the Click event. That wasn’t what was desired. By setting ufEventsDisabled to True, this line in the Click routine prevents the rest of the Click code from running.
Code:
If ufEventsDisable Then Exit SubWhen I have several controls and several events, I put that line at the beginning of every event routine.
Setting ufEventsDisabled to True or False allows one to control when the Click routine runs. Similar to how Application.EnableEvents can be used to prevent cascading events in sheet event code.
Walkenbach pointed out that using this version keeps one from having to set the variable back to False. (But it won’t stop multiple events or ambiguous ones (e.g. if .ListIndex already = 1 the instruction .ListIndex = 1 will not trigger an event.)
Code:
If ufEventsDisabled Then ufEventsDisabled = False: Exit SubLast edited: May 29, 2009