Combobox для excel свойства

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

Свойству 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, который отображает позиции для выбора сразу после загрузки формы, не требуя дополнительных действий от пользователя.

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

* При 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.

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

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

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

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

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

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

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

VBA ComboBox Excel

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

Sub ComboBox()
    CB_Form.Show
End Sub

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

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

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

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

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

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

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

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

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

Private Sub CommandButton1_Click()
L_CB.Caption = CB_A.Value & " " & _
CB_B.Value & " " & _
CB_C.Value & " " & _
CB_D.Value
End Sub
 
Private Sub UserForm_Initialize()
Dim oColumn As Range
Dim oCell As Range
 
'Заполняем первый список
Set oColumn = Columns("A")
For Each oCell In oColumn.Cells
If oCell.Value <> "" Then
CB_A.AddItem oCell.Value
End If
Next
CB_A.ListIndex = 0
 
'Заполняем второй список
Set oColumn = Columns("B")
For Each oCell In oColumn.Cells
If oCell.Value <> "" Then
CB_B.AddItem oCell.Value
End If
Next
CB_B.ListIndex = 0
 
'Заполняем третий список
Set oColumn = Columns("C")
For Each oCell In oColumn.Cells
If oCell.Value <> "" Then
CB_C.AddItem oCell.Value
End If
Next
CB_C.ListIndex = 0
 
'Заполняем четвертый список
Set oColumn = Columns("D")
For Each oCell In oColumn.Cells
If oCell.Value <> "" Then
CB_D.AddItem oCell.Value
End If
Next
CB_D.ListIndex = 0
 
End Sub

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

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

VBA ComboBox Word

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

Private Sub UserForm_Initialize()
 
With ComboBox1
.ColumnCount = 3
.ColumnWidths = "50;50;50"
.ColumnHeads = False
.RowSource = ""
End With
 
ComboBox1.AddItem "Украина"
ComboBox1.List(0, 1) = "Киев"
ComboBox1.List(0, 2) = "Украинский"
 
ComboBox1.AddItem "Россия"
ComboBox1.Column(1, 1) = "Москва"
ComboBox1.Column(2, 1) = "руский"
 
ComboBox1.AddItem "Белоруссия"
ComboBox1.List(2, 1) = "Минск"
ComboBox1.List(2, 2) = "русский"
 
ComboBox1.ListIndex = 0
 
End Sub

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

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

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

Свойства элемента управления combobox (Количество строк списка)

​Смотрите также​​End Sub​
​ внутри неё? Я​: Всем доброго времени.​ BLIST.cells(a, 4) Text3.Text​ Dim Flag As​
​ сделать что-то типа​ это сделать. Так​ соответствующее значениям из​ последний абзац:​
​For a ListBox,​ так нарисовал.​ это сделать с​
​Gauss​По заполнению комбо​ сейчас дорвался до​ComboBox1.AddItem i​
​Мур​Т.е. в комбобоксе​ уже где-то читал,​
​Подскажите, не выходит​ = BLIST.cells(a, 5)​ Boolean Dim Белый​Если в первом​
​ что все зависит​
​ списка.​

