ПРИМЕР СОЗДАНИЯ И ВЫПОЛНЕНИЯ МАКРОСА
Пусть у нас имеется расчетно-платежная ведомость. Необходимо достаточно часто преобразовывать эту исходную таблицу в платежную ведомость. Чтобы получить из расчетно-платежной ведомости платежную ведомость, следует выполнить следующие действия:
• поместить табличный курсор в ячейку Al (рис.
3.14.5);
Рис. 3.14.5. Исходная таблица для создания макроса
Рис. 3.14.6. Модифицированная таблица, полученная в результате выполнения макроса
Легко создать макрос и для возврата от модифицированной таблицы к исходной. Для этого нужно открыть режим записи макроса, выполнить все необходимые операции по восстановлению таблицы и остановить запись макроса.
В результате использования подобных макросов рутинные операции будут переложены на компьютер, а пользователь сможет уделить больше внимания содержательной части таблицы.
Текст макроса в нашем примере имеет вид:
'Ведомость Макрос ' Макрос записан 11.08.2002 (Мах)
# Сочетание клавиш: Ctrl+v Sub Ведомость()
Range ("Bi"). Select
ActiveCell. FomulaRlCl = "Ведомость"
Rows ("2:2"). Select
Selection.EntireRow.Hidden = True
Columns ("C:F"). Select
Selection.EntireColumn.Hidden = True
Range("All").Select
ActiveCell.FormulaRlCl = "Директор"
Range("A13").Select
ActiveCell.FormulaRlCl = "Гл. бухгалтер"
Range("Hll").Select
Selection.Borders(xlLeft).LineStyle = xlNone Selection.Borders(xlRight).LineStyle = xlNone Selection.Borders(xlTop).LineStyle = xlNone With Selection.Borders(xlBottom)
.Weight = xlMedium .ColorIndex = xlAutomatic
End With
Selection.BorderAround LineStyle:=XlNone Range("H13").Select
Selection.Borders(xlLeft).LineStyle = xlNone Selection.Borders(xlRight).LineStyle = xlNone Selection.Borders(xlTop).LineStyle = xlNone With Selection.Borders(xlBottom)
.Weight = xlMedium .ColorIndex = xlAutomatic End With
Selection.BorderAround LineStyle:=XlNone End Sub
Ключевые понятия
Выполнение макроса Остановить запись макроса
Запись макроса Visual Basic
Макрос
Вопросы для самоконтроля
1. Что такое макрос?
2.
Какими способами можно создать макрос?3. Какой язык используется для создания макрокоманд?
4. Где сохраняется макрос?
5. Как задать «горячие клавиши» для запуска макроса?
6. Как установить запись макроса в относительных ссылках?
7. Как запустить макрос на выполнение? 1
8. Как создать кнопку для запуска макроса?
Задания для самостоятельной работы
1. Создайте макрос с абсолютными ссылками, выводящий 1 левом верхнем углу листа шапку фирмы. Назначьте макросу кнопку.
2. Создайте макрос с относительными ссылками, вьіводящиі в конце документа должность и фамилию человека, подписывающего документ. Назначьте макросу кнопку на панели инструментов.
Список РЕКОМЕНДУЕМОЙ ЛИТЕРАТУРЫ
1. Долженков В.А., КолесниковЮ.В. Microsoft® Excel 2002. — СПб.: БХВ-Петербург, 2002. - С. 969-980.
2. Зелинский С.Э. Самоучитель Microsoft® Excel 2002. Русифицированная версия. — Киев: Юниор; M.: Спаррк, 2002. — С. 311— 315.