Поиск по номеру автомобиля

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Поиск по номеру автомобиля (Макросы/Sub)

velikoleg

Дата: Среда, 14.02.2018, 14:45 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте!
В разделе "готовые решения" добрейший человек создал и выложил файл с очень удобной функцией поиска http://www.excelworld.ru/board/vba/tricks/find_in_database/9-1-0-27
Помогите пожалуйста на основе этого примера сделать поиск не по первым буквам, а по первым трём цифрам из номера авто.
К примеру есть номер (B001BT000), вводим 001 и нам выдает все номера с первыми цифрами 001. Если данная комбинация встречается в конце, (B004BT001) то её не распознавать.

К сообщению приложен файл: _-.xlsm (44.2 Kb)

Ответить

Апострофф

Дата: Среда, 14.02.2018, 15:16 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 468

Репутация: 129 ±

Замечаний: 0% ±

Excel 1997

velikoleg, замените 1 на 2 (фрагмент с единицей заремирован)
[vba]

Код

If txt = Mid(X(i, 1), 2, lt) Then s = s & "~" & X(i, 1)
' If txt = Mid(X(i, 1), 1, lt) Then s = s & "~" & X(i, 1)

[/vba]

Ответить

velikoleg

Дата: Среда, 14.02.2018, 16:13 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Апострофф, АЙ СПАСИБОЧКИ!!! Заработало как надо!!!
А то было сделал, а ищет не только по первым цифрам, но и по последним. А ларчик-то проще открывался!

Ещё раз спасибо огроменное!!!

Ответить

Поиск по номеру автомобиля (Макросы/Sub)

Страница 1 из 1
1