​You cannot use​​ the value of​Раньше так и​
​ помощью Combobox и​
​: Тут тип строка,​ — измените код​
​ компа.​​Next​: Приветсвую участников форума!​ нельзя сделать больше​ что в библиотеке​
​ связать 2 combobox’а​
​ Text4.Text = BLIST.cells(a,​
​ As acWhite Dim​ чекбоксе выбран пункт​
​ от цели.​​При таком подходе​
​ Text to change​ Text must match​ было: ComboBox1.Text =​

​ как? Если нет,​​ поэтому присваивать надо​ так​Последний вариант самый​
​End Sub​На форме расположено​ 10 столбцов, если​
​ имена не повторяются,​ так, чтобы в​ 6) Text5.Text =​ Красный As acRed​
​ 1 то выбрать​А вот неуказание​
​ будет ошибка:​
​ the value of​
​ an existing list​ "". Не работает.​
​ то что надо​
​ "Выбор!C4:C5"​
​200?'200px':''+(this.scrollHeight+5)+'px');">Private Sub UserForm_Activate()​
​ приближенный к к​
​Private Sub ComboBox1_Change()​
​ несколько combobox, с​
​ не брать откуда-нибудь​ но так и​ значения в первом​
​ BLIST.cells(a, 7) baza.save​
​ Dim Жолтый As​
​ в другом чекбоксе​ свойства(ComboBox=) это не​
​ComboBox1.Text = «a»​ an entry in​ entry. Specifying a​Hugo, не понял,​ использовать?​
​Dost1369​ComboBox1.List = Range(Range(«C1»),​ тому что нужно.​With ComboBox1​ помощью которых заполняется​
​ данные (данные можно​ не понял как​ не повторялись, а​ baza.close end sub​
​ acYellow Dim Зеленый​ тоже пункт 1​

​ просто дурной тон,​​ComboBox2.Text = «a»​ a ComboBox or​
​ value that does​ почему массив?​Как сделать просто​: Присвоил: ComboBox2.RowSource =​

​ Range(«C» & Rows.Count).End(xlUp)).Value​​Пока нет возможномти​
​i = .ListIndex​ таблица.​ брать, например, из​ её правильно применить.​
​ во втором были​Владимир_Сар​ As acGreen Dim​
​ и т.д.​ но и возможные​если записать так,​
​ ListBox​ not match an​

​.Value — значение,​​ список из одного​

​ «Выбор!C4:C5″Опять выдает эту​​End Sub​ посмотреть внимательно. Я​
​If i >​В качестве источника​ VBA-массива, из Excel-листа​
​Manyasha​

​ зависимы от того​​: Я запускаю форму​

​ Синий As acBlue​​Ну и параллельно​ ошибки и сюрпризы-нежданчики.​ то нет:​
​Вы не можете​ existing list entry​ находящееся в данный​
​ названия я понимаю:​ ошибку.​Мур​

​ отпишусь позже.​​ -1 Then .RemoveItem​
​ данных для всех​
​ (используя свойство «RowSource»),​:​ что выбрано в​ из модуля, а​ Dim Голубой As​
​ как установить значение​ Потому как по​
​ComboBox1.Text = «a»​ использовать Text для​ causes an error.​
​ момент в поле​Private Sub loadcombo()​Gauss​
​: Вот пример того​Мур​ i​ combobox использую динамически​
​ а создавать столбцы​argetlam​ первом. Форма во​
​ Combobox пустой, как​ acCyan Dim Фиолетовый​ в чекбоксе по​ умолчанию будет обращение​
​ComboBox2.AddItem «a»​ изменения значения…​You cannot use​ ввода, .Text -​
​ With ActiveWorkbook.Worksheets(1).ComboBox2 .AddItem​: Будьте внимательнее, глянул​ что мне нужно.​: Приветсвую участниов форума!​
​End With​ изменяемый диапазон,​ с помощью «List»​, это словари. Exists​
​ вложении, у меня​ запускать чтобы combobox​ As acPurple Private​
​ номеру. Что-то типа​ к свойству .Value,​ComboBox2.Text = «a»​vikttur​ Text to change​
​ значения, которые может​ «ЦО» .AddItem «ЦС»​ на файл:​Надо было сразу​
​RAN, приветсвую.​End Sub​

​в котором использованные​​ или «Column», как​ проверяет наличие элемента​
​ получилось только сделать​ был заполнен​ Sub UserForm_Initialize() ComboBox1.AddItem​
​ чекбокс2= 2ой пункт​
​ а это не​Записать пустое значение​
​: Нет, не понятно:​

​ the value of​​ принять .Value? Так,​ .AddItem «ОТК» .AddItem​
​у Вас, во-первых,​ нарисовать.​

​В общем как​​У него уменьшается​

​ значения исчезают из​​ я указал в​
​ в словаре. Trim​
​ динамическое заполнение из​Toxa33rus​

excelworld.ru

Зависимые списки в Combobox (VBA)

​ «Белый» ComboBox1.AddItem «Красный»​​ этого чекбокса.​ всегда нужно. Может​
​ не получиться, т.к.​ ComboBox1.Text = «256»​ an entry in​ что ли?​ «ОП» End With​ ComboBox3 (а не​RAN​ в том известном​ количество строк.​ списка.​ коде (с «Column»​ — на всякий​ массива на листе.​: Перекинуть код из​
​ ComboBox1.AddItem «Жолтый» ComboBox1.AddItem​ironegg​ ты рассчитываешь там​ список по мнению​ — работает…​
​ a ComboBox or​ikki​ End Sub​
​ 2)​:​ выражении: «Кто о​Но то ли​
​В ходе заполнения,​

​ также делается, только​​ случай, убирает лишние​Manyasha​ load в модуль​ «Зеленый» ComboBox1.AddItem «Белый»​: что такое чекбокс​ увидеть .Text… Да​ VBA не должен​

​Юрий М​​ ListBox; use the​: ага. попробовал.​Все имена заняты​во-вторых, данные не​Мур​ чем, а вшивый​

​ я его не​​ в каждом последующем​ порядковые номера строк​ пробелы.​

​:​​Владимир_Сар​ ComboBox1.AddItem «Синий» ComboBox1.AddItem​Gepar​

​ и вообще не​​ его содержать.​: А пусто -​
​ Column or List​какие-то тонкости.​: Так?​
​ на листе «Выбор»,​: RAN,​ о бане»,​ понял, то ли​

​ combobox выпадающий список​​ и столбцов меняются​​Подробнее можете почитать​argetlam​: я пробовал неработает​ «Голубой» ComboBox1.AddItem «Фиолетовый»​
​:​
​ указыать свойство нежелательно​Что касаемо .value.​ не может. Не​ property for this​как вариант -​Private Sub loadcombo()​ а на листе​
​Спасибо!​у меня опять​ это немного не​ сокращается.​ местами).​

​ тут: Dictionary -​​, так подойдет?​

​Все разобрался перед​​ AutoCAD_Connection End Sub​ironegg​ даже исходя из​
​ Дело в том,​ переживай, пиши ComboBox​ purpose.​ не пользовать св-во​
​ With ActiveWorkbook.Worksheets(1).ComboBox2 .ListWidth​
​ «Перечень»​

planetaexcel.ru

Свойства Combobox

​Это то, что​​ про combobox.​ то.​При этом количество​
​Сейчас обратил внимание,​ это совсем не​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub ComboBox1_Change()​ Combobox нужно записать​Владимир_Сар​, ну комбобокс те,​ того, что VBA​ что это как​ = «» :-)​KuklP​ Text для установки​ = 300 .ColumnCount​Dost1369​ нужно!​Ваш последний вариант​Искал в инете​
​ строк списка остается​ что нет взаимосвязи​ сложно!​
​ComboBox2.Clear​ UserForm1​: Подскажите как работать​ я думаю Вы​ может и еще​ бы так сказать…свойство,​

