Страницы: 1
RSS
Проблемы с методом Find
 
У меня стоит метод Find. Как выдать адрес на ячейку, которая совпадает с искомым текстом? И ещё, допустим, у меня Excel нашёл ячейку (всё тоже самое, с методом Find), и как выдать значение соседней ячейки?
Изменено: User2384716 - 09.10.2024 21:46:32
 
Код
Sub Test()
    Dim Rng As Range
    
    Set Rng = Range("A1:Z100").Find("мама", , xlFormulas, xlWhole)
    If Rng Is Nothing Then
        MsgBox "Не найдено!", vbExclamation, "Внимание"
        Exit Sub
    End If
    
    MsgBox "Адрес найденной ячейки: " & Rng.Address(0, 0)    
    MsgBox "Значение соседней справа ячейки: " & Rng.Offset(, 1).Value
End Sub
Изменено: New - 09.10.2024 22:55:56
 
Спасибо большое, выручили
 
Цитата
написал:
Sub Test()
   Dim Rng As Range
   
   Set Rng = Range("A1:Z100").Find("мама", , xlFormulas, xlWhole)
   If Rng Is Nothing Then
       MsgBox "Не найдено!", vbExclamation, "Внимание"
       Exit Sub
   End If
   
   MsgBox "Адрес найденной ячейки: " & Rng.Address(0, 0)    
   MsgBox "Значение соседней справа ячейки: " & Rng.Offset(, 1).Value
End Sub
У меня ещё вопрос появился
Что мне делать, если я хочу перенести значение соседней ячейки на объект ActiveX
 
Цитата
User2384716 написал:
У меня ещё вопрос появился
Как этот вопрос относится к заявленной теме?
Измените отображаемое имя
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх