Поиск по любым совпадением букв

RSS

Поиск по любым совпадением букв, Вывод значений в TextBox(2,3,4,5,6,7,8,9,10) при изменение значений в TextBox менять на листе.

Maklarenn

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

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

28.02.2019 16:53:06

Всех приветствую . Есть форма с поиском. Ищет по первым буквам. Хотелось бы изменить на Поиск по любым совпадением букв в начале в середине или в конце значения. При нажатие на ListBox (Kunden) выводились значение из столбцов(описание на форме). при изменение значений в TextBox(2,3,4,5,6,7,8,9,10) менять на листе.Заранее спасибо.

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

Пример поиска.xlsm (29.24 КБ)

Ігор Гончаренко

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

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

28.02.2019 17:28:34

в
Private Sub TextBox1_Change()

Код
For i = 1 To UBound(x) ' поиск по первым буквам (Search by first letter) If x(i, 1) Like "" & Txt & "" Then s = s & "~" & x(i, 1) Next i

и комментарий поменяйте, потому что это уже поиск не по первым буквам, а по наличию определенной последовательности букв в данных

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Maklarenn Пользователь Сообщений: 25 Регистрация: 10.01.2019	#3 28.02.2019 18:20:24 Ігор Гончаренко, Спасибо. Поиск по любым совпадениям работает.

Alex_I_S Пользователь Сообщений: 29 Регистрация: 25.12.2018	#4 28.02.2019 20:36:19 Maklarenn, у вас кстати в таблице шапка скорее всего должна быть. Массив формируется со второй строки. На данный момент значение первой строки (Celle Svetlana) вы поиском не найдете.