Excel VBA Макросы: Поиск с возвратом значения Истина Ложь.

Автор Rengame113, 31 июля 2018, 09:20

Rengame113

Есть ли возможность осуществить поиск с возвратом булевских значений.
Вставляться будет в  такой пример: если на листе есть Ромашка, то действие 1, если нет, то действие 2.

Администратор

Метод 'Find' не возвращает False, True, а возвращает ячейку, где было найдено. Если не найдено, то возвращается Nothiing.

Этот макрос ищет текст 'Ромашка' по всему листу:
Макрос
Sub Макрос()

    If Cells.Find(What:="Ромашка", LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False) Is Nothing Then
        MsgBox "не найдено"
    Else
        MsgBox "найдено"
    End If
   
End Sub
[свернуть]