Задание 3.

Используя копирование создайте в том же модуле процедуру с именем MultiplyTable_2() Приведенные ниже четыре оператора вставьте последними строчками в процедуру задания 2, запустите его на выполнение, проанализируйте его работу.

Используя справку (help), изучите и вставьте в макрос комментарии, поясняющие работу новых операторов.

Rows("1:1").Font.ColorIndex = 3 Columns(1).Font.ColorIndex = 3 Rows(1).HorizontalAlignment = xlCenter Columns("A:A").HorizontalAlignment = xlCenter

Для того, чтобы сослаться на ячейку, расположенную относительно определённой ячейки на расстоянии нескольких строк и столбцов, используется свойство Offset объекта Range.

Например, Range("A3").Offset(1,1) - возвращает ячейку В4,

а результатом Range("A1:С5").Offset(5,10) является диапозон К6:М10.

Задание 4.

Вставьте в проект новый модуль.

Введите процедуру, запустите на выполнение, проанализируйте ее работу. Добавьте недостающие операторы, исходя из смыслового анализа работы процедуры.

Sub UseOffset()     Range("D4").Select     ActiveCell.Value="Center"     ActiveCell.Offset(1,0).Value="Юг"     ActiveCell.Offset(0,-1).Value="Запад"     ActiveCell.Offset(-1,1).Value="Северо-Восток" End Sub