1: Sub СвойстваДиапазона ()
2: ThisWorkbook.Worksheets("Лист1").Range("A1").Activate
3: ActiveCell.Offset(2,2).Activate
4: MsgBox "Текущая ячейка" & ActiveCell.Address
5:
6: MsgBox "Значение ячейки B4 = " & Range("B4").Value
7: MsgBox "Формула в ячейке В4: " & Range("В4").Formula
8: End Sub
Процедура начинается с активизации ячейки А1 (т.е. установки на ней табличного курсора):
ThisWorkbook.Worksheets("Лист1").Range("A1").Activate
После активизации ячейки A1 свойство Offset перемещает табличный курсор на ячейку С3, процедура показывает адрес новой активной ячейки в окне сообщения:
ActiveCell.Offset(2,2).Activate
MsgBox "Текущая ячейка - " & ActiveCell.Address
Свойство Offset позволяет перемещаться от одного диапазона к другому и имеет следующий синтаксис:
имя__диапазона.Offset (смещ_строк, смещ_столбцов)
Аргументы смещ_строк и смещ_столбцов задают направление перемещения табличного курсора. В нашей процедуре оба аргумента принимают значение 2, что позволяет перейти из ячейки А1 в ячейку С3.
Последние два оператора процедуры с помощью окон сообщения отображают значение и формулу ячейки В4:
MsgBox "Значение ячейки В4 = " & Range("B4").Value
MsgBox "Формула в ячейке В4: " & Range("B4").Formula
Эти операторы показывают различие между свойствами Value и Formula. Свойство Value возвращает то, что отображается в ячейке, а свойство Formula - то, что находится в ячейке.
