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

Ход работы.

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

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

Sub Макрос1()

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

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

Range("A4").Select

ActiveCell.FormulaR1C1 = "20"

Range("B4").Select

ActiveCell.FormulaR1C1 = "5"

Range("C4").Select

ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"

Range("D4").Select

ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-2]"

Range("E4").Select

ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-3]"

Range("F4").Select

ActiveCell.FormulaR1C1 = "=RC[-5]/RC[-4]"

Range("F5").Select

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 в своей папке.

Задание 3. Создание кнопки на панели инструментов для созданного макроса

Постановка задачи.

Рассмотрим еще одно создание макроса, но для удобства вызова снабдим его кнопкой на панели инструментов.

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