VB Userform: как искать слово в столбце

У меня есть критерии поиска, основанные на столбце, но я должен вводить каждое слово в этой ячейке, но я хотел бы искать слово или несколько слов внутри этой ячейки. Это возможно?

Public CallDetails As Collection Public Function Find_CallNumbers(NumberToFind As String) As Collection Dim rng_to_search As Range Dim rFound As Range Dim FirstAddress As String Dim FoundItem As clsCallDetails Set CallDetails = New Collection With ThisWorkbook.Worksheets("Database") Set rng_to_search = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) End With With rng_to_search 'Look for the first instance. Set rFound = .Find(what:=NumberToFind, _ after:=.Cells(1, 1), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchDirection:=xlNext) If Not rFound Is Nothing Then FirstAddress = rFound.Address Do Set FoundItem = New clsCallDetails 'Create a new instance of the class to hold the details. With FoundItem .Title = rFound.Offset(, 5) .LoggedBy = rFound.Offset(, 1) 'Offset from column A by 1 column, so column B. .CallNumber = rFound.Offset(, 2) .DateField = rFound.Offset(, 3) .OwnerField = rFound.Offset(, 4) .Description = rFound.Offset(, 6) .Solution = rFound.Offset(, 7) .URLImage = rFound.Offset(, 8) End With CallDetails.Add FoundItem 'Add the class instance to our collection. Set rFound = .FindNext(rFound) 'Look for the next value. 'Continue searching until we reach the top again. Loop While Not rFound Is Nothing And rFound.Address <> FirstAddress End If End With End Function 

Interesting Posts

Как Excel обрабатывает область при передаче параметров вложенных подпроцессов

Команда VBA Excel не работает при вызове с помощью Shell, но работает при копировании в cmd напрямую

Изменить цвет выделения После ввода пользователем в Excel vba

C # Excel Процент конвертированных в десятичные числа

Excel VBA – mkdir с именами переменных

Автоматический инкрементный номер в excel

Как мне перейти в ячейку (найденную с совпадением индекса), чтобы изменить значение?

Excel форматирует секунды и минуты / время?

Автоматизация создания PDF для включения гиперссылок

Преобразование формулы Excel в код VBA (возврат местоположения дублирующей ячейки)

Excel / VBA Сортировка данных на основе ячейки внутри набора данных

Использование Excel 2010 с Visual FOXPRO

Grails: Как создать фильтр, как в MS Excel?

как получить относительное положение фигур в листе

Обновление таблицы SSMS из источника Excel без удаления и повторной передачи

Давайте будем гением компьютера.