Выполнение макроса
Для проверки работы макроса выполните следующие действия:
Введите
в одну из ячеек формулу =СЛЧИС().
Эта функция возвращает случайное
число, равномерно распределенное в
интервале (0,1).
Заполните этой формулой несколько ячеек в строке или столбце.
Выполните команду меню Сервис Макрос Макросы… Появится диалоговое окно Макрос (рис. 21).
В окне перечислены все доступные макросы. Выберите макрос Число_3 и нажмите кнопку Выполнить. Данные в ячейках будут отформатированы.
Выполнение часто применяемых макросов через команду меню не слишком удобно, поэтому кроме назначения сочетания клавиш, применяется назначение макроса графическому объекту на рабочем листе или кнопке на панели инструментов. Выполнение макроса при помощи кнопки на панели инструментов рассмотрено в ниже (см. задание 34).
Редактирование макросов
Иногда вместо внесения изменений в записанный макрос можно записать новый макрос. Однако это не всегда удобно, а часто бывает и утомительно из-за большого объема работы. Изменим формат чисел в макросе Число_3 путем редактирования текста макроса.
Для входа в режим редактирования макроса выполните команду Сервис Макрос Макросы… В окне Макрос выберите макрос Число_3. Нажмите кнопку Изменить и на экране появится текст макроса Число_3, записанный на языке Visual Basic (рис. 22).
Рис. 22. Главное окно редактора VBA.
В первой строке записано имя процедуры, две последующие непустые строки содержат комментарий, затем следует единственная строка с инструкцией, а последняя строка завершает процедуру.
Форматный код ”0.000” обеспечивает вывод числа с тремя знаками после запятой даже в том случае, если это незначащие нули. Значит, число 12,45 будет выведено как 12,450. Это обеспечивает правильное оформление таблиц, при котором числа в одном столбце должны иметь одинаковое количество знаков после запятой.
Введите другой числовой шаблон — ”0.###”. Он обеспечит вывод трех знаков после запятой только в том случае, если цифры отличны от нуля. Измените также и имя процедуры (макроса) на Число, сохраните отредактированный текст и закройте окна редактора и Microsoft Visual Basic. Переименованный и отредактированный макрос станет доступен в данной рабочей книге.
Введите в какую-нибудь ячейку число 12,2341 и выполните макрос Число. Содержимое ячейки будет отображено как 12,234. Ведите в другую ячейку число 12,2001 и выполните макрос Число. Содержимое ячейки будет отображено как 12,2.
-
Действуя аналогичным образом, можно внести более серьезные изменения в текст макроса или даже написать собственную программу на языке VBA
.
Удаление макросов
Если макрос больше не нужен или он ошибочно записан и работает неправильно, то его следует удалить. Для этого снова выполните команду Сервис Макрос Макросы… В окне Макрос выберите макрос Число. Нажмите кнопку Удалить и подтвердите удаление.
Задание 32. Изучить пример разработки макроса, предназначенного для подготовки стандартной таблицы.
Создайте в личной папке документ Excel и присвойте ему имя МойМакрос.
Выполните команду Сервис Макрос Начать запись.
В окне Макрос введите имя макроса — ТаблРасчОшибки и описание макроса — Создает заголовок таблицы для расчета частной ошибки бомбометания.
В этом же окне присвойте макросу сочетание клавиш Ctrl + t , для чего введите в окошко букву t. Закройте окно Макрос.
Если кнопка Относительная ссылка включена, то выключите ее.
Активизируйте ячейку А1 и введите заголовок таблицы — Таблица расчета частной ошибки бомбометания.
Установите шрифт Arial, 14 пт, полужирный.
В ячейки А2:E2 введите заголовки столбцов — Путевая скорость, Угол прицеливания, Угол визирования, Высота бомбометания, Время падения бомбы.
Выделите диапазон заголовков и выполните команду Формат Ячейки. На вкладке выравнивание установите Выравнивание по горизонтали — по центру, Выравнивание по вертикали — по центру, а также флажок переносить по словам. На вкладке Границы установите внешние и внутренние границы. Щелкните ОК.
Выполните команду Формат Столбец Ширина и установите ширину столбца 15.
Раскройте список Цвет заливки на панели инструментов Форматирование и окрасьте диапазон заголовков в светло-бирюзовый цвет.
Остановите запись макроса, нажав кнопку Остановить запись на плавающей панели.
Макрос записан.
Очистите рабочий лист, установите курсор в ячейку А1 и выполните макрос, нажав клавиши Ctrl + t . На листе появится общий заголовок таблицы и заголовки столбцов.
Очистите рабочий лист, установите курсор в ячейку А5 и выполните макрос еще раз. Общий заголовок таблицы все равно появится на том же месте рабочего листа. Это связано с тем, что запись макроса проведена в режиме с абсолютными ссылками на ячейки.