Форум по VBA, Excel и Word

VBA, Excel => VBA, макросы в Excel => Тема начата: Rengame113 от 31 июля 2018, 09:20

Название: Excel VBA Макросы: Поиск с возвратом значения Истина Ложь.
Отправлено: Rengame113 от 31 июля 2018, 09:20
Есть ли возможность осуществить поиск с возвратом булевских значений.
Вставляться будет в  такой пример: если на листе есть Ромашка, то действие 1, если нет, то действие 2.
Название: Re: Excel VBA Макросы: Поиск с возвратом значения Истина Ложь.
Отправлено: Администратор от 31 июля 2018, 10:01
Метод '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
[свернуть]
Название: Re: Excel VBA Макросы: Поиск с возвратом значения Истина Ложь.
Отправлено: Rengame113 от 31 июля 2018, 10:06
Спасибо.