Быстрый поиск в текстбоксе

@yutrans · Регистрация: 10.11.2011

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
На форме расположен текстбокс и листбокс. В поле текстбокса вводим буквы и в листбоксе отображается результат. Все работает , но у меня вопрос,как изменить код что бы поиск работал если вводить не первые слова, а и последующие.
Например: инструменты медицинские.
Сейчас поиск работает если вводить "инструменты" ,а когда ввести медицинские ,то поиск неосуществляется.
Прошу помочь.

@pashulka · 15.10.2016, 18:09

Один из возможных вариантов :

Visual Basic

Private iArr As Variant
 
Private Sub UserForm_Initialize()
    With Worksheets("Данные")
         iArr = Application.Transpose(.Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)))
    End With
End Sub
 
Private Sub txtb_Search_Change()
    Dim iText$: iText = Trim(txtb_Search.Value)
    If iText = "" Then List_РезультатыПоиска.Clear: Exit Sub
 
    List_РезультатыПоиска.List = Filter(iArr, iText, True, vbTextCompare)
End Sub

@yutrans · 16.10.2016, 07:47 **[ТС]**

pashulka,Вы как всегда отвечаете на 5+

Можно добавить комментарии по коду и еще вопрос как подкорректировать код что бы в поле поиска ввести * и отображалась вся база данных.
Спасибо.

@pashulka · 16.10.2016, 09:25

Visual Basic

Private iArr As Variant
 
Private Sub UserForm_Initialize()
    With Worksheets("Данные")
         iArr = Application.Transpose(.Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)))
    End With
End Sub
 
Private Sub txtb_Search_Change()
    Dim iText$: iText = Trim(txtb_Search.Value)
    Select Case iText
        Case "":   List_РезультатыПоиска.Clear
        Case "*":  List_РезультатыПоиска.List = iArr
        Case Else: List_РезультатыПоиска.List = Filter(iArr, iText, True, vbTextCompare)
    End Select
End Sub

Что касается комментариев, то :

VB(A) функция Filter работает с одномерным массивом, поэтому, приходится использовать транспонирование
VB(A) функция Trim наличествует для того, чтобы после ввода пробела, Вы не получили список оборудования, содержащего один(или более) пробелов

@yutrans · 16.10.2016, 14:06 **[ТС]**

Благодарю Вас.

@yutrans · 20.10.2016, 10:35 **[ТС]**

Доброе утро.
В процессе работы возникла небольшая проблема. При вводе по первым буквам надо ,что бы в листбоксе еще отображался столбец с остатками.
Заранее благодарен.

@pashulka · 20.10.2016, 15:51

Тестируйте

@yutrans · 21.10.2016, 00:09 **[ТС]**

pashulka,здорово все работает.

.
Я добавил еще подсчет количества найденных записей и Общее количество записей в базе данных,но подсчет ведется неправильно.
Если в текстбокс введена * ,то текст такой получается :"Найдено записей:21(общее количество записей в базе данных :21". Здесь все правильно.
Если например ввести букву "А",то текст такой должен получится :"Найдено записей : 15(общее количество записей в базе данных : 21).
Как подсчитать сколько найдено записей?
Заранее благодарен.

@pashulka · 21.10.2016, 09:24

Вообще-то, ответ на Ваш вопрос есть в примере Поиск3.zip

Visual Basic

1	MsgBox List_РезультатыПоиска.ListCount

P.S. Но можно использовать и переменную, хотя в этом, пока нет необходимости.

@yutrans · 21.10.2016, 10:15 **[ТС]**

pashulka, спасибо за отклик по моей теме.
Правильно я эту строчку кода написал.Но если брать поиск по первой букве,то отображается несколько строк и отображается цифра , а как подкорректировать ,что бы отображало общее количество записей в базе данных

@pashulka · 21.10.2016, 12:28

Visual Basic

Private iArr As Variant, iCount&
 
Private Sub UserForm_Initialize()
    With Worksheets("Данные")
         iArr = .Range(.Cells(2, 2), .Cells(.Rows.Count, 3).End(xlUp)).Value
         iCount = UBound(iArr)
    End With
End Sub

p.s. можно и без переменной iCount, просто каждый раз будете использовать UBound(iArr)

@yutrans · 21.10.2016, 13:15 **[ТС]**

Нужно ,что бы например ввели букву А отображается список "Найдено записей : 15(общее количество записей в базе данных : 21). А выдает ,что общее количество записей в базе данных:15,а должно быть :21

@pashulka · 21.10.2016, 13:50

...

@yutrans · 21.10.2016, 14:17 **[ТС]**

Все получилось.Благодарю.

.Тема закрыта.

@yutrans 141 / 124 / 50 Регистрация: 10.11.2011 Сообщений: 622
	16.10.2016, 14:06 [ТС]	5
	Благодарю Вас. 0

@yutrans 141 / 124 / 50 Регистрация: 10.11.2011 Сообщений: 622
	21.10.2016, 10:15 [ТС]	10
	pashulka, спасибо за отклик по моей теме. Правильно я эту строчку кода написал.Но если брать поиск по первой букве,то отображается несколько строк и отображается цифра , а как подкорректировать ,что бы отображало общее количество записей в базе данных 0

@yutrans 141 / 124 / 50 Регистрация: 10.11.2011 Сообщений: 622
	21.10.2016, 13:15 [ТС]	12
	Нужно ,что бы например ввели букву А отображается список "Найдено записей : 15(общее количество записей в базе данных : 21). А выдает ,что общее количество записей в базе данных:15,а должно быть :21 0

@yutrans 141 / 124 / 50 Регистрация: 10.11.2011 Сообщений: 622
	21.10.2016, 14:17 [ТС]	14
	Все получилось.Благодарю..Тема закрыта. 0