Друзья, подскажите, пожалуйста, незнающему как сместиться относительно известного адреса ячейки?
Вот мое безобразие:
[vba]
Код
Sub Search()
For i = 1 To Application.ActiveWorkbook.Sheets.Count With Worksheets(i).Range("A1:C30") Set isFound = .Find("Фамилия, имя,", LookAt:=xlPart)
If Not isFound Is Nothing Then MsgBox ("Got it! The address is " & isFound.Address) End If End With Next i
End Sub
[/vba]
В isFound.Address сидит адрес обнаруженной ячейки. Теперь мне надо, скажем, переместиться на 2 строки вниз и на один столбец вправо от текущей ячейки. Как это сделать?
Спасибо!
Всех приветствую!
Друзья, подскажите, пожалуйста, незнающему как сместиться относительно известного адреса ячейки?
Вот мое безобразие:
[vba]
Код
Sub Search()
For i = 1 To Application.ActiveWorkbook.Sheets.Count With Worksheets(i).Range("A1:C30") Set isFound = .Find("Фамилия, имя,", LookAt:=xlPart)
If Not isFound Is Nothing Then MsgBox ("Got it! The address is " & isFound.Address) End If End With Next i
End Sub
[/vba]
В isFound.Address сидит адрес обнаруженной ячейки. Теперь мне надо, скажем, переместиться на 2 строки вниз и на один столбец вправо от текущей ячейки. Как это сделать?
If Not isFound Is Nothing Then isFound.Offset(2, 1).Value = "asdasd" 'на 2 строки вниз и на один столбец вправо 'или ' isFound(3, 2).Value = "asdasd" 'то же самое End If
[/vba]
[vba]
Код
If Not isFound Is Nothing Then isFound.Offset(2, 1).Value = "asdasd" 'на 2 строки вниз и на один столбец вправо 'или ' isFound(3, 2).Value = "asdasd" 'то же самое End If
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
