![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
У Вас изменились столбцы.
В этом файле все поправлено.
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 30.01.2008 в 09:43. |
![]() |
![]() |
#12 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
![]()
Странно еще какая фишка:
В заявке (номер строки 1576) , макрос отбирает из базы с таким названием очень мало , проверил - в базе их намного больше во их сколько : 11000000489 20058 Līkumi 50,70,89,100 11000000491 20051 Līkums 15mm 11000000493 20053 Līkums 40 11000000495 20049 Līkums pl. 11000001115 96070 Līkums 11000001317 D90 līkums 11000005336 996050 Līkums 89 īss 11000005338 996052 Līkums 20 11000005342 Līkums 60-70 mm 11000005343 996057 Līkums 15 mm 11000005346 Līkums 40 mm 11000006718 Līkums d.50 11000012511 Līkums D 50x45 11000012846 Līkums, leņķis (plintusam) 11000015057 Līkums īsais D108 11000016431 Sifons ar līkumu 11000020371 Līkums d.25 11000020626 299085 LĪKUMS 11000020627 299142 LĪKUMS 1/2 11000020628 LĪKUMS 32METIN. 11000022371 299411 LĪKUMS 3/4 11000027972 Kanalizācijas līkums 100/87 11000028229 LĪKUMS D110/45 11000028404 Līkums metināš. |
![]() |
![]() |
#13 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Извини, посмотрю завтра.
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
#14 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Да, это я упустил. Дело в том, что слова в сравниваемых строках написаны в разных регистрах. В прикрепленном файле этот недостаток исправлен.
И еще такой вопрос. Как Вы, я надеюсь, заметили, что предложенный метод основан на том, что строки разбиваются на отдельные слова и каждое с каждым сравнивается. Но возможен и такой вариант: Например, строка "ABC-123" (без пробелов) и строка "ABC - 123" (с пробелами) никогда не дадут "частичного" совпадения, т. к. в качестве разделителя фрагментов строки используется пробел. Это извечная проблема при написании документов вручную (да еще и разными людьми). Так что фраза "похожие строки" весьма условна. Конечно, можно сделать много проходов поиска с различными разделителями. Но вы представляете во что это выльется? Таких символов может быть очень много ([space]; "."; ","; "-"; "_" и т. д.). Т. е. чтобы использовать предложенный метод, нужно чтобы и "База" и "Заявка" были заполнены аналогичным образом. Но можно попробовать решить Вашу задачу еще и таким способом: После выбора строки в "Заявке" и запуска соответствующего макроса, появится окно для ввода искомого фрагмента. Вводим, жмем ОК. Все остальное - аналогично, только теперь поиск будет происходить по введенному фрагменту строки (не зависимо от разделителей и т. п.). Если заинтересует, то код несложно доработать.
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 30.01.2008 в 09:43. |
![]() |
![]() |
#15 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
![]() |
![]() |
![]() |
#16 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Этот вариант проще, быстрее, но требует ручного ввода фрагмента для поиска.
Так же добавлено подтверждение вставки номера. Это для того, что вдруг, по ошибке, макрос "InsertNum()" был запущен при неверном выборе строки. В первоначальном варианте номер вставлялся автоматом (даже если он отсутствовал) и была возможность затереть уже существующий. Можно эту ситуацию запретить по умолчанию, но вдруг надо изменить существующий номер. Поэтому выдается запрос на подтверждение. Желаю удачи. PS. В коде VBA замените все фразы на Ваш язык.
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 30.01.2008 в 09:43. |
![]() |
![]() |
#17 |
Форумчанин
Регистрация: 26.11.2006
Сообщений: 584
|
![]()
В нашей фирме была похожая проблема с уникальностью артикулов.
Нужно было сделать быстрый поиск, но CTRL+F не очень удобен. Решили так: Набирается какая-то последовательность символов в окошко поиска: Например Līkums и выводится список артикулов где есть эта последовательность,а затем выбираешь нужный артикул. Т.е. отсекаются все артикула где нет этой последовательности. Получается очень быстро. Правда пришлось написать программу на VB. |
![]() |
![]() |
#18 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Предложенный мной второй вариант так и делает.
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
#19 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
![]()
Спасибо огромное очень все просто и классно
Можно ,если будут вопросы, обращаться? |
![]() |
![]() |
#20 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
![]()
Подскажите, пожалуйста, а можно в форме сделать дополнительный критерий для поиска Т.е. или через символ "*"
*Втулка*56* и она находит " Цилиндровая втулка М62.561.2Э " или дополнительное поле поиска: Втулка 56 что-бы можно было-бы точнее найти ? |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Название окна приложения | King Nothing | Win Api | 8 | 27.01.2009 17:11 |
Как изменить название темы? | veter_s_morya | О форуме и сайтах клуба | 1 | 24.06.2008 09:17 |
макросом дополнить название | Romuald | Microsoft Office Excel | 2 | 22.05.2008 17:31 |
название для кода | Romuald | Microsoft Office Excel | 2 | 25.03.2008 09:52 |