Создание процедуры поиска по тексту

[Amirhan]

Народ, нужно создать процедуру поиска по тексту, чтоб искала определенную фразу в тексте, ума не приложу как делать это, кто сможет помочь?

[IgorGO]

if Текст Like "*моя фраза*" then Нашлось-таки!!!

[Amirhan]

Почему то не признает like

[Amirhan]

У меня идет поиск в определенных ячейках

[IgorGO]

не знаю что у Вас "идет", потому что не видел ни кода, ни формул, ни данных

[alex77755]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$1" Then
        Dim S, X
        S = [a1] ' где ищем
        X = [h1] ' что ищем
        MsgBox IIf(InStr(1, S, X) > 0, """" & X & """" & " начинается с позиции " & InStr(1, S, X), "Нет вхождения!"), 64, ""
    End If
End Sub

[Amirhan]

Сообщение от alex77755

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$1" Then
        Dim S, X
        S = [a1] ' где ищем
        X = [h1] ' что ищем
        MsgBox IIf(InStr(1, S, X) > 0, """" & X & """" & " начинается с позиции " & InStr(1, S, X), "Нет вхождения!"), 64, ""
    End If
End Sub

Извините, не совсем я понял как работает процедура, поясните если не затруднит!
Как вызвать ее потом??

[Hugo121]

Ещё вариант:

код, осуществляющий поиск указанного текста во всех листах

Option Explicit

Sub tt()
Dim sh As Worksheet
Dim iCell As Range
Dim iSearchText$, iAddress$
iSearchText$ = "qwer"

For Each sh In Worksheets
Set iCell = sh.UsedRange.Find _
(What:=iSearchText$, LookIn:=xlValues, LookAt:=xlWhole)

If Not iCell Is Nothing Then
iAddress$ = iCell.Address
Do
Set iCell = sh.UsedRange.FindNext(After:=iCell)
MsgBox sh.Name & "!" & iCell.Address
Loop While Not iCell Is Nothing And iCell.Address <> iAddress$
End If
Next

End Sub

xlWhole возможно нужно заменить на xlPart - "по вкусу"

[IgorGO]

используйте
CreateObject("VBScript.RegExp")
RegExp - сросто создан для поиска фраз в тексте.


из анекдота:
-- Вы не программист, случайно?
-- да, а как Вы догадались???
-- Ваши советы АБСОЛЮТНО точные, но ровно в такой же степени для меня бесполезные!!!

[Amirhan]

Сообщение от Hugo121

Ещё вариант:

код, осуществляющий поиск указанного текста во всех листах

Option Explicit

Sub tt()
Dim sh As Worksheet
Dim iCell As Range
Dim iSearchText$, iAddress$
iSearchText$ = "qwer"

For Each sh In Worksheets
Set iCell = sh.UsedRange.Find _
(What:=iSearchText$, LookIn:=xlValues, LookAt:=xlWhole)

If Not iCell Is Nothing Then
iAddress$ = iCell.Address
Do
Set iCell = sh.UsedRange.FindNext(After:=iCell)
MsgBox sh.Name & "!" & iCell.Address
Loop While Not iCell Is Nothing And iCell.Address <> iAddress$
End If
Next

End Sub

xlWhole возможно нужно заменить на xlPart - "по вкусу"

Как потом вызвать эту процедуру не подскажите? Или прям в коде программы это писать?