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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск в выпадающем списке в любом месте слова - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в выпадающем списке в любом месте слова (Макросы/Sub)
Поиск в выпадающем списке в любом месте слова
Jimmy Дата: Воскресенье, 18.05.2014, 22:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Столкнулся с необходимостью поиска в в одном листе для того что бы при помощи ВПР подставить значение справа от найденного в другой лист.
База содержит почти 30000 наименований, так что поиск по первым буквам слова может быть вечным.
Возможно кто-то уже делал поиск по знакам расположенным в любом месте ячейки при помощи выпадающего списка отсеивающего лишние значения? . В ячейках есть длинные предложения с пробелами и цифрами.Я находил похожие темы, но все они не совсем подходят для моих целей.
Я находил варианты с надстройкой, но очень нужно все сделать одним файлом :'(
К сообщению приложен файл: 451239722.xls (24.0 Kb)


Я честно пытаюсь не задавать глупых вопросов...

Сообщение отредактировал Jimmy - Воскресенье, 18.05.2014, 22:09
 
Ответить
СообщениеСтолкнулся с необходимостью поиска в в одном листе для того что бы при помощи ВПР подставить значение справа от найденного в другой лист.
База содержит почти 30000 наименований, так что поиск по первым буквам слова может быть вечным.
Возможно кто-то уже делал поиск по знакам расположенным в любом месте ячейки при помощи выпадающего списка отсеивающего лишние значения? . В ячейках есть длинные предложения с пробелами и цифрами.Я находил похожие темы, но все они не совсем подходят для моих целей.
Я находил варианты с надстройкой, но очень нужно все сделать одним файлом :'(

Автор - Jimmy
Дата добавления - 18.05.2014 в 22:06
krosav4ig Дата: Понедельник, 19.05.2014, 01:02 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
я чето не понял, что искать-то надо?


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениея чето не понял, что искать-то надо?

Автор - krosav4ig
Дата добавления - 19.05.2014 в 01:02
Pelena Дата: Понедельник, 19.05.2014, 07:20 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19184
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
В Готовых решениях в макросе есть два варианта. Для поиска по любому вхождению надо раскомментировать соответствующие строчки


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВ Готовых решениях в макросе есть два варианта. Для поиска по любому вхождению надо раскомментировать соответствующие строчки

Автор - Pelena
Дата добавления - 19.05.2014 в 07:20
Jimmy Дата: Понедельник, 19.05.2014, 17:37 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Я попытался максимально описать ситуацию в самом файле.
Не обессудьте если что не понятно.
Буду рад любой помощи. Сам уже второй месяц бьюсь.
К сообщению приложен файл: 45123972-.xls (36.5 Kb)


Я честно пытаюсь не задавать глупых вопросов...
 
Ответить
СообщениеЯ попытался максимально описать ситуацию в самом файле.
Не обессудьте если что не понятно.
Буду рад любой помощи. Сам уже второй месяц бьюсь.

Автор - Jimmy
Дата добавления - 19.05.2014 в 17:37
nilem Дата: Вторник, 20.05.2014, 16:35 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Вот, попробуйте
К сообщению приложен файл: 3728174.xls (54.0 Kb)


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеВот, попробуйте

Автор - nilem
Дата добавления - 20.05.2014 в 16:35
Jimmy Дата: Среда, 21.05.2014, 00:17 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
nilem, подскажите почему у меня выскакивает ошибка 438 в строке If Target.CountLarge > 1 Then Exit Sub?
Я вроде ничего не менял (


Я честно пытаюсь не задавать глупых вопросов...
 
Ответить
Сообщениеnilem, подскажите почему у меня выскакивает ошибка 438 в строке If Target.CountLarge > 1 Then Exit Sub?
Я вроде ничего не менял (

Автор - Jimmy
Дата добавления - 21.05.2014 в 00:17
krosav4ig Дата: Среда, 21.05.2014, 02:04 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
по моему CountLarge введен начиная с 2007 и не совместим с 2003. Попробуйте заменить на Target.Count > 1


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениепо моему CountLarge введен начиная с 2007 и не совместим с 2003. Попробуйте заменить на Target.Count > 1

Автор - krosav4ig
Дата добавления - 21.05.2014 в 02:04
Jimmy Дата: Среда, 21.05.2014, 12:49 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
krosav4ig, спасибо.Помогло.
Товарищи а вы могли бы заодно помочь в поиске настроить действия.

Что бы поиск можно было производить в любой клетке листа ( или подскажите где поменять столбец где запускается поиск)по дабл клику, с запуском по одному клику есть проблемка, что когда хочешь изменить уже выбранный вариант это не возможно - после попытки выбрать ячейку опять появляется окно поиска. :D
По нажатию ESC окно поиска бы закрывалось
После установки курсора в нужную клетку и печати сочетания букв для поиска при нажатии стрелки на клавиатуре вправо курсор бы переходил в окно с результатами поиска.
По нажатию ENTER выбранное значение фиксировалось бы в клетке поиска и поиск бы переходил на клетку ниже.
И я не смог найти где задается размер окна ввода и размер окна с результатами- у меня есть длинные словосочетания.
Кстати, может подскажете, у меня список для поиска в 30000 строк.Естественно он подтормаживает.Это неизбежно?
Я уже наверно наглею, <_< , но все же...


Я честно пытаюсь не задавать глупых вопросов...

Сообщение отредактировал Jimmy - Среда, 21.05.2014, 21:35
 
Ответить
Сообщениеkrosav4ig, спасибо.Помогло.
Товарищи а вы могли бы заодно помочь в поиске настроить действия.

Что бы поиск можно было производить в любой клетке листа ( или подскажите где поменять столбец где запускается поиск)по дабл клику, с запуском по одному клику есть проблемка, что когда хочешь изменить уже выбранный вариант это не возможно - после попытки выбрать ячейку опять появляется окно поиска. :D
По нажатию ESC окно поиска бы закрывалось
После установки курсора в нужную клетку и печати сочетания букв для поиска при нажатии стрелки на клавиатуре вправо курсор бы переходил в окно с результатами поиска.
По нажатию ENTER выбранное значение фиксировалось бы в клетке поиска и поиск бы переходил на клетку ниже.
И я не смог найти где задается размер окна ввода и размер окна с результатами- у меня есть длинные словосочетания.
Кстати, может подскажете, у меня список для поиска в 30000 строк.Естественно он подтормаживает.Это неизбежно?
Я уже наверно наглею, <_< , но все же...

Автор - Jimmy
Дата добавления - 21.05.2014 в 12:49
hemmel Дата: Четверг, 06.08.2015, 12:24 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010

nilem, Подскажите как расширить окно выпадающего списка
К сообщению приложен файл: 2124185.jpg (44.6 Kb)


Сообщение отредактировал hemmel - Четверг, 06.08.2015, 12:28
 
Ответить
Сообщение
nilem, Подскажите как расширить окно выпадающего списка

Автор - hemmel
Дата добавления - 06.08.2015 в 12:24
hemmel Дата: Четверг, 06.08.2015, 13:55 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Вернулся в тему чтобы написать, что вопрос решился. Наугад набил команду [vba]
Код
Me.ListBox1.Width =
[/vba] и она оказалась рабочей.
 
Ответить
СообщениеВернулся в тему чтобы написать, что вопрос решился. Наугад набил команду [vba]
Код
Me.ListBox1.Width =
[/vba] и она оказалась рабочей.

Автор - hemmel
Дата добавления - 06.08.2015 в 13:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в выпадающем списке в любом месте слова (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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