Excel 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, проверить наличие данных в проверяемом элементе и т.д. Тут уж зависит от поставленной задачи. Конечно, подобным способом можно проделать разные действия и с остальными элементами формы. Только надо будет заменить тип для проверки элементов:
Это не единственный способ проделывания однотипных действий с элементами формы. Код ниже использует имена элементов для обращения к ним:
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
P.S. Небольшое дополнение: нужные элементы можно просто помещать внутрь объекта Frame. Тогда можно будет применять цикл исключительно по элементам внутри этого Frame(предположим, что Frame называется Frame1):
Sub All_TextBoxes_InFrame() Dim oControl As Control For Each oControl In Frame1.Controls If TypeOf oControl Is MSForms.TextBox Then oControl.Value = "" Next oControl End Sub
Кстати говоря, примерно так же можно перебрать элементы ActiveX не на форме, а на листе(вставляются на лист через вкладку Разработчик (Developer) -Вставить (Insert) -Элементы ActiveX (ActiveX Controls) ). Например, снимем флажки со всех CheckBox-ов:
Sub Off_ShapeCheckBoxes() Dim oControl 'цикл по всем объектам на листе For Each oControl In ActiveSheet.DrawingObjects 'определяем тип объекта - если это Элемент форм, то будет указание на конкретный тип If TypeName(oControl) = "CheckBox" Then oControl.Value = 0 End If Next oControl End Sub
В данном случае для определения конкретного типа контрола используется TypeName. В коде выше нам нужны CheckBox-ы и на них и проверяем. А вот список основных элементов форм, которые доступны по умолчанию для всех версий для вставки на лист:
Button - кнопка
DropDown - поле со списком
CheckBox - флажок
Spinner - счетчик
ListBox - список
OptionButton - радиокнопка
GroupBox - группа(рамка)
Label - надпись
ScrollBar - полоса прокрутки
Если совместить, то можно снять флажки со всех checkBox-ов - и ActiveX и Элементов форм:
Sub Off_AllCheckBoxes() Dim oControl 'цикл по всем объектам на листе For Each oControl In ActiveSheet.DrawingObjects 'определяем тип флажка: ActiveX или Элемент форм Select Case TypeName(oControl) Case "OLEObject" 'ActiveX - необходимо дополнительно проверить тип элемента If TypeOf oControl.Object Is MSForms.CheckBox Then oControl.Object.Value = 0 End If Case "CheckBox" 'Элемент форм CheckBox oControl.Value = 0 End Select Next oControl End Sub
В итоге, определяя конкретный тип элемента можно производить над ним нужные действия.
Всем доброго времени суток, помогите решить задачу
прошелся по ветке www.excelworld.ru/forum/2-890-1 ничего для себя не взял, все не то
на моём примере, и по моему шаблону как корректно переносить текст по строкам шаблона
в первых двух строках применены формулы, с "ручной" настройкой кол-ва символов (регулятор первой строки)
в других строках текст может уходить за границы диапазона объединённых ячеек
при перемещении по листбоксу, если сдвинуть форму видно как распределяется текст в первых двух строках и как он не умещается в других
как решить эту задачу без формул, а макросами
Всем доброго времени суток, помогите решить задачу
прошелся по ветке www.excelworld.ru/forum/2-890-1 ничего для себя не взял, все не то
на моём примере, и по моему шаблону как корректно переносить текст по строкам шаблона
в первых двух строках применены формулы, с "ручной" настройкой кол-ва символов (регулятор первой строки)
в других строках текст может уходить за границы диапазона объединённых ячеек
при перемещении по листбоксу, если сдвинуть форму видно как распределяется текст в первых двух строках и как он не умещается в других
как решить эту задачу без формул, а макросами combat
combat, добрый день!
Честно, не знаю как полностью граммотно решить Вашу задачу. Но вы как минимум могли бы использовать те же формулы, что у Вас есть, просто записав их в коде ВБА, например:
Значение, которое у Вас в BC3 запишите в одну переменную, например Namess, а длину, которую вы пишите в ячейке BB15 можно записать в другую переменную или явно указывать в коде:
[vba]
[/vba]
Гдe Name - переменная, получаемое значение которой Вы будете записывать в ячейку M15
Для ячейки A17 можно по аналогии формулу записать в коде ВБА.
combat, добрый день!
Честно, не знаю как полностью граммотно решить Вашу задачу. Но вы как минимум могли бы использовать те же формулы, что у Вас есть, просто записав их в коде ВБА, например:
Значение, которое у Вас в BC3 запишите в одну переменную, например Namess, а длину, которую вы пишите в ячейке BB15 можно записать в другую переменную или явно указывать в коде:
[vba]
[/vba]
Гдe Name - переменная, получаемое значение которой Вы будете записывать в ячейку M15
Для ячейки A17 можно по аналогии формулу записать в коде ВБА. Roman777
Значение, которое у Вас в BC3 запишите в одну переменную, например Namess, а длину, которую вы пишите в ячейке BB15 можно записать в другую переменную или явно указывать в коде:
[vba]
[/vba]
Гдe Name - переменная, получаемое значение которой Вы будете записывать в ячейку M15
Для ячейки A17 можно по аналогии формулу записать в коде ВБА. Автор - Roman777
Дата добавления - 11.10.2015 в 20:44
Имхо всё не так страшно:
Самое главное определиться с размером и шрифтом чтобы влазил в ячейку и задать конечное колличество символов (ограничение) для показа в первой ячейке.
Пример берёт колличество символов из ячейки BB15 и разбрасывает по строкам.
В Вашем примере надо заменить в Private Sub ListBox1_Change():
[vba]
numb = Worksheets("РСИ").Cells(15, 54)' Считаем колличество символов к отображению
Worksheets("РСИ").Cells(15, 13).FormulaR1C1 = Left(Lbl.Caption, numb)' Записываем numb символов с лева в первую ячейку
Worksheets("РСИ").Cells(17, 1) = Right(Lbl.Caption, Len(Lbl.Caption) - numb)' Забираем оставшиеся символы во вторую ячейку
Имхо всё не так страшно:
Самое главное определиться с размером и шрифтом чтобы влазил в ячейку и задать конечное колличество символов (ограничение) для показа в первой ячейке.
Пример берёт колличество символов из ячейки BB15 и разбрасывает по строкам.
В Вашем примере надо заменить в Private Sub ListBox1_Change():
[vba]
numb = Worksheets("РСИ").Cells(15, 54)' Считаем колличество символов к отображению
Worksheets("РСИ").Cells(15, 13).FormulaR1C1 = Left(Lbl.Caption, numb)' Записываем numb символов с лева в первую ячейку
Worksheets("РСИ").Cells(17, 1) = Right(Lbl.Caption, Len(Lbl.Caption) - numb)' Забираем оставшиеся символы во вторую ячейку
numb = Worksheets("РСИ").Cells(15, 54)' Считаем колличество символов к отображению
Worksheets("РСИ").Cells(15, 13).FormulaR1C1 = Left(Lbl.Caption, numb)' Записываем numb символов с лева в первую ячейку
Worksheets("РСИ").Cells(17, 1) = Right(Lbl.Caption, Len(Lbl.Caption) - numb)' Забираем оставшиеся символы во вторую ячейку
Я пошел совсем по другому пути, объединил строки нарисовал линии и вставил label (подстрочный текст под эти линии)
вставляемый текст из ячеек распределяется в соответствии со свойствами "переносить по словам" в коде .
вообщем все оказалось очень просто, и без заморочек, правда пришлось подбирать шрифт, необходимо было большое межстрочное пространство, у вас его может не быть и будет не корректно показывать, подобрал шрифт Ebrima
далее, следующая для меня проблема, вроде должно все работать, но не срабатывает код в форме ComboBox1 иComboBox2
[vba]
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2 '
ListBox1.ColumnWidths = "0;"
CommandButton2.Enabled = False
'.
Set SRng = Sheets("БазаСИ").Range("B1") '
'.
Set SRng = Range(SRng, SRng.End(xlDown))
N = SRng.Rows.Count
Vs = SRng.Value
ReDim SArr(1 To N)
ReDim Arrr(N - 1)
For R = 1 To N
Sentence = Vs(R, 1)
SArr(R) = " " & Replace(Sentence, """", "")
ListBox1.AddItem R
ListBox1.List(R - 1, 1) = Sentence
Arrr(R - 1) = R
Next
Lbl_SI.Caption = "Всего СИ в базе " & " " & N & " ед."
'ComboBox1.List = Worksheets("Специалисты").Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
'ComboBox2.List = Worksheets("Специалисты").Range("B1", Cells(Rows.Count, "B").End(xlUp)).Value
End Sub
тот код который отключен, в самом конце
Я пошел совсем по другому пути, объединил строки нарисовал линии и вставил label (подстрочный текст под эти линии)
вставляемый текст из ячеек распределяется в соответствии со свойствами "переносить по словам" в коде .
вообщем все оказалось очень просто, и без заморочек, правда пришлось подбирать шрифт, необходимо было большое межстрочное пространство, у вас его может не быть и будет не корректно показывать, подобрал шрифт Ebrima
далее, следующая для меня проблема, вроде должно все работать, но не срабатывает код в форме ComboBox1 иComboBox2
[vba]
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2 '
ListBox1.ColumnWidths = "0;"
CommandButton2.Enabled = False
'.
Set SRng = Sheets("БазаСИ").Range("B1") '
'.
Set SRng = Range(SRng, SRng.End(xlDown))
N = SRng.Rows.Count
Vs = SRng.Value
ReDim SArr(1 To N)
ReDim Arrr(N - 1)
For R = 1 To N
Sentence = Vs(R, 1)
SArr(R) = " " & Replace(Sentence, """", "")
ListBox1.AddItem R
ListBox1.List(R - 1, 1) = Sentence
Arrr(R - 1) = R
Next
Lbl_SI.Caption = "Всего СИ в базе " & " " & N & " ед."
'ComboBox1.List = Worksheets("Специалисты").Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
'ComboBox2.List = Worksheets("Специалисты").Range("B1", Cells(Rows.Count, "B").End(xlUp)).Value
End Sub
тот код который отключен, в самом конце combat
вообщем все оказалось очень просто, и без заморочек, правда пришлось подбирать шрифт, необходимо было большое межстрочное пространство, у вас его может не быть и будет не корректно показывать, подобрал шрифт Ebrima
далее, следующая для меня проблема, вроде должно все работать, но не срабатывает код в форме ComboBox1 иComboBox2
[vba]
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2 '
ListBox1.ColumnWidths = "0;"
CommandButton2.Enabled = False
'.
Set SRng = Sheets("БазаСИ").Range("B1") '
'.
Set SRng = Range(SRng, SRng.End(xlDown))
N = SRng.Rows.Count
Vs = SRng.Value
ReDim SArr(1 To N)
ReDim Arrr(N - 1)
For R = 1 To N
Sentence = Vs(R, 1)
SArr(R) = " " & Replace(Sentence, """", "")
ListBox1.AddItem R
ListBox1.List(R - 1, 1) = Sentence
Arrr(R - 1) = R
Next
Lbl_SI.Caption = "Всего СИ в базе " & " " & N & " ед."
'ComboBox1.List = Worksheets("Специалисты").Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
'ComboBox2.List = Worksheets("Специалисты").Range("B1", Cells(Rows.Count, "B").End(xlUp)).Value
End Sub
тот код который отключен, в самом конце Автор - combat
Дата добавления - 13.10.2015 в 11:59
если активен лист "РСИ" не работает, если лист "Специалисты" работает, в общем надо, что бы работало при активном листе "РСИ"
если активен лист "РСИ" не работает, если лист "Специалисты" работает, в общем надо, что бы работало при активном листе "РСИ" combat
если активен лист "РСИ" не работает, если лист "Специалисты" работает, в общем надо, что бы работало при активном листе "РСИ" Автор - combat
Дата добавления - 15.10.2015 в 19:41
Я обычно добавляю данные так (сразу не заметил что у Вас Рендж):
Private Sub UserForm_Initialize()
For i = 1 To Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.AddItem Worksheets("Специалисты").Cells(i, "A").Value
Next i
End Sub
[/vba]
Честно говоря, точно сам не знаю почему Ваш способ не работает, сам сталкивался. это связано именно, что Вы пытаетесь вставить данные через Range, но Range, который на другом, неактивном листе.
Я обычно добавляю данные так (сразу не заметил что у Вас Рендж):
Private Sub UserForm_Initialize()
For i = 1 To Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.AddItem Worksheets("Специалисты").Cells(i, "A").Value
Next i
End Sub
[/vba]
Честно говоря, точно сам не знаю почему Ваш способ не работает, сам сталкивался. это связано именно, что Вы пытаетесь вставить данные через Range, но Range, который на другом, неактивном листе. Roman777
Много чего не знаю.
Я обычно добавляю данные так (сразу не заметил что у Вас Рендж):
Private Sub UserForm_Initialize()
For i = 1 To Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.AddItem Worksheets("Специалисты").Cells(i, "A").Value
Next i
End Sub
[/vba]
Честно говоря, точно сам не знаю почему Ваш способ не работает, сам сталкивался. это связано именно, что Вы пытаетесь вставить данные через Range, но Range, который на другом, неактивном листе. Автор - Roman777
Дата добавления - 15.10.2015 в 22:40
combat, кстати, вчера потом ток сообразил, что Ваш вариант тоже скорее всего рабочий, просто Вы забыли сказать, с какого листа берёте ячейки:
[vba]
ComboBox1.List = Worksheets("Специалисты").Range("A1", Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp)).Value
combat, кстати, вчера потом ток сообразил, что Ваш вариант тоже скорее всего рабочий, просто Вы забыли сказать, с какого листа берёте ячейки:
[vba]
ComboBox1.List = Worksheets("Специалисты").Range("A1", Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp)).Value
ComboBox1.List = Worksheets("Специалисты").Range("A1", Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp)).Value
Роман, я не сомневался, что Вы мне очередной раз поможете, и еще раз вам большое спасибо
работает только первый вариант, при втором дает ошибку на запуск формы 2
Dim i As Variant
For i = 1 To Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.AddItem Worksheets("Специалисты").Cells(i, "A").Value
Next i
For i = 1 To Worksheets("Специалисты").Cells(Rows.Count, "B").End(xlUp).Row
ComboBox2.AddItem Worksheets("Специалисты").Cells(i, "B").Value
Next i
т.к. у меня выбор из двух списков, код сделал вот так.
Роман, я не сомневался, что Вы мне очередной раз поможете, и еще раз вам большое спасибо
работает только первый вариант, при втором дает ошибку на запуск формы 2
Dim i As Variant
For i = 1 To Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.AddItem Worksheets("Специалисты").Cells(i, "A").Value
Next i
For i = 1 To Worksheets("Специалисты").Cells(Rows.Count, "B").End(xlUp).Row
ComboBox2.AddItem Worksheets("Специалисты").Cells(i, "B").Value
Next i
т.к. у меня выбор из двух списков, код сделал вот так. combat
Dim i As Variant
For i = 1 To Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.AddItem Worksheets("Специалисты").Cells(i, "A").Value
Next i
For i = 1 To Worksheets("Специалисты").Cells(Rows.Count, "B").End(xlUp).Row
ComboBox2.AddItem Worksheets("Специалисты").Cells(i, "B").Value
Next i
т.к. у меня выбор из двух списков, код сделал вот так. Автор - combat
Дата добавления - 16.10.2015 в 19:43
combat, я думаю что второй мб опять где-то неправильно был применён. сразу замечу, что если у Вас данные в одинаковых строках в столбце "А" и "B", можно было бы обойтись и одним циклом. И вообще
[vba]
[/vba] - просто определяет последнюю из заполненных строк для столбца "А" и думаю, что лучше всего не пересчитывать его на каждом шаге цикла, а запихнуть в переменную (предварительно посчитав 1 раз) и потом уже использовать из памяти, так что сам себя поправлю:
[vba]
Dim i as long
Dim i_n as long
i_n = Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp).Row
For i=1 to i_n
ComboBox1.AddItem Worksheets("Специалисты").Cells(i, "A").Value
ComboBox2.AddItem Worksheets("Специалисты").Cells(i, "B").Value ' если для столбцов "А" и "B" данные лежат в одних и тех же строках, иначе надо делать второй цикл, как вы делали выше.
Next i
combat, я думаю что второй мб опять где-то неправильно был применён. сразу замечу, что если у Вас данные в одинаковых строках в столбце "А" и "B", можно было бы обойтись и одним циклом. И вообще
[vba]
[/vba] - просто определяет последнюю из заполненных строк для столбца "А" и думаю, что лучше всего не пересчитывать его на каждом шаге цикла, а запихнуть в переменную (предварительно посчитав 1 раз) и потом уже использовать из памяти, так что сам себя поправлю:
[vba]
Dim i as long
Dim i_n as long
i_n = Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp).Row
For i=1 to i_n
ComboBox1.AddItem Worksheets("Специалисты").Cells(i, "A").Value
ComboBox2.AddItem Worksheets("Специалисты").Cells(i, "B").Value ' если для столбцов "А" и "B" данные лежат в одних и тех же строках, иначе надо делать второй цикл, как вы делали выше.
Next i
Много чего не знаю.
[/vba] - просто определяет последнюю из заполненных строк для столбца "А" и думаю, что лучше всего не пересчитывать его на каждом шаге цикла, а запихнуть в переменную (предварительно посчитав 1 раз) и потом уже использовать из памяти, так что сам себя поправлю:
[vba]
Dim i as long
Dim i_n as long
i_n = Worksheets("Специалисты").Cells(Rows.Count, "A").End(xlUp).Row
For i=1 to i_n
ComboBox1.AddItem Worksheets("Специалисты").Cells(i, "A").Value
ComboBox2.AddItem Worksheets("Специалисты").Cells(i, "B").Value ' если для столбцов "А" и "B" данные лежат в одних и тех же строках, иначе надо делать второй цикл, как вы делали выше.
Next i
Добрый день, скажите имеется ли возможность поместить в ComboBox с помощью свойства RowSource значения из третьего столбца умной таблицы.
Добрый день, скажите имеется ли возможность поместить в ComboBox с помощью свойства RowSource значения из третьего столбца умной таблицы. Sashagor1982
Имеется умная таблица, значения в зависимости от условия помещаются из разных столбцов, с первым все понятно, необходимо из других.
Имеется умная таблица, значения в зависимости от условия помещаются из разных столбцов, с первым все понятно, необходимо из других. Sashagor1982
Месье не вполне адекват?
А я хотел показать, как сделать с извращениями.
Но увидел ваш привет .
Что же, оставайтесь с приветом.
Месье не вполне адекват?
А я хотел показать, как сделать с извращениями.
Но увидел ваш привет .
Что же, оставайтесь с приветом. RAN
Sashagor1982, приложите файл с небольшим примером.
Андрей, тебя иногда бывает очень сложно понять
Sashagor1982, приложите файл с небольшим примером.
Андрей, тебя иногда бывает очень сложно понять Pelena
Андрей, тебя иногда бывает очень сложно понять Автор - Pelena
Дата добавления - 30.08.2021 в 21:13
Sashagor1982, Добрый день. Создайте имя и сделайте ссылку в диспетчере имен на 3 столбец Вашей таблицы и обращайтесь к этому имени.
Sashagor1982, Добрый день. Создайте имя и сделайте ссылку в диспетчере имен на 3 столбец Вашей таблицы и обращайтесь к этому имени.
как ты знаешь, далеко не самый лучший способ заполнения.
Пока я смотрел, как можно извратиться именно с этим свойством, и, кстати, нашел пару вариантов, сей господин вместо ответа на вопрос "зачем", отправил мне привет. Чтож, пусть кушает.
Да, и файл в решении вопроса не шибко нужен.
как ты знаешь, далеко не самый лучший способ заполнения.
Пока я смотрел, как можно извратиться именно с этим свойством, и, кстати, нашел пару вариантов, сей господин вместо ответа на вопрос "зачем", отправил мне привет. Чтож, пусть кушает.
Да, и файл в решении вопроса не шибко нужен. RAN
как ты знаешь, далеко не самый лучший способ заполнения.
Пока я смотрел, как можно извратиться именно с этим свойством, и, кстати, нашел пару вариантов, сей господин вместо ответа на вопрос "зачем", отправил мне привет. Чтож, пусть кушает.
Да, и файл в решении вопроса не шибко нужен. Автор - RAN
Дата добавления - 30.08.2021 в 21:42
RAN, Андрей, а в чем изврат? ну разве что постоянно обновлять надо
ListObjects(1).ListColumns(3).DataBodyRange
RAN, Андрей, а в чем изврат? ну разве что постоянно обновлять надо
ListObjects(1).ListColumns(3).DataBodyRange bmv98rus
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 для загрузки элементов в поле со списком по одному:
Комбинированный список также используется очень часто. Этот элемент управления позволяет пользователю как выбирать "готовые" значения из списка, так и вводить значения самостоятельно (хотя это можно запретить). Пример элемента управления 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. |
Примечания Remarks
Свойству 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
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 извлекаем информацию, выбранную или введенную пользователем:
Если вас интересует, как извлечь значение из многостолбцового раскрывающегося списка, смотрите об этом в статье с описанием элемента управления ListBox. Извлечение данных из комбинированного поля аналогично извлечению данных из ListBox. Знакомясь со статьей, следует учесть, что у ComboBox отсутствует многострочный выбор.
Иногда перед загрузкой в ComboBox требуется отобрать уникальные элементы из имеющегося списка. Смотрите, как это сделать с помощью объектов Collection и Dictionary.
Читайте также: