Создание макросов


Создание макросов: упражнения

Упражнение 1. Отображение вкладки «Разработчик» и создание первого макроса

В этом упражнении вы узнаете, как проверить, что вкладка Разработчик отображается, и сможете записать первые макросы.
  1. На вкладке Файл нажмите кнопку Параметры и в области слева выберите команду Настройка ленты.
  2. В группе Основные вкладки обязательно установите флажок Разработчик, после чего нажмите кнопку ОК.
  3. На листе выделите ячейку A1.
  4. На вкладке Разработчик в группе Код щелкните параметр Использовать относительные ссылки.
    Важно! Параметр использования относительных ссылок является критически важным, чтобы макросы выполнялись согласно ожиданиям.
  5. Нажмите кнопку Запись макроса.
    Запись макроса
  6. В поле Имя макроса введите FillMonths, а в поле Ctrl+ введите большую букву M, чтобы назначить сочетание клавиш CTRL+SHIFT+M.
  7. В списке Сохранить в проверьте, выбран ли параметр Эта книга, после чего нажмите кнопку ОК, чтобы начать запись макроса.
  8. Введите Янв в ячейку A1.
  9. Выделите ячейку A1, после чего щелкните правой кнопкой мыши и тащите нижний правый угол вправо, пока не достигнете ячейки L1.
  10. После отображения всплывающей подсказки Дек отпустите кнопку мыши и нажмите кнопку Заполнить ряды.
  11. Нажмите кнопку Остановить запись, чтобы остановить запись макроса.
  12. Нажмите клавишу DELETE, чтобы удалить названия месяцев из листа, и выделите ячейку A1.

Упражнение 2. Создание нового макроса в редакторе Visual Basic на основе записанного макроса

В этом упражнении вы будете работать в редакторе Visual Basic, в который нужно скопировать макрос FillMonths для создания второго макроса. Оба макроса нужно будет переименовать, присвоив им уникальные имена. После этого понадобится отредактировать инструкции макроса, чтобы данные заполнялись по вертикали в столбце, а не вдоль строки, а также последовательностью чисел (от 1 до 12) вместо названий месяцев («Янв», «Фев», «Мар» и т. д.).
  1. На вкладке Разработчик в группе Код нажмите кнопку Макросы.
  2. В списке Макросы в убедитесь, что выбран пункт Эта книга.
  3. Выберите макрос FillMonths и нажмите кнопку Правка.
    Будет запущен редактор Visual Basic, в котором можно редактировать макросы. Макрос находится в окне, которое содержит строки или инструкции либо «код».
  4. Скопируйте строки, начиная с Sub FillMonths() и заканчивая End Sub.
    Можно использовать сочетание клавиш CTRL+C или другой метод копирования, которым вы обычно пользуетесь.
  5. Вставьте скопированный текст в новую строку непосредственно под строкой End Sub.
    Обратите внимание, что вставляется горизонтальная строка. Эта строка разделяет макросы.
  6. Измените название первой подпрограммы на Sub FillMonthsR, а второй — на Sub FillMonthsC (необходимо только добавить букву в конце каждого названия).
    Названия подпрограмм должны выглядеть следующим образом: Sub FillMonthsR() и SubFillMonthsC().
  7. В строке, которая содержит FormulaR1C1 = «Янв», измените «Янв» на 1 (без кавычек).
  8. В следующей строке измените оба экземпляра A1:L1 на A1:A12.
    Таким образом вы измените направление перемещения ячеек, построив последовательность автозаполнения вниз от текущей ячейки, а не вправо.
  9. Закройте редактор Visual Basic (который сохраняет изменения в макросах), нажав сочетание клавиш ALT+Q.
    Можно также нажать кнопку Закрыть в правом верхнем углу окна.
    Изображение кнопки
  10. Снова нажмите кнопку Макросы, выберите новый макрос FillMonthsC, после чего нажмите кнопку Выполнить.
    Обратите внимание на то, что этот макрос заполняет числа от 1 до 12 от ячейки A1 вниз к ячейке A12.

Упражнение 3. Запись и сохранение макроса в личную книгу макросов

В этом упражнении вы будете записывать новый макрос в личную книгу макросов, чтобы потом использовать его с любой книгой на своем компьютере.
  1. На вкладке Разработчик в группе Код нажмите кнопку Запись макроса.
  2. В списке Сохранить в выберите пункт Личная книга макросов.
  3. Введите имя «FillMonthsR» для макроса и большую букву «R» в поле Ctrl+, чтобы назначить сочетание клавиш CTRL+SHIFT+R.
  4. Чтобы начать запись макроса, нажмите кнопку ОК.
  5. Выполните шаги, описанные в примере 1 выше, чтобы создать макрос, который заполняет месяцы по горизонтали.
    Нажмите кнопку Остановить запись после завершения.
    Остановить запись

Упражнение 4. Назначение кнопки макросу на панели быстрого доступа

В этом упражнении макрос FillMonthsR будет назначен кнопке на панели быстрого доступа.
  1. Откройте вкладку Файл и выберите команду Параметры.
  2. В области слева выберите пункт Панель быстрого доступа, после чего в разделе Выбрать команды из нажмите кнопку Макросы.
  3. Выберите FillMonthsR и нажмите кнопку Добавить >>.
  4. Нажмите кнопку Изменить и в поле Отображаемое имя измените имя на Заполнение по месяцам (строки).
  5. Нажмите кнопку ОК, а затем еще раз нажмите ОК в нижней части диалогового окна Параметры Excel, чтобы принять изменения.
    Кнопка должна появиться на Панели быстрого доступа (в окне заголовка Excel).
  6. Выделите любую ячейку на листе.
  7. Нажмите настраиваемую кнопку, и макрос должен вставить месяцы на лист.
  8. Чтобы удалить эту кнопку, щелкните правой кнопкой мыши ее значок на панели быстрого доступа и выберите пункт Удалить с панели быстрого доступа.

Упражнение 5. Создание настраиваемой группы на вкладке «Разработчик» и назначение макроса кнопке в этой группе

В данном упражнении будет создана настраиваемая группа на вкладке «Разработчик» и назначен макрос FillMonthsC кнопке в этой группе.
  1. Откройте вкладку Файл и выберите команду Параметры.
  2. В области слева нажмите кнопку Настройка ленты, после чего в группе Основные вкладки выберите слово Разработчик (не флажок).
  3. Нажмите кнопку Новая группа. Появится новая группа с названием Новая группа (настраиваемая).
  4. Выберите новую группу и нажмите кнопку Переименовать.
  5. В поле Отображаемое имя смените название группы на Мои макросы.
  6. В разделе Выбрать команды из нажмите кнопку Макросы.
  7. Выберите FillMonthsR и нажмите кнопку Добавить >> между двух больших полей со списками.
  1. В группе Основные вкладки щелкните пункт FillMonthsC и нажмите кнопку Переименовать.
  2. Измените имя на Заполнение по месяцам (столбцы).
  3. Нажмите кнопку ОК, а затем еще раз нажмите ОК в нижней части диалогового окна Параметры Excel, чтобы принять изменения.
    Кнопка должна появиться в новой группе Мои макросы на вкладке Разработчик.
  4. Выделите любую ячейку на листе.
  5. На вкладке Разработчик в группе Мои макросы нажмите настраиваемую кнопку, и макрос должен вставить месяцы на лист.
  6. Чтобы удалить кнопку и настраиваемую группу с вкладки «Разработчик», выполните указанные ниже действия.
    1. Откройте вкладку Файл и выберите пункт Параметры.
    2. В области слева нажмите кнопку Настройка ленты, после чего в группе Основные вкладки выберите пункт Мои макросы (настраиваемые).
    3. Щелкните знак + рядом с пунктом Мои макросы (настраиваемые), а затем выберите под ним пункт Заполнить по месяцам.
    4. Нажмите кнопку << Удалить между двух больших полей со списками.
    5. Снова нажмите кнопку << Удалить, чтобы удалить группу Мои макросы (настраиваемые).

1 комментарий:

  1. Тем, кто хочет быстро и эффективно разобраться с макросами Excel - прошу сюда http://macrosvba.ru/wppage/makrosyi-excel-eto-prosto/

    ОтветитьУдалить