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

Вход

Регистрация

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

 

= Мир MS Excel/Сombobox в userform как сделать поиск из выпадающего списка? - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сombobox в userform как сделать поиск из выпадающего списка? (Макросы/Sub)
Сombobox в userform как сделать поиск из выпадающего списка?
RomanCompass Дата: Понедельник, 23.08.2021, 18:23 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
Уважаемые знатоки и все кто разбирается в ЭКСЕЛЬ лучше чем я :D
Нужна помощь с осуществление такой задачи .
Если кто знает как сделать поиск по первым буквам в выпадающем списке Сombobox в userform буду признателен ?
К сообщению приложен файл: NEWtestxlsm.xlsm (89.9 Kb)


Сообщение отредактировал RomanCompass - Понедельник, 23.08.2021, 22:33
 
Ответить
СообщениеУважаемые знатоки и все кто разбирается в ЭКСЕЛЬ лучше чем я :D
Нужна помощь с осуществление такой задачи .
Если кто знает как сделать поиск по первым буквам в выпадающем списке Сombobox в userform буду признателен ?

Автор - RomanCompass
Дата добавления - 23.08.2021 в 18:23
Kuzmich Дата: Понедельник, 23.08.2021, 18:48 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
 
Ответить
СообщениеА здесь смотрели http://www.excelworld.ru/board/vba/tricks/find_in_database/9-1-0-27

Автор - Kuzmich
Дата добавления - 23.08.2021 в 18:48
RomanCompass Дата: Понедельник, 23.08.2021, 22:35 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
ВОТ ЗДЕСЬ КАК ОСУЩЕСТВИТЬ ПОИСК ?
К сообщению приложен файл: 1701276.png (133.2 Kb)


Сообщение отредактировал RomanCompass - Понедельник, 23.08.2021, 22:38
 
Ответить
СообщениеВОТ ЗДЕСЬ КАК ОСУЩЕСТВИТЬ ПОИСК ?

Автор - RomanCompass
Дата добавления - 23.08.2021 в 22:35
bmv98rus Дата: Вторник, 24.08.2021, 08:24 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4108
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
вы ж сами это запретили
нужно в инициализации формы
[vba]
Код
ComboBox_coutry.MatchEntry = fmMatchEntryFirstLetter
[/vba]


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениевы ж сами это запретили
нужно в инициализации формы
[vba]
Код
ComboBox_coutry.MatchEntry = fmMatchEntryFirstLetter
[/vba]

Автор - bmv98rus
Дата добавления - 24.08.2021 в 08:24
RomanCompass Дата: Пятница, 27.08.2021, 10:55 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
Спасибо за подсказку !
В принципе можно и так работать ,но хотелось бы чтобы поиск работал не только по первой букве но и по совпадению 2-3 символов независимости от их положения .Например Skoda Fabia ITY 7916 ,при наборе 79 чтобы выделялась из списка .
как то так
 
Ответить
СообщениеСпасибо за подсказку !
В принципе можно и так работать ,но хотелось бы чтобы поиск работал не только по первой букве но и по совпадению 2-3 символов независимости от их положения .Например Skoda Fabia ITY 7916 ,при наборе 79 чтобы выделялась из списка .
как то так

Автор - RomanCompass
Дата добавления - 27.08.2021 в 10:55
bmv98rus Дата: Пятница, 27.08.2021, 11:53 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4108
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
Это совершенно иное, тут надо по событию ввода символа перезапрашивать источник с фильтром, но при этом заполнять комбо списком каждый раз и это не ссылка на диапазон.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеЭто совершенно иное, тут надо по событию ввода символа перезапрашивать источник с фильтром, но при этом заполнять комбо списком каждый раз и это не ссылка на диапазон.

Автор - bmv98rus
Дата добавления - 27.08.2021 в 11:53
RomanCompass Дата: Суббота, 28.08.2021, 17:35 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, Можно по подробней ?
дело в том что я только только начинаю вникать в елсел и пока мало что понимаю .
 
