End Sub. 3. Проанализируем содержимое макроса.

3. Проанализируем содержимое макроса.

Макрос начинается словами Sub … и заканчивается End Sub – это обязательные компоненты. После апострофов следуют комментарии о макросе:

' Макрос1 Макрос

' Макрос записан 24.02.2010 (Южаков)

Это необязательные компоненты.

В строках

Range("A4").Select

ActiveCell.FormulaR1C1 = "20"

Следует указание на ячейку A4, дается указание на ее выделение (Select), и в выделенную, активную ячейку (ActiveCell). Затем вводится формула (FormulaR1C1), а в данном случае просто число 20. Затем также вводится в другую выделенную ячейку число 5.

В следующую выделенную ячейку вводится формула, в которой суммируются два введенных числа ("=RC[-2]+RC[-1]").

4. Внесите изменения в содержимое строки с указанием вывода разности, например, замените в строке Range(“D4”).Select адрес ячейки D4 на D6.

5. Внесите изменения в соответствующую формулу: "=R[-2]C[-3]-R[-2]C[-2]".

6. Сохраните изменения, нажав на панели инструментов кнопку Save (Сохранить).

7. Закройте редактор Visual Basic.

8. Очистите заполненные поля ввода и вновь выполните команду Сервис → Макрос → Макросы → Выполнить. Результат представлен на Рис.17.2.

9. Сохраните изменения в файле под именем ЛР 17.2.xls в своей папке.