​ikki правильно говорит:​​: Присваивать значения КБ​
​ значения.​ = 2 .AddItem​:​Dost1369​ это почти то,​ как задать изменяемое​ неизменным.​ между свойством «ColumnCount»​argetlam​With CreateObject(«scripting.dictionary»)​

​Спасибо!​​ с ComboBox, а​ и так догадались,​

CyberForum.ru

Отличия свойств ComboBox: .Value и .Text

​ же к Excel,​​vikttur​ или как писал​ .Value или ComboBox1.Clear​ = «Г–ГҐГµ îêðГ*Г±ГЄГЁ»​

​ правда, второй ComboBox​​ форумчане!​Для наглядности я​ выпадающем списке, но​
​ задать или что​ которое можно создать.​
​Manyasha​ 2 To Worksheets(«Список»).Cells(Rows.Count,​:​

​ 10 элементов управления.​​Новую тему открыл​ строк выпадающего списка​ по «ColumnCount» нужно​

​ человеческое спасибо!)​​If ComboBox1.Value =​,​ как их вписать​
​: Свойство ListIndex представляет​
​ к какому иному​ данном случае назначит​

​ названия, оно записывалось​​ выборке нескольких пунктов​ не сталкивался и​ в Value. Я​- справка говорит​ поехали :)​ .List​

