Не видит combobox в excel
Set MyBar = CommandBars.Add(ПанельИмя, msoBarTop, , True)
Set MyBox = MyBar.Controls.Add(msoControlComboBox)
[/vba]
А вот как раскрыть его, так же как раскрываем кликом мышки по треугольничку или нажатием кнопки Down после выделения ComboBox'а?
Чтобы список открылся и показал что в нем есть. Программно конечно.
Set MyBar = CommandBars.Add(ПанельИмя, msoBarTop, , True)
Set MyBox = MyBar.Controls.Add(msoControlComboBox)
[/vba]
А вот как раскрыть его, так же как раскрываем кликом мышки по треугольничку или нажатием кнопки Down после выделения ComboBox'а?
Чтобы список открылся и показал что в нем есть. Программно конечно. Bagir
Set MyBar = CommandBars.Add(ПанельИмя, msoBarTop, , True)
Set MyBox = MyBar.Controls.Add(msoControlComboBox)
[/vba]
А вот как раскрыть его, так же как раскрываем кликом мышки по треугольничку или нажатием кнопки Down после выделения ComboBox'а?
Чтобы список открылся и показал что в нем есть. Программно конечно. Автор - Bagir
Дата добавления - 15.01.2013 в 14:12
XL2010 Автор - Саня
Дата добавления - 15.01.2013 в 16:35
[/vba]
Но опять же с использованием SendKeys
[admin]bagir, используйте правильные теги
Какая ж это у Вас формула?[/admin]
[/vba]
Но опять же с использованием SendKeys
[admin]bagir, используйте правильные теги
Какая ж это у Вас формула?[/admin] Bagir
[/vba]
Но опять же с использованием SendKeys
[admin]bagir, используйте правильные теги
Какая ж это у Вас формула?[/admin] Автор - Bagir
Дата добавления - 15.01.2013 в 16:53
смысл-то какой?
ну раскрыли, ну показали.
программно.
дальше программа будет программно рассматривать этот список?
глазюками?
а дальше что?
смысл-то какой?
ну раскрыли, ну показали.
программно.
дальше программа будет программно рассматривать этот список?
глазюками?
а дальше что?
ikki
Serge_007, теги на всех сайтах разные. Это раз. Видя ошибку, я поправил, это два. Вы же вероятно потом поверх исправили старый еще мной не редактированный текст.
Serge_007, теги на всех сайтах разные. Это раз. Видя ошибку, я поправил, это два. Вы же вероятно потом поверх исправили старый еще мной не редактированный текст. Bagir
А на вопросы Зачем? отвечу просто: Я так хочу. И прошу совета можно ли это сделать. Я уже много лет в VBA и давно перестал задавать ненужные вопросы.
В дополнение скажу, что сделанное новшество понравилось всем операторам. Да впрочем они меня это и просили сделать.
А на вопросы Зачем? отвечу просто: Я так хочу. И прошу совета можно ли это сделать. Я уже много лет в VBA и давно перестал задавать ненужные вопросы.
В дополнение скажу, что сделанное новшество понравилось всем операторам. Да впрочем они меня это и просили сделать. Bagir
В дополнение скажу, что сделанное новшество понравилось всем операторам. Да впрочем они меня это и просили сделать. Автор - Bagir
Дата добавления - 15.01.2013 в 17:02
ну это важная задача, спору нет.
я просто пытался представить себе этот механизм.
макросом раскрывать список на панели.
решил спросить.
жаль - не узнал.
до свидания.
ну это важная задача, спору нет.
я просто пытался представить себе этот механизм.
макросом раскрывать список на панели.
решил спросить.
жаль - не узнал.
до свидания. ikki
ну это важная задача, спору нет.
я просто пытался представить себе этот механизм.
макросом раскрывать список на панели.
решил спросить.
жаль - не узнал.
до свидания. Автор - ikki
Дата добавления - 15.01.2013 в 17:12
Тогда скажите, чем кнопка тега означающая Код VBA (что написано во всплывающей подсказке при наведении на него курсора) на этом форуме отличается от кнопки на программерсфорум, где Вы кросс-постите? Но там Вы применили её, а здесь - теги формулы (со знаком в виде символа функций листа Excel), которые никакого отношения к VBA не имеет?
А дальше вводишь что-нибудь руками и жмешь Enter
По крайней мере так Bagir утверждает
Тогда скажите, чем кнопка тега означающая Код VBA (что написано во всплывающей подсказке при наведении на него курсора) на этом форуме отличается от кнопки на программерсфорум, где Вы кросс-постите? Но там Вы применили её, а здесь - теги формулы (со знаком в виде символа функций листа Excel), которые никакого отношения к VBA не имеет?
А дальше вводишь что-нибудь руками и жмешь Enter
По крайней мере так Bagir утверждает
Тогда скажите, чем кнопка тега означающая Код VBA (что написано во всплывающей подсказке при наведении на него курсора) на этом форуме отличается от кнопки на программерсфорум, где Вы кросс-постите? Но там Вы применили её, а здесь - теги формулы (со знаком в виде символа функций листа Excel), которые никакого отношения к VBA не имеет?
А дальше вводишь что-нибудь руками и жмешь Enter
По крайней мере так Bagir утверждает
Ну а для чего мне нужно раскрытие списка программно, ну что сказать, а вам действительно надо чтобы я тут всех грузил своими задачами? Ну воля ваша, просто если рассказал бы в двух словах, то смысл все равно был бы не ясен, и выглядело бы это все как то не очень.
Не вдаваясь в подробности опишу ситуацию. Есть список, большой такой. Есть поле поиска. Начинаем забивать в него фразу и наш список сдувается, отсеивая несовпадения.
Ну а теперь ближе к "телу". У меня есть палень в Excel. На ней сомбобокс. Есть база клиентов. Операторы кликают по комбо мышкой и забивают туда имя клиента. Если он один то загружаются его данные. Если тесок много, то нужно выбрать требуемого. Для этого и использую не просто текстовое поле, а комбобокс. Если совпадений много, но комбо заполняется ими, и далее макрос ждет дальшейшего выбора оператора. Оператор мышкой кликает по комбо и выбирает нужного.
Что сделал:
Если совпадений несколько, то после ввода имени и нажатия ентер, комбо сразу раскрывается. При этом клавишей вниз можно сразу перепрыгнуть в список и выбрать нужного. Видя сразу всех это делать намного удобней.
Ну а почему я использую именно комбобокс а не кучу других инетерсных фишек, я в двух словах тоже не скажу. В моей ситуации это удобней.
Ну вот как то так.
Ну а для чего мне нужно раскрытие списка программно, ну что сказать, а вам действительно надо чтобы я тут всех грузил своими задачами? Ну воля ваша, просто если рассказал бы в двух словах, то смысл все равно был бы не ясен, и выглядело бы это все как то не очень.
Не вдаваясь в подробности опишу ситуацию. Есть список, большой такой. Есть поле поиска. Начинаем забивать в него фразу и наш список сдувается, отсеивая несовпадения.
Ну а теперь ближе к "телу". У меня есть палень в Excel. На ней сомбобокс. Есть база клиентов. Операторы кликают по комбо мышкой и забивают туда имя клиента. Если он один то загружаются его данные. Если тесок много, то нужно выбрать требуемого. Для этого и использую не просто текстовое поле, а комбобокс. Если совпадений много, но комбо заполняется ими, и далее макрос ждет дальшейшего выбора оператора. Оператор мышкой кликает по комбо и выбирает нужного.
Что сделал:
Если совпадений несколько, то после ввода имени и нажатия ентер, комбо сразу раскрывается. При этом клавишей вниз можно сразу перепрыгнуть в список и выбрать нужного. Видя сразу всех это делать намного удобней.
Ну а почему я использую именно комбобокс а не кучу других инетерсных фишек, я в двух словах тоже не скажу. В моей ситуации это удобней.
Ну вот как то так. Bagir
Ну а для чего мне нужно раскрытие списка программно, ну что сказать, а вам действительно надо чтобы я тут всех грузил своими задачами? Ну воля ваша, просто если рассказал бы в двух словах, то смысл все равно был бы не ясен, и выглядело бы это все как то не очень.
Не вдаваясь в подробности опишу ситуацию. Есть список, большой такой. Есть поле поиска. Начинаем забивать в него фразу и наш список сдувается, отсеивая несовпадения.
Ну а теперь ближе к "телу". У меня есть палень в Excel. На ней сомбобокс. Есть база клиентов. Операторы кликают по комбо мышкой и забивают туда имя клиента. Если он один то загружаются его данные. Если тесок много, то нужно выбрать требуемого. Для этого и использую не просто текстовое поле, а комбобокс. Если совпадений много, но комбо заполняется ими, и далее макрос ждет дальшейшего выбора оператора. Оператор мышкой кликает по комбо и выбирает нужного.
Что сделал:
Если совпадений несколько, то после ввода имени и нажатия ентер, комбо сразу раскрывается. При этом клавишей вниз можно сразу перепрыгнуть в список и выбрать нужного. Видя сразу всех это делать намного удобней.
Ну а почему я использую именно комбобокс а не кучу других инетерсных фишек, я в двух словах тоже не скажу. В моей ситуации это удобней.
Ну вот как то так. Автор - Bagir
Дата добавления - 15.01.2013 в 18:06
Сделал простенький ComboBox в Екселе, все вроде нормально работает, но есть одна проблема - когда я открываю файл с этим ComboBox, то списка позиций в нем нет (он просто пустой). Оживить ComboBox можно, только если вручную запустить макрос из VB Editor.
В чем тут проблема? Почему ComboBox не запукается сразу при открытии файла.
Вот макрос для этого ComboBox'а:
Работа с ComboBox в Excel
Хотелось бы реализовать одну вещь по средствам ComboBox в Excel: Имеется табличка в БД в которой.
Combobox и диапазон ячеек в Excel
Используется лист1 экселя, как миниатюрная база данных. На листе2 есть списки с данными, которые.
Как в Excel создать combobox?
Как в Excel Создать combo-box. Но не средствами VBA а самим екселем? всмысле в ячейке - комбо.
Сдается мне непоможет! У тебя где он расположен на форме или на листе?
если на листе, то форма к нему не имеет никакого отношения. Тебе при старте книги нужно принудительно запускать макрос заполнения комбика. Вынеси свой код из кода Initialize и поставь в модуле в обычную Sub а потом как и писал vlth в событии Private Sub Workbook_Open()
вызови эту Sub.
Если ComboBox всё-таки на форме, строку UserForm.Show перепиши на ИмяТвоейФормы.Show
Код нужно размещать в модуле ЭтаКнига.
Спасибо всем за помощь!
to XPraptor: да, ComboBox расположен на листе обычной книги. Честно говоря не совсем понял твой совет. В VB я пока не очень разбираюсь. Если не сложно, не мог бы ты написать, как должен выглядет новый макрос (я так понимаю, нужно изменить только его первую часть).
Спасибо всем снова!
Если на листе то можно по хелпу сделать так:
Создание списка
Выделите диапазон данных, из которых необходимо создать список.
Примечание. Можно также выбрать диапазон ячеек, которые будут заданы в качестве списка, используя диалоговое окно Создание списка.
В меню Данные выберите пункт Список, а затем команду Создать список.
Если у выбранных данных есть заголовки, установите флажок Список с заголовками и нажмите кнопку OK.
Выбранный диапазон данных выделяется индикатором списка, а на панели инструментов Список становится доступной большая часть общих функциональных возможностей, связанных со списком.
Примечание. Чтобы отобразить панель инструментов Список, в меню Вид выберите Панели инструментов и щелкните Список.
После создания списка он будет выделен синей границей. Кроме того, в каждый столбец списка автоматически добавляется раскрывающийся автофильтр, а вниз списка помещается строка ввода. Если при помощи кнопки Переключить строку итогов панели инструментов Список будет добавлена строка итогов, то она будет отображаться под строкой ввода.
При выборе ячейки, строки или столбца вне списка он становится неактивным. Неактивный список окружен синей границей, и для него не отображаются строка ввода и раскрывающиеся автофильтры.
Примечание. Чтобы граница списка не отображалась, в меню Список выберите Скрывать границы неактивных списков.
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 для загрузки элементов в поле со списком по одному:
Создайте пользовательскую форму UserForm1 и разместите на ней поле со списком ComboBox1. Используйте метод AddItem для заполнения элемента управления значениями:
Скопируйте код и запустите его выполнение, на открывшейся форме раскройте поле со списком, в результате увидите, что элемент управления ComboBox1 заполнен соответствующими значениями:
Заполнение ComboBox значениями из массива
Для заполнения элемента управления ComboBox значениями из массива будем использовать свойство поля со списком List и функцию Array:
Результат выполнения кода будет таким же, как и на предыдущем изображении.
Таким же образом можно использовать не только функцию Array, но и переменную массива, предварительно объявленную и заполненную значениями:
Заполнение ComboBox значениями из ячеек
Для заполнения поля со списком значениями из диапазона ячеек рабочего листа будем использовать свойство комбинированного списка RowSource, предварительно заполнив диапазон «A1:A5» активного листа уже известными значениями:
Чтобы присвоить элементу управления ComboBox значения из диапазона ячеек любого рабочего листа, добавьте ссылку на него перед наименованием диапазона, например, замените «A1:A5» на «Лист1!A1:A5», и поле со списком будет заполнено значениями ячеек «A1:A5», расположенных на листе с именем «Лист1». Имя листа берется из наименования ярлыка.
Очистка ComboBox от значений
Очистить ComboBox можно как от всех значений сразу, так и удалить один или несколько значений (по одному) из списка.
Очистка ComboBox от всего списка значений:
Очистка ComboBox от одного значения:
где Index — порядковый номер элемента в списке ComboBox, нумерация начинается с нуля.
Автоматическое заполнение ComboBox
Предполагается, что, при открытии пользовательской формы или рабочего листа с ComboBox, поле со списком должно быть уже заполнено значениями. Как это сделать?
Заполнение ComboBox на форме
Автоматическое заполнение элемента управления ComboBox на пользовательской форме осуществляется с помощью процедуры UserForm_Initialize, размещенной в модуле этой формы:
Заполнение ComboBox на листе
Автоматическое заполнение элемента управления ComboBox из коллекции «Элементы ActiveX» на рабочем листе осуществляется с помощью процедуры Workbook_Open, размещенной в модуле «ЭтаКнига»:
Более подробно о заполнении данными ComboBox можно прочитать в статье о заполнении ListBox, так как оба эти элемента управления используют одинаковые способы заполнения.
Иногда возникает необходимость заполнения элементов управления ListBox и ComboBox уникальными значениями из диапазона ячеек с повторяющимся содержимым. Смотрите, как отсортировать уникальные элементы из списка с помощью объектов Collection и Dictionary.
Вы можете скачать файл Excel с представленными выше примерами. Файл упакован в ZIP-архив. Для проверки работоспособности кода, непосредственно в редакторе VBA помещайте курсор внутри тела каждой процедуры и нажимайте кнопку «Run Sub».
12 комментариев для “VBA Excel. ComboBox — заполнение поля со списком”
Не получился ни один из предложенных вариантов( С чем это может быть связано?
Спасибо за примеры, на одном все получилось. Чуток лишнее удалил и все ОК.
Потому что пример привязан к тестовому объекту.
Я тоже не мог понять, при отсутствии навыков.
Но вот четко к полю привязку по примеру удалось сделать.
Аналогично в powerpoint вставка поля со списком
Заполнить combobox неповторяющимися данными из столбца excel
Добрый вечер! никак не могу додумать как сделать есть огромная таблица, 5000 строк нужно .
Как заполнить Лист данными из второго Листа
Как заполнить Лист"1" с помощью чисел из Лист"2". Так чтобы числа из Лист "2" которие >=70%.
Заполнить ComboBox значениями из листа
Как заполнить ComboBox значениями из листа и\или внести сам лист(его название) в ComboBox?
Я новичок в VBA . у меня 3 листа . как мне привязать его к одному.. мне нужны данные с первого листа с ячейки B2 и вниз
Добавлено через 9 минут
И совсем забыл . имеются данные анализов.. нужно чтобы при выборе пациента в Comboboxе, автоматом выбирались показатели анализов и выводились на форме
подскажите как забить данными несколько comboboxоф на форме с разных листов, точнее с 2х
при том что активный должен быть третий
combobox заполняется корректно только на sheet5, файл не рискну скидывать там все еще более запутанно
Как c листа считать данные и заполнить ими ComboBox
Как в vba c листа excel считать в combobox данные?
Excel заполнение одного листа данными из другого
Gospoda, pomogite chajniku. Na odnom liste knigi est tablica - dopustim, v odnoj kolonke ID, v.
Заполнить Combobox данными из столбца БД
Добрый день :curtsy:! Я новичок в VB 6.0. Подскажите, как в VB 6.0 реализовать след. задачку: на.
Считать данные с листа EXCEL в Listview. Выбор листа в Combobox
Как считать с листа Excel - где его имя - выбранное значение из combobox. Если я правильно понял то.
Заполнить таблицу данными из другого листа
Добрый вечер! Умные люди, помогите заполнить 2 лист таблицы данными из первого листа. Пыталась с.
Читайте также: