поиск в предложении макросом

[Bape}l{ka]

здравствуйте, форумчане))

помогите пожалуйста разобраться, а то что-то у меня не получается
нужно сделать поиск слов из предложений по библиотеке (отдельный столбец), при том не только слова, но и выражения типа "2-2X2". найденные слова подсветить в предложении и вынести из столбца-библиотеки на отдельный лист

понимаю, что подобное было, но предлагают решения условным форматированием, а это нужно сделать макросом (и будьте добры, прокоментируйте код, чтобы можно было понять, что к чему и изменить, если что)

Search_in_Column.rar

очень надеюсь на вашу помощь, заранее спасибо)

[nilem]

Не понял, что нужно выносить на отдельный лист. А с выделением можно так:

Sub ertert()
Dim bibl, b, poisk As Range, r As Range, s As String
Application.ScreenUpdating = False

bibl = Range([e2], Cells(Rows.Count, 5).End(xlUp)).Value
Set poisk = Range([a2], Cells(Rows.Count, 1).End(xlUp))
poisk.Font.ColorIndex = xlAutomatic

For Each r In poisk.Cells
    For Each b In bibl
        s = InStr(r, b)
        If s Then r.Characters(s, Len(b)).Font.Color = vbRed
    Next b
Next r
Application.ScreenUpdating = True
End Sub

[Bape}l{ka]

nilem
спасибо большое)))
а могли бы вы объяснить некоторые строки пословно, что означают команды?

InStr(r, b)
.Characters(s, Len(b))
Application.ScreenUpdating = True/False      '- тут вроде интуитивно понятно ЧТО, но не понятно ЗАЧЕМ

p.s.: а вынести на отдельный лист надо было то, что нашлось в библиотеке (вобщем совпадения с предложениями), ну или хотя бы тоже их покрасить

p.p.s.: а я вроде решила заморочиться с функциями Find What =ь если что получится, выложу сюда))

[nilem]

Если красить библиотеку, то можно так, без массива

Sub ertert()
Dim bibl As Range, b As Range, poisk As Range, r As Range, s As String
Application.ScreenUpdating = False
Set bibl = Range([e2], Cells(Rows.Count, 5).End(xlUp))
Set poisk = Range([a2], Cells(Rows.Count, 1).End(xlUp))
poisk.Font.ColorIndex = xlAutomatic
bibl.Font.ColorIndex = xlAutomatic
For Each r In poisk.Cells
    For Each b In bibl.Cells
        s = InStr(r, b)
        If s Then r.Characters(s, Len(b)).Font.Color = vbRed: b.Font.Color = vbBlue
    Next b
Next r
Application.ScreenUpdating = True
End Sub

Зачем Application.ScreenUpdating - каждое изменение цвета шрифта в ячейках будет сопровождаться обновлением экрана, а это только лишние траты времени. Поэтому временно отключаем обновление, а в конце включаем (хотя в большинстве случаев оно включается автоматически). А по функциям лучше справки не напишешь, посмотрите по F1.

[Bape}l{ka]

спасибо, nilem, за помощь и за разъяснения))
будем экспериментировать)))

[Bape}l{ka]

народ, я все поняла, кроме одной строчки (даже фразы)
подскажите кто-нибудь

.Characters(s, Len(b))

т.е. я понимаю, что идет назначение цвета задействованным элементам, я не понимаю КАК это происходит, что за функция? из справки непонятно Т_Т

[Hugo121]

А Вы попробуйте записать макрос покраски пары букв ячейки - получите что-то типа

With ActiveCell.Characters(Start:=3, Length:=2).Font

т.е. s - это позиция начального символа, Len(b) - это сколько символов красим.

[Bape}l{ka]

Hugo121 )))
спасибо большое!!

[Bape}l{ka]

все хорошо, да не совсем то, что нужно Т_Т
данный макрос ищет в том числе и составные части "слов", что не подходит.
а подскажите, как сделать так, чтобы искалось полное соответствие??
я так понимаю, нужно обозначить разделители, которые будут ограничивать "слово".. только что потом делать, не совсем представляю

файл тот же, что и в первом посте

[Hugo121]

Я это в тоже заметил, когда свой алгоритм лениво продумывал. Вроде бы думал делить на слова по пробелам (Split()) и сравнивать в цикле. Но не пришло на ум, как тогда легко закрашивать найденное - вроде сильно много телодвижений делать придётся... Так и недодумал, тем более что Николай уже предложил решение.