​ но как саму​​ для выбора выдавался​ списка значений и​RAN​Файла нет.​
​ который заполняется на​ свойству «ColumnCount» есть​ComboBox2.AddItem Worksheets(«Список»).Cells(i, 2).Value​Владимир_Сар​: Private Sub Combo1_Click()​ Если не выбран​
​ основе работы без​ интеграции, чем к​ использовать Text для​

​ (именованный дианазон), но​​ КБ при имеющихся​: Прошу просветить.​ зависимость оформить не​

​ перечень объектов (сейчас​​ самих значений становится​: Может я чего​Вроде объясняли -​ основе массива​
​ такая фраза:​End If​

​ без указания свойства.​​ данном случае именно​
​ ведь получается использовать​ Style.​ComboBox2.ListIndex = -1​

​ абзаце.​​ разница, кроме невозможности​

planetaexcel.ru

ComboBox: добавить значения для выбора

​Раньше в коде​​ any value you​ComboBox1.Value = Empty​Andrey Dost​ рамке на листе​

​изменения (то есть​​ не знаю как​И опять двадцать​ код автомобиля и​

​ 10 столбцов в​​ 1).End(xlUp).Row​ нет про load,​ Object Private BLIST​ этой теме Перемещение​

​Watcher_1​​Как понял:​ работать с «пустотой»?​

​ писал ComboBox2=(одно из​​ assign to the​​ComboBox2.Value = Empty​​: Logistic, прошу прощения​ «Выбор».​ сокращение количества строк​

​ напрямую прописать диапазон​​ пять​ модель(наименование)​ ComboBox?​If Not .Exists(Trim(Worksheets(«Список»).Cells(i,​ что усложняет задачу.​ As Object Private​
​ выделенных строк в​: For i =​ComboBox.Text=… — правильнее.​vikttur​ значений выпадающего списка)​ Text property is​
​Если указать свойство​ за поздний ответ,​Для вызова формы​ выпадающего списка), произойдет​ в код формы.​Цитата​

​Как мне можно​​Сам нашёл, как​

​ 1))) Then​​saladd​​ Sub Form_Activate() Set​​ ComboBox​ 1 To 5​Использование ComboBox.Value=… в​: Похоже, обсуждение закончилось.​ — работало.​

​ also assigned to​​ .Text, элемент со​ был в отъезде.​ — добавил большую​ во всех​Но это не​(Мур)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Заранее благодарен!​ быстро вытащить код​ создать такую ситуацию:​.Add Trim(Worksheets(«Список»).Cells(i, 1)),​: Скажите , а​
​ baza = GetObject(App.Path​Геннадий Андрее​ ComboBox1.AddItem i Next​ коде нежелательно.​Спасибо всем отвечающим,​
​Но без указания​ the Value property.​ Style=2 вызывает ошибку​Применил Ваш код​

​ красную кнопку.​​comboboxах формы, ссылающихся​ имеет отношение к​Я, например, уже​ автомобиля из выбранной​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub CommandButton1_Click()​ i​ разве неполные имена​
​ & «1989.xls») Set​: А как сделать​Казанский​Правильны ли выводы?​ заглядывающим и сочувствующим​ свойства — неправильно?​For a ComboBox,​ (нажать «ОШИБКА»):​ к своему файлу,​Подскажите, пожалуйста, каким​ на один и​ настоящему вопросу.​ не знаю, что​ записи комбобокса?т.е первый​Dim i As​ComboBox1.AddItem Worksheets(«Список»).Cells(i, 1).Value​ допустимо писать?​ BLIST = baza.Worksheets(«база»)​ так , чтобы​: Или так -​ComboBox=… Неуказание свойства​ :)​ ComboBox.Text=…. Нормально. Начал​ you can use​ComboBox1.Text = Empty​ все работает как​ образом можно сделать​ тот же источник​Мне надо чтобы​ отвечать.​ элемент выбранной строки​

CyberForum.ru

Подскажите как работать с ComboBox

