Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 12.12.2007, 15:58   #11
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

У Вас изменились столбцы.
В этом файле все поправлено.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 30.01.2008 в 09:43.
SAS888 вне форума
Старый 12.12.2007, 16:04   #12
Romuald
Форумчанин
 
Регистрация: 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āš.
Romuald вне форума
Старый 12.12.2007, 16:06   #13
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Извини, посмотрю завтра.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 13.12.2007, 09:46   #14
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Да, это я упустил. Дело в том, что слова в сравниваемых строках написаны в разных регистрах. В прикрепленном файле этот недостаток исправлен.
И еще такой вопрос.
Как Вы, я надеюсь, заметили, что предложенный метод основан на том, что строки разбиваются на отдельные слова и каждое с каждым сравнивается.
Но возможен и такой вариант:
Например, строка "ABC-123" (без пробелов) и строка "ABC - 123" (с пробелами) никогда не дадут "частичного" совпадения, т. к. в качестве разделителя фрагментов строки используется пробел. Это извечная проблема при написании документов вручную (да еще и разными людьми).
Так что фраза "похожие строки" весьма условна. Конечно, можно сделать много проходов поиска с различными разделителями. Но вы представляете во что это выльется? Таких символов может быть очень много ([space]; "."; ","; "-"; "_" и т. д.). Т. е. чтобы использовать предложенный метод, нужно чтобы и "База" и "Заявка" были заполнены аналогичным образом.
Но можно попробовать решить Вашу задачу еще и таким способом:
После выбора строки в "Заявке" и запуска соответствующего макроса, появится окно для ввода искомого фрагмента. Вводим, жмем ОК. Все остальное - аналогично, только теперь поиск будет происходить по введенному фрагменту строки (не зависимо от разделителей и т. п.).
Если заинтересует, то код несложно доработать.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 30.01.2008 в 09:43.
SAS888 вне форума
Старый 13.12.2007, 10:43   #15
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию

Если Вам не трудно, сделайте такой вариант
Заранее оч. благодарен
Romualds.Davidovichs@LRC.LDZ.LV
Romuald вне форума
Старый 13.12.2007, 10:56   #16
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Этот вариант проще, быстрее, но требует ручного ввода фрагмента для поиска.
Так же добавлено подтверждение вставки номера. Это для того, что вдруг, по ошибке, макрос "InsertNum()" был запущен при неверном выборе строки. В первоначальном варианте номер вставлялся автоматом (даже если он отсутствовал) и была возможность затереть уже существующий. Можно эту ситуацию запретить по умолчанию, но вдруг надо изменить существующий номер. Поэтому выдается запрос на подтверждение.
Желаю удачи.
PS. В коде VBA замените все фразы на Ваш язык.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 30.01.2008 в 09:43.
SAS888 вне форума
Старый 13.12.2007, 11:00   #17
ZORRO2005
Форумчанин
 
Аватар для ZORRO2005
 
Регистрация: 26.11.2006
Сообщений: 584
По умолчанию

В нашей фирме была похожая проблема с уникальностью артикулов.
Нужно было сделать быстрый поиск, но CTRL+F не очень удобен.
Решили так:
Набирается какая-то последовательность символов в окошко поиска:
Например Līkums и выводится список артикулов где есть эта последовательность,а затем выбираешь нужный артикул.
Т.е. отсекаются все артикула где нет этой последовательности.
Получается очень быстро.
Правда пришлось написать программу на VB.
ZORRO2005 вне форума
Старый 13.12.2007, 11:04   #18
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Предложенный мной второй вариант так и делает.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 13.12.2007, 16:26   #19
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию

Спасибо огромное очень все просто и классно
Можно ,если будут вопросы, обращаться?
Romuald вне форума
Старый 13.12.2007, 16:57   #20
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию

Подскажите, пожалуйста, а можно в форме сделать дополнительный критерий для поиска Т.е. или через символ "*"
*Втулка*56*
и она находит " Цилиндровая втулка М62.561.2Э "
или дополнительное поле поиска:
Втулка
56
что-бы можно было-бы точнее найти ?
Romuald вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Название окна приложения 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