Ход работы. 1. Откройте предыдущее выполненное задание, сохраненное в файле ЛР17.2.xls (если Вы его закрыли)

1. Откройте предыдущее выполненное задание, сохраненное в файле ЛР17.2.xls (если Вы его закрыли).

2. Перейдите на 2 Лист.

3. Выберите в меню пункт Сервис → Макрос → Начать запись. Появится окно с названием макроса, который Вам предлагается сохранить в этой книге. Назовите макрос «Моя_таблица» (название должно быть без пробелов!). Также можно назначить горячую клавишу для вызова макроса (например, Ctrl+ф).

4. Нажмите ОК.

5. Выберите ячейку A2 и введите в нее текстовую строку «Зарплата».

6. В ячейку A3 введите текст «Премия»

7. В ячейку A4 введите текст «Закупка материалов»

8. В ячейку A5 введите текст «Амортизационные отчисления»

9. В ячейку A6 введите текст «Накладные расходы»

10. В ячейку A7 введите текст «Доход от продаж»

11. В ячейку A8 введите текст «Суммарный расход»

12. В ячейку A9 введите текст «Прибыль»

13. В ячейку B8 введите формулу = СУММ (B2:B6).

14. В ячейку B9 введите формулу = B7 – B8.

15. Выделите столбец A и в меню Формат выберите команду Столбец → Автоподбор ширины.

16. Завершите работу макрорекордера, нажав кнопку «Остановить запись».

17. Перейдите на лист 3.

18. Выполните команду Сервис → Макрос → Макросы → Выполнить или нажмите сочетание горячих клавиш (если Вы его назначали). На листе 3 должна отобразиться записанная в макросе таблица, приведенная на Рис.17.3.

19. Выберите команду Сервис → Макрос → Макросы → Войти. В результат записи макроса на листе стандартного модуля Module1 будет записан следующий листинг:

Sub Моя_таблица()

' Моя_таблица Макрос

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

' Сочетание клавиш: Ctrl+ф

Range("A2").Select

ActiveCell.FormulaR1C1 = "Зарплата"

Range("A3").Select

ActiveCell.FormulaR1C1 = "Премия"

Range("A4").Select

ActiveCell.FormulaR1C1 = "Закупка материалов"

Range("A5").Select

ActiveCell.FormulaR1C1 = "Амортизационные отчисления"

Range("A6").Select

ActiveCell.FormulaR1C1 = "Накладные расходы"

Range("A7").Select

ActiveCell.FormulaR1C1 = "Доход от продаж"

Range("A8").Select

ActiveCell.FormulaR1C1 = "Суммарный расход"

Range("A9").Select

ActiveCell.FormulaR1C1 = "Прибыль"

Range("B8").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-2]C)"

Range("B9").Select

ActiveCell.FormulaR1C1 = "=R[-2]C-R[-1]C"

Columns("A:A").Select

Selection.Columns.AutoFit

Дата добавления: 2014-12-23