​ Long​​End If​Combo1.AddItem «Один»​ a = 3​ при назначении переменной​
​ вариантов много ComboBox1.List​ при написании кода​The_Prist​ исправлять, дописывать .Text.​ Text to update​ComboBox2.Text = Empty​

​ задумано.​​ зависимые Combobox в​ данных.​ изменялся размер той​Мур​ списка?​’Создание строки в​Next i​Combo1.AddItem «Два»​

​ While BLIST.cells(a, 2)​​ на русском языке​ = Split(«мама мыла​ — только лишь​: Касаемо примера: не​ и вот в​ the value of​Hugo​Большое спасибо!​ форме VBA?​Отюда вытекает ответ​ выпадающей части combobox,​: RAN, Большое спасибо​jollytrade​ комбобоксе.​End With​Combo1.AddItem «Три»​ <> «» Combo1.AddItem​ (что необходимо для​ раму hello, world!»)​ «дурной тон» при​ пройдет без ошибки​ коде очистки формы​ the control. If​: Я думаю потому,​С уважением, Dost1369​С уважением, Dost1369.​ на Ваш вопрос​в которой содержится​ за помощь в​: With АссортиментПоиск.ComboBox1 ‘выбирайте​Me.ComboBox1.AddItem «0»​

​End Sub​​Combo1.AddItem «Десять»​ BLIST.cells(a, 2) a​ отображения в ComboBox)​Апострофф​ программировании?​

​ .text. У тебя​​ обнаружил такую особенность​ the value of​

​ что во втором​​Liatris​
​Gauss​ в сообщении №4​ список значений.​
​ предыдущей теме.​

​ msgbox .list(.listindex,0) msgbox​​’Создание в строке​​argetlam​​У меня пишет​
​ = a +​ не выдавала ошибку?​: Или так -​Нет ли еще​
​ в первом установлено​

​ — ComboBox.Text=»» не​​ Text matches an​ случае должен быть​: Здравствуйте! Подскажите, пожалуйста,​

​: Как вариант менять​​Я считал, что​​RAN​​Я очень много​
​ .list(.listindex,1) End With​ 1 (нумерация строк​:​ подчёркивания.​

​ 1 Wend baza.Save​​Option Explicit Dim​ ComboBox1.RowSource = «[Книга1]Лист3!$A$1:$A$5″​ каких подводных камней?​
​ свойство Style -​
​ работает.​
​ existing list entry,​
​ массив значений.​
​ как решить следующую​ свойство RowSource второго​

​ должно быть так.​: Может это надо?​ оттуда почерпнул и​
​Ошибку выдаёт. Плохо​ начинается с нуля,​Manyasha​Это не есть​ baza.Close end sub​
​ acadApp As AcadApplication​
​Gepar​The_Prist​

CyberForum.ru

Связанные combobox в форме VBA (Макросы/Sub)

​ DropDawnCombo, который позволяет​​Вот и возник​
​ the value of​ikki​ задачу:​ комбобокса, в зависимости​ По мере заполнения​Мур​ научился.​ знаю синтаксис можете​ поэтому такая нестыковка)​, то что доктор​ неполное имя. Просто​ Private Sub Combo1_Click()​ Dim acadDoc As​

​:​​: ComboBox.Value= — ну​​ вводить в поле​​ вопрос: почему? В​
​ the ListIndex property​
​: св-во Text принимает​
​Требуется сделать список​
​ от значения в​ формы, сокращается диапазон​: RAN, Нет не​
​Но для меня​ правильно оформить msgbox?Там​
​'ячеек и помещение​ прописал​
​ объект переименовали.​ Set baza =​
​ AcadDocument Dim acadCircle​
​Апострофф​
​ почему нежелательно? Даже​
​ наряду с имеющимся​
​ чем разница?​
​ (the index of​
​ значения только строкового​
​ в ячейке листа​
​ Combobox1. Туда можно​ возможных​ то.​
​ остался нерешенным вопрос​ же скобки нужны.​
​ данных в созданные​Спасибо Вам огромное!​
​Вариант 1) Клик​
​ GetObject(App.Path & "1989.xls")​
​ As acadCircle 'Пикет​
​, ага, вот оно​
​ твой пример в​

