Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выпадающий список ComboBox с поиском - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выпадающий список ComboBox с поиском (Макросы Sub)
Выпадающий список ComboBox с поиском
Poltava Дата: Пятница, 20.12.2013, 00:37 | Сообщение № 1
Группа: Друзья
Ранг: Форумчанин
Сообщений: 232
Репутация: 50 ±
Замечаний: 0% ±

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

И "в закромах", "кто-то", "реализации" :D


Сообщение отредактировал Poltava - Пятница, 20.12.2013, 10:17
 
Ответить
СообщениеХотелось бы организовать поиск в ComboBox не только по первым буквам, к примеру по аналогии с тем как это решено на сайте у ув. EducatedFool может у когото есть готовые наработки в закромах, либо кто-то готов поделиться своими идеями по реализации данного функционала.

И "в закромах", "кто-то", "реализации" :D

Автор - Poltava
Дата добавления - 20.12.2013 в 00:37
KuklP Дата: Пятница, 20.12.2013, 02:02 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Легко. Пример сюда, над чем изгаляться. yes


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Пятница, 20.12.2013, 10:34
 
Ответить
СообщениеЛегко. Пример сюда, над чем изгаляться. yes

Автор - KuklP
Дата добавления - 20.12.2013 в 02:02
AndreTM Дата: Пятница, 20.12.2013, 02:10 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
P.S. "по анАлогии"
И "в закромах", "кто-то", "реализации" :D

Poltava, а чем та надстройка от Nerv не подошла? Или нужен только функционал "поиска по буквам", без всего остального?


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение
P.S. "по анАлогии"
И "в закромах", "кто-то", "реализации" :D

Poltava, а чем та надстройка от Nerv не подошла? Или нужен только функционал "поиска по буквам", без всего остального?

Автор - AndreTM
Дата добавления - 20.12.2013 в 02:10
RAN Дата: Пятница, 20.12.2013, 02:50 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Ну влип, очкарик! :D


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНу влип, очкарик! :D

Автор - RAN
Дата добавления - 20.12.2013 в 02:50
anvg Дата: Пятница, 20.12.2013, 07:02 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Вариант на базе Filter Property (ADO)
Естественно, требует "допиливания", так набросок.
К сообщению приложен файл: FilterInCombo.xlsb (41.7 Kb)


Сообщение отредактировал anvg - Пятница, 20.12.2013, 07:05
 
Ответить
СообщениеВариант на базе Filter Property (ADO)
Естественно, требует "допиливания", так набросок.

Автор - anvg
Дата добавления - 20.12.2013 в 07:02
Poltava Дата: Пятница, 20.12.2013, 10:26 | Сообщение № 6
Группа: Друзья
Ранг: Форумчанин
Сообщений: 232
Репутация: 50 ±
Замечаний: 0% ±

KuklP, AndreTM, Да виноват, нашалил с орфографией, уже исправил.
Цитата
Poltava, а чем та надстройка от Nerv не подошла? Или нужен только функционал "поиска по буквам", без всего остального?
Надстройка интересна, но требует определенных правил при ее использовании, что не совсем совпадает с концепцией файла, в котором она будет применяться. Так как надстройка закрыта и код подсмотреть нельзя приходиться изобретать велосипед заново.
Цитата
Вариант на базе Filter Property (ADO)
Сейчас посмотрим.


Сообщение отредактировал Poltava - Пятница, 20.12.2013, 10:27
 
Ответить
СообщениеKuklP, AndreTM, Да виноват, нашалил с орфографией, уже исправил.
Цитата
Poltava, а чем та надстройка от Nerv не подошла? Или нужен только функционал "поиска по буквам", без всего остального?
Надстройка интересна, но требует определенных правил при ее использовании, что не совсем совпадает с концепцией файла, в котором она будет применяться. Так как надстройка закрыта и код подсмотреть нельзя приходиться изобретать велосипед заново.
Цитата
Вариант на базе Filter Property (ADO)
Сейчас посмотрим.

Автор - Poltava
Дата добавления - 20.12.2013 в 10:26
KuklP Дата: Пятница, 20.12.2013, 10:28 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Андрей, спасибо за пример, попаразитировал на нем :) Вариант без тяжелой артиллерии:
[vba]
Код
Private Sub cmbStrat_Change()
     Dim a
     cmbStrat.List = [ComboData].Value
     a = Application.Transpose(cmbStrat.List)
     If cmbStrat.Value = "" Then
         cmbStrat.List = [ComboData].Value
     Else
         a = Filter(a, cmbStrat.Value, True, vbTextCompare)
         cmbStrat.List = a
     End If
End Sub

Private Sub cmbStrat_GotFocus()
     cmbStrat.List = [ComboData].Value
End Sub
[/vba]
К сообщению приложен файл: 3895043.xlsb (37.1 Kb)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеАндрей, спасибо за пример, попаразитировал на нем :) Вариант без тяжелой артиллерии:
[vba]
Код
Private Sub cmbStrat_Change()
     Dim a
     cmbStrat.List = [ComboData].Value
     a = Application.Transpose(cmbStrat.List)
     If cmbStrat.Value = "" Then
         cmbStrat.List = [ComboData].Value
     Else
         a = Filter(a, cmbStrat.Value, True, vbTextCompare)
         cmbStrat.List = a
     End If
End Sub

Private Sub cmbStrat_GotFocus()
     cmbStrat.List = [ComboData].Value
End Sub
[/vba]

Автор - KuklP
Дата добавления - 20.12.2013 в 10:28
anvg Дата: Пятница, 20.12.2013, 10:51 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Сергей, да я не спорю, так вариант. Ваш, думаю, лучше. <_<
Мой "допиливать" нужно, так как есть ограничения на использование *, да и особенности с "утечкой" памяти (упомянутой как-то Владимиром (ZVI)) могут сказаться.


Сообщение отредактировал anvg - Пятница, 20.12.2013, 10:53
 
Ответить
СообщениеСергей, да я не спорю, так вариант. Ваш, думаю, лучше. <_<
Мой "допиливать" нужно, так как есть ограничения на использование *, да и особенности с "утечкой" памяти (упомянутой как-то Владимиром (ZVI)) могут сказаться.

Автор - anvg
Дата добавления - 20.12.2013 в 10:51
KuklP Дата: Пятница, 20.12.2013, 10:53 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
А я не говорил, что Ваш хуже. :) Просто вариант.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеА я не говорил, что Ваш хуже. :) Просто вариант.

Автор - KuklP
Дата добавления - 20.12.2013 в 10:53
SkyPro Дата: Пятница, 20.12.2013, 11:30 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Охренеть! Спасибо за тему :)


skypro1111@gmail.com
 
Ответить
СообщениеОхренеть! Спасибо за тему :)

Автор - SkyPro
Дата добавления - 20.12.2013 в 11:30
Poltava Дата: Пятница, 20.12.2013, 16:02 | Сообщение № 11
Группа: Друзья
Ранг: Форумчанин
Сообщений: 232
Репутация: 50 ±
Замечаний: 0% ±

Спасибо. Будем экспериментировать


Сообщение отредактировал Poltava - Пятница, 20.12.2013, 16:02
 
Ответить
СообщениеСпасибо. Будем экспериментировать

Автор - Poltava
Дата добавления - 20.12.2013 в 16:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выпадающий список ComboBox с поиском (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!