Страницы: 1
RSS
Поиск текста на листе, Только с помошью макроса
 
На листе много названий фирм производителей (например). Как найти ячейку с зарание заданной фирмой и выделить ячейку рядом (справа) от найденой. Решение нужно только макросом. Спасибо
 
Sub Find_()
   Dim avArr, lr As Long, lc As Long
   With Range("A1:AA65536")
       avArr = .Value
   End With
       For lr = 1 To 65536
       For lc = 1 To 27
           If avArr(lr, lc) = "f23" Then
               Cells(lr, lc + 1).Select
               Exit For
           End If
       Next lc
   Next lr
End Sub
 
висит такой вариант, может подойдет.
Код
Sub a()
' активизация ячейки на 5 ячеек вправо от слова "всего"
   Dim R As Range, FR As Range
   Set R = Range("A1:CC1000") 'можно указать любой диапазон, можно по присвоенному имени
   Set FR = R.Find("всего:")
   If Not FR Is Nothing Then
       FR.Offset(0, 5).Activate ' переход на 5 ячеек вправо
   End If
End Sub
 
Ищем ТОЧНОЕ совпадение в столбце А
Код
Sub Finder()
Dim Rng As Range, Txt As String
    Txt = "Рога и копыта"
    Set Rng = Columns(1).Find(what:=Txt, LookIn:=xlValues, lookAt:=xlWhole)
    If Not Rng Is Nothing Then
        Rng.Offset(0, 1).Select
    Else
        MsgBox "Такой фирмы не найдено.", 48, "Во как!"
    End If
End Sub
Страницы: 1
Наверх