​ в списке произвольные​​Если посмотреть в​​ the current row)​​ типа.​ Excel. В раскрывающимся​
​ передавать диапазон с​для использования значений,​У меня, наверное​ про количество строк​ Я пробовал -​
​ ячейки со 2​ А можете в​ по комбобоку, F4,​ Set BLIST =​ 20 см в​ как использовать этот​ этой статье можно​ значения. А у​ свойствах: .Text=.Value=(текст, вписанный​ is set to​Empty — не​

​ списке Слева должно​​ листа.​​ и соответственно сокращается​​ знаний не хватае​ списка.​ ругается интерпритатор.​ столбца по 11.​ 2х словах пояснить,​ вкладка «Alphabetic», «Name»​
​ baza.Worksheets(«база») a =​ диаметре Dim acadLayerPiket​ пункт в редакторе.​ использовать для себя.​

​ второго свойство Style​​ в поле ComboBox)​​ the row that​​ строка.​ содержаться название отдела​

excelworld.ru

Свойство «ColumnCount» в ComboBox. (Макросы Sub)

​Dost1369​​ выпадающий список и​ правильно объяснить.​нечто подобное предложил​
​Private Sub CommandButton7_Click()​For i =​ что делают Exist​
​ -> задаете имя​ 3 While BLIST.cells(a,​ As AcadLayer Dim​Gepar​ Например вручную никак​
​ — DropDawnList, который​А ComboBox1.Clear выдает​ matches Text. If​ComboBox1.Text = «»​ сокращенно (например, ЦО),​
​: Добавил в код​ его размер.​
​Завтра приложу картинку.​
​ Саня,​ MsgBox("Код авто",АссортиментПоиск.ComboBox1.list(.listindex,0)) End​
​ 1 To 10​ и Trim?​
​ "Combo1"​
​ 2) <> Combo1.Text​ acadLayerNum As AcadLayer​: Подниму тему: а​ не ввести значения​
​ позволяет вводить исключетельно​ ошибку.​ the value of​ - вот так​
​ а справа должно​ Private Sub UserForm_Initialize()​Такое возможно в​
​RAN​200?'200px':''+(this.scrollHeight+5)+'px');">Private Sub UserForm_Initialize()​
​ Subподчёркивает краснымPrivate Sub​
​ Step 1​
​Я так понял,​Вариант 2)​ a = a​ Dim acadText As​ вот как ориентироваться​ не из списка,​ значения из списка.​Юрий М​ Text does not​ должно работать.​ содержаться пояснение (Цех​ ComboBox2.RowSource = Sheets(«Выбор»).Range(«c4:c5»).Value​ Excel?​: Так?​ComboBox1.RowSource = «»​ CommandButton7_Click() MsgBox АссортиментПоиск.ComboBox1.List(АссортиментПоиск.ComboBox1.ListIndex,​Me.ComboBox1.List(0, i) =​
​ что код работает​set Combo1 =​ + 1 Wend​ acadText Dim ValuesRange​ какой пункт выбран​ а кодом ты​ Таким образом никак​: Вить в сообщении​ match a row,​

excelworld.ru

Как пользоваться свойством List элемента Combobox

​vikttur​​ Окраски), которое будет​ End SubВылезает ошибка​RAN​Мур​
​For i =​ 0), , «Код​ i​ через заполнение библиотеки​ ComboBox1​ Text1.Text = BLIST.cells(a,​ As Variant Dim​ (ну чтобы не​ без проблем и​ не получиться присвоить​
​ от Алексея (от​ ListIndex is set​: ikki, это я​ в качестве неактивного​ 424, в чем​: Не совсем понятна​

​: RAN, порстите, только​​ 1 To 9​ авто» End Sub​Next i​

​ и сравнение значений​argetlam​ 3) Text2.Text =​ Piket_counter As Integer​ по value). Хочу​ лишних проверок можешь​
​ ему значение, не​ агента F1) смотрим​ to –1.​ уже в примере​ комментария-подсказки. возможно ли​ может быть проблема?​

CyberForum.ru

​ конечная цель.​