Excel VBA Макросы: Поиск значения на листе и активирование найденной ячейки.

Автор Game, 25 марта 2020, 14:54

Game

Помогите решить задачу. Производится поиск на листе. Если найдено значение, то активируется ячейка с этим значением, если этого значения нет, то выполняется другое действие.

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

Макрос
Sub Макрос()

    Dim rng As Range


    ' Поиск значения по всему листу с помощью диалога "Найти и заменить".
        ' Если будет найдено, то в переменной "rng" будет ссылка на найденную ячейку.
        ' Если не будет найдено, то в переменной "rng" будет слово "Nothing".
    Set rng = Cells.Find(What:="значение", LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
       
    ' Если найдено.
    If Not rng Is Nothing Then
       
        ' Установка курсора-рамки в найденную ячейку.
        rng.Select
       
    ' Если не найдено.
    Else
       
        ' Сюда запишите действия, который должен сделать макрос, если не найдено.
        MsgBox "Не найдено.", vbInformation
       
    End If
   
End Sub
[свернуть]

Про параметры метода "Find" написано здесь: https://forumvba.ru/index.php?topic=1523.msg10425#msg10425