автоматический поиск по тексту и выборка (вместо ctrl+f)

Пользователь

Сообщений: 64 Регистрация: 14.03.2010

27.03.2010 19:45:29

Попробовал по приемам и простым встроенным функциям но опять запутался(
прошу помощи)
есть база телефонная на 24000 элементов и обычный поиск не очень удобен, долго объяснять почему)
небольшой пример в файле
Спасибо!

Прикрепленные файлы

post_112065.xls (17 КБ)

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#2 27.03.2010 19:52:16 http://www.planetaexcel.ru/forum.php?thread_id=11478

Д_Р Пользователь Сообщений: 64 Регистрация: 14.03.2010	#3 27.03.2010 19:56:43 ага СПАС! - буду изучать! тока там вроде все с макросами... а на работе с этим есть небольшие сложности;)

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#4 27.03.2010 20:02:03 А без макросов и не выйдет, насколько я понял :-)

Д_Р Пользователь Сообщений: 64 Регистрация: 14.03.2010	#5 27.03.2010 20:11:10 ух - ну и дискуссия там))) скачал вроде бы "последнюю" версию, щас буду пробовать применять к своим - спасибо!

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#6 27.03.2010 20:26:28 Тема там закрыта, так что окончательное решение должно быть. ЗЫ Сам не смотрел, мне без надобности :)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#7 27.03.2010 21:46:12 А сколько этих "сюда ввожу" на листе?

Д_Р Гость	#8 27.03.2010 22:00:59 Один) совсем один;) это я просто для наглядности 2 сделал

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#9 28.03.2010 00:32:19 Можно так. Прикрепленные файлы post_112146.xls (32 КБ)

Д_Р

Пользователь

Сообщений: 64 Регистрация: 14.03.2010

#10

28.03.2010 12:51:50

Юрий большое спасибо, но посколько опыта в макросе не имею... вопросы следующие:
or i = 4 To iLastRow
If Cells(i, 2) Like "*" & Target & "*" Then
Cells(LastRow + 1, 10) = Cells(i, 2)
Cells(LastRow + 1, 11) = Cells(i, 3)
Cells(LastRow + 1, 12) = Cells(i, 4)
LastRow = LastRow + 1
здесь я все понял

If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G2")) Is Nothing Then

G2 - это куда вводим даные для поиска - а у меня в оригинале эта ячейка на другом листе?

iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
LastRow = Cells(Rows.Count, 7).End(xlUp).Row
Range(Cells(5, 7), Cells(LastRow + 1, 9)).Clear

это я так понимаю сам массив задается для поиска или что? не совсем понял(((

просто в таблица бывает меняется - а макрос естественно в отличие от формул автоматически не меняет адресс ячейки...
прошу помощи, потому что ваше решение очень простое и нужное!

Д_Р Пользователь Сообщений: 64 Регистрация: 14.03.2010	#11 28.03.2010 12:56:09 файл Прикрепленные файлы post_112169.xls (16 КБ)

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

#12

28.03.2010 12:57:01

- "а у меня в оригинале эта ячейка на другом листе" - тогда код нужно поместить в модуль того "другого" листа.
- iLastRow = Cells(Rows.Count, 2).End(xlUp).Row - номер последней строки для столбца №2
- LastRow = Cells(Rows.Count, 7).End(xlUp).Row - номер последней строки для столбца №7
- Range(Cells(5, 7), Cells(LastRow + 1, 9)).Clear - Очистка указанного диапазона

Д_Р Пользователь Сообщений: 64 Регистрация: 14.03.2010	#13 28.03.2010 13:45:29 ну конечно я поместил))) но не пойму как задать (прописать) ссылку на другой лист для поиска.. на этой странице он же мне только результат выводит( Прикрепленные файлы post_112177.xls (21.5 КБ)

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

#14

28.03.2010 14:13:02

{quote}{login=Д_Р}{date=28.03.2010 01:45}{thema=}{post}ну конечно я поместил)))({/post}{/quote}
Ничего и никуда Вы не поместили. А я писал: "тогда код нужно поместить в модуль того "другого" листа." Кроме того диапазоны какие-то странные задали...

Прикрепленные файлы

post_112179.xls (27.5 КБ)

Д_Р Пользователь Сообщений: 64 Регистрация: 14.03.2010	#15 28.03.2010 14:20:19 Юрий М Преогромнейшее спасибо! если бы он еще не обращал внимания на большие буквы) Новгород=новгород;) есть кошелек?;)

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

#16

28.03.2010 14:38:32

Специально для Вас небольшая выдержка из Правил: "…<STRONG>при этом старайтесь сохранить структуру, расположение таблиц, имена листов - аналогично оригиналу</STRONG>". <BR>Выполни Вы этот пункт - избежали бы лишней переписки.

Прикрепленные файлы

post_112182.xls (29 КБ)

Д_Р Пользователь Сообщений: 64 Регистрация: 14.03.2010	#17 28.03.2010 21:01:27 еще раз преогромнейшее! тока теперь он наоборот большие не воспринимает;) ну да и ладно!

Читают тему