Ответить
Сообщениеbmv98rus, Можно по подробней ?
дело в том что я только только начинаю вникать в елсел и пока мало что понимаю .

Автор - RomanCompass
Дата добавления - 28.08.2021 в 17:35
bmv98rus Дата: Суббота, 28.08.2021, 18:11 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4108
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
Можно по подробней
боюсь что под этим подразумевается нужен готовый код, а он будет длинее 10 строк в которые я должен уложится, так как 11 и последующие писать лень.

Если серьезно, то отключить тот поиск который встроен и по событию ввода в комбобокс символа, осуществлять поиск и наполнение комбобокса элементами одним из способов. Это может быть просто перебор диапазон , массива со сравнением а есть ли то что написано там и если есть то добавляем в список, или ADO запрос к диапазону .


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Можно по подробней
боюсь что под этим подразумевается нужен готовый код, а он будет длинее 10 строк в которые я должен уложится, так как 11 и последующие писать лень.

Если серьезно, то отключить тот поиск который встроен и по событию ввода в комбобокс символа, осуществлять поиск и наполнение комбобокса элементами одним из способов. Это может быть просто перебор диапазон , массива со сравнением а есть ли то что написано там и если есть то добавляем в список, или ADO запрос к диапазону .

Автор - bmv98rus
Дата добавления - 28.08.2021 в 18:11
RomanCompass Дата: Суббота, 28.08.2021, 18:34 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, кроме того что это так просто и что вам лень писать дранный код не чего не понял .
Как бы не на что не претендую .
попытаюсь разобраться .
 
Ответить
Сообщениеbmv98rus, кроме того что это так просто и что вам лень писать дранный код не чего не понял .
Как бы не на что не претендую .
попытаюсь разобраться .

Автор - RomanCompass
Дата добавления - 28.08.2021 в 18:34
Pelena Дата: Суббота, 28.08.2021, 19:03 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19185
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
RomanCompass, по мотивам ссылки из второго сообщения
К сообщению приложен файл: 9837161.xlsm (72.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеRomanCompass, по мотивам ссылки из второго сообщения

Автор - Pelena
Дата добавления - 28.08.2021 в 19:03
RomanCompass Дата: Суббота, 28.08.2021, 22:23 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
Pelena, добавил к коду ComboBox_coutry.DropDown и все заработало как и хотел .
Спасибо большое !


Сообщение отредактировал RomanCompass - Суббота, 28.08.2021, 22:36
 
Ответить
СообщениеPelena, добавил к коду ComboBox_coutry.DropDown и все заработало как и хотел .
Спасибо большое !

Автор - RomanCompass
Дата добавления - 28.08.2021 в 22:23
RomanCompass Дата: Суббота, 28.08.2021, 22:38 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
Pelena, рано я обрадовался .
Не работает заполнение Combox-a в форме по символам .
 
Ответить
СообщениеPelena, рано я обрадовался .
Не работает заполнение Combox-a в форме по символам .

Автор - RomanCompass
Дата добавления - 28.08.2021 в 22:38
bmv98rus Дата: Воскресенье, 29.08.2021, 08:20 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4108
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
ComboBox_coutry.DropDown
просто нужно обрабатывать события Key..... например KeyUp только нужно помнить что ряд кнопок сисетмные например ESC и тут тоже надо обработать.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
ComboBox_coutry.DropDown
просто нужно обрабатывать события Key..... например KeyUp только нужно помнить что ряд кнопок сисетмные например ESC и тут тоже надо обработать.

Автор - bmv98rus
Дата добавления - 29.08.2021 в 08:20
RomanCompass Дата: Воскресенье, 29.08.2021, 16:35 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 10 ±
Замечаний: 0% ±

Excel 2016
bmv98rus,для меня это пока что темый лес .Я только начинаю пользоваться excel .
 
Ответить
Сообщениеbmv98rus,для меня это пока что темый лес .Я только начинаю пользоваться excel .

Автор - RomanCompass
Дата добавления - 29.08.2021 в 16:35
bmv98rus Дата: Воскресенье, 29.08.2021, 19:12 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4108
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
[vba]
Код
Private Sub ComboBox_coutry_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim x, s As String, s1
    With ComboBox_coutry
        x = Лист2.ListObjects("Таблица1").DataBodyRange.Columns(2).Value
        For Each s1 In x
            If InStr(LCase(s1), LCase(.Text)) Then s = s & "~" & s1   'поиск по любому вхождению
        Next
        .List = Split(Mid(s, 2), "~")
        .DropDown
    End With
End Sub
[/vba] да и ESC и прочее надо обрабатывать.


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Воскресенье, 29.08.2021, 19:13
 
Ответить
Сообщение[vba]
Код
Private Sub ComboBox_coutry_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim x, s As String, s1
    With ComboBox_coutry
        x = Лист2.ListObjects("Таблица1").DataBodyRange.Columns(2).Value
        For Each s1 In x
            If InStr(LCase(s1), LCase(.Text)) Then s = s & "~" & s1   'поиск по любому вхождению
        Next
        .List = Split(Mid(s, 2), "~")
        .DropDown
    End With
End Sub
[/vba] да и ESC и прочее надо обрабатывать.

Автор - bmv98rus
Дата добавления - 29.08.2021 в 19:12
R_Dmitry Дата: Воскресенье, 29.08.2021, 22:00 | Сообщение № 16
Группа: Друзья
Ранг: Участник
Сообщений: 74
Репутация: 34 ±
Замечаний: 0% ±

2010
Я бы вынес обращение к листу из этого события.
К сообщению приложен файл: 4301278.xlsm (73.3 Kb)


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
СообщениеЯ бы вынес обращение к листу из этого события.

Автор - R_Dmitry
Дата добавления - 29.08.2021 в 22:00
bmv98rus Дата: Воскресенье, 29.08.2021, 22:26 | Сообщение № 17
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4108
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
Я бы вынес обращение к листу
это не главное, а вот то что ESC отрабатывает не корректно, должен происходить сброс или... Прочие кнопочки тоже надо предусматривать типа TAB ....


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Я бы вынес обращение к листу
это не главное, а вот то что ESC отрабатывает не корректно, должен происходить сброс или... Прочие кнопочки тоже надо предусматривать типа TAB ....

Автор - bmv98rus
Дата добавления - 29.08.2021 в 22:26
R_Dmitry Дата: Воскресенье, 29.08.2021, 23:30 | Сообщение № 18
Группа: Друзья
Ранг: Участник
Сообщений: 74
Репутация: 34 ±
Замечаний: 0% ±

2010
ESC отрабатывает не корректно

Это Вы так решили? у меня корректно, так как и задумал.


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
Сообщение
ESC отрабатывает не корректно

Это Вы так решили? у меня корректно, так как и задумал.

Автор - R_Dmitry
Дата добавления - 29.08.2021 в 23:30
bmv98rus Дата: Понедельник, 30.08.2021, 10:39 | Сообщение № 19
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4108
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
так как и задумал

Тогда , какова была задумка?


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
так как и задумал

Тогда , какова была задумка?

Автор - bmv98rus
Дата добавления - 30.08.2021 в 10:39
R_Dmitry Дата: Понедельник, 30.08.2021, 11:53 | Сообщение № 20
Группа: Друзья
Ранг: Участник
Сообщений: 74
Репутация: 34 ±
Замечаний: 0% ±

2010
Ну Вы же код читать умеете :)


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
СообщениеНу Вы же код читать умеете :)

Автор - R_Dmitry
Дата добавления - 30.08.2021 в 11:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сombobox в userform как сделать поиск из выпадающего списка? (Макросы/Sub)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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