Это продолжение статей «Урок 60. Макрос для таблицы», «Урок 61. Макрос преобразования страницы» и «Урок 90. Удаление всех закладок».
Написать хороший рабочий макрос – очень непростое дело. Чтобы он заработал в полную силу, надо тщательно продумать все свои действия. Но я нередко упускаю из вида какое-либо действие, которое необходимо. Что делать в этом случае? Заново начать писать макрос? А потом поочередно запускать сначала один, потом другой? Давайте смоделируем эту ситуацию.
По окончании этого урока вы сможете:
- Записать «Макрос1»
- Записать «Макрос2»
- Объединить работу этих макросов в один
Скачайте учебный фай тут и откройте его. В документе две таблицы (мне о таких документах приходится только мечтать).
1. Запись «Макрос1»
Давайте решим, что нам нужно от таблицы:
- Заголовок, повторяющийся на каждой странице и с выравниванием по середине.
- Шрифт в таблице – Calibri
Много делать не будем. Важен принцип.
Шаг 1. Выделяем первую строку первой таблицы
Шаг 2. Записываем макрос (лента Разработчик → группа команд Код → команда запись макроса):
Шаг 3. Назначаем выполнение макроса сочетанию клавиш Ctrl+1:
Шаг 4. Форматируем таблицу:
- Команда «Повторить строки как заголовки»
- Команда «Выровнять по центру»
- Команда «Выделить» → команда «Выделить таблицу» из выпадающего меню
Заметили, что курсор принял соответствующий вид?
Шаг 5. Лента Главная → группа команд Шрифт → шрифт Calibri из выпадающего меню:
Шаг 6. Останавливаем запись макроса
И тут мы вспоминаем что забыли установить поля ячеек!
2. Запись «Макрос2»
Давайте усложним задачу: второй макрос запишем для второй таблицы.
Шаг 1. Выделяем вторую таблицу
Шаг 2. Записываем макрос (сочетание клавиш Ctrl+2)
Шаг 3. Устанавливаем новые поля ячеек таблицы (лента Макет → группа команд Выравнивание → команда Поля ячеек → диалоговое окно Параметры таблицы → значения по 0,05 для левого и правого полей ячеек):
Шаг 4. Останавливаем запись макроса
3. Объединяем два макроса в один
Шаг 1. Открываем рабочее окно «Макрос» (лента Разработчик → группа команд Код → команда Макрос)
Шаг 2. В рабочем окне есть список из трех макросов. Назначаем команду «Изменить»:
Шаг 3. Изучаем окно «Microsoft Visual Basic for Applications»:
- delAllbookmarks «Удаление всех закладок»
- Макрос1
- Макрос2
Очень удобно: все макросы под одной крышей!
Шаг 4. Удаляем выражение:
| End Sub Sub Макрос2() ‘ ‘ Макрос2 Макрос ‘ ‘ |
То есть по сути дела мы удаляем конец Макрос1 и начало Макроса2 (вспомните, что в статье «Урок 90. Удаление всех закладок» я просила вас обратить внимание на имя и завершение макроса).
Шаг 5. Закрываем окно «Microsoft Visual Basic for Applications»
Шаг 6. Проверяем работу макроса на первой таблице (выделяем строчку заголовка → лента Разработчик → группа команд Код → команда Макрос → Макрос1 в поле Имя → команда Выполнить):
| Это очень важно! | Если мы выделим всю таблицу и запустим макрос, то все строчки таблицы станут заголовками! По ходу выполнения макроса таблица будет выделяться на определенном этапе |
Обратите внимание, что «Макрос2» исчез из списка. Но работать «Макрос1» теперь от сочетания клавиш не будет, поэтому его выполнение приходится задавать из рабочего окна «Макрос».
Шаг 7. Проверяем работу макроса на второй таблице (выделяя строчку заголовка – в этой таблицы две строчки, так как имеются объединённые ячейки):
Шаг 8. Убеждаемся, что верхние строчки таблицы являются заголовками (просто «прошлёпываем» Enter):
По дороге замечаем, что размер шрифтов в таблице разный. Но теперь вы можете написать макросы, а затем объединить их в один. Если у вас много таблиц, то целесообразно вынести кнопку макроса на Панель быстрого доступа (статья «Урок 60. Макрос для таблицы»).
Теперь вы сможете:
- Записать «Макрос1»
- Записать «Макрос2»
- Объединить работу этих макросов в один макрос
«Но работать «Макрос1» теперь от сочетания клавиш не будет…»
Для того, чтобы назначить макросу сочетание клавиш, нужно:
Меню на ленте -> -> (в левом меню) -> кнопка Сочетание клавиш: . Откроется окно Настройка клавиатуры. В списке надо выбрать Макросы, в списке — Макрос1, в текстовом поле кликнуть мышкой и нажать какое-нибудь сочетание, например Ctrl + Alt + M. После чего нажать кнопку
Пардон. Все, что было выделено угловыми скобками (значки больше — меньше) стерлось при отправке. Повторяю с кавычками (вместо угловых скобок). Предыдущий комментарий можно удалить.
Для того, чтобы назначить макросу сочетание клавиш, нужно:
Меню на ленте «Файл» -> «Параметры» -> «Настроить ленту» (в левом меню) -> кнопка «Сочетание клавиш «Настройка». Откроется окно Настройка клавиатуры. В списке «Категории» надо выбрать Макросы, в списке «Команды» — Макрос1, в текстовом поле «Новое сочетание клавиш» кликнуть мышкой и нажать какое-нибудь сочетание, например, Ctrl + Alt + M. После чего нажать кнопку «Назначить»
>Lf? но мне проще работать с с лентой Разработчик.