Назначение макросов командным кнопкам

Создание макроса для вызова автофильтра

1.1 Создайте рабочую книгу Корреспонденция.

 

1.2 На рабочем листе Отправленная_кор постройте таблицу, представленную ниже. В поле Стоимость вставьте пользовательскую функцию, вычисляющую:

если вид корреспонденции – посылка, то стоимость равна весу, умноженному на стоимость ед. веса посылки (7 руб);

если вид корреспонденции – бандероль, то стоимость равна весу, умноженному на стоимость ед. веса бандероли (6,5 руб).

 

 

1.3 Выберите на ленте Вид – Макрос – Запись макроса

 

 

Появится диалоговое окно Запись макроса

 

 

1.4 В поле Имя макроса введите имя макроса Автофильтр

 

Справка: Первым символом имени макроса должна быть буква. Остальные символы могут быть буквами, цифрами или знаками подчеркивания. В имени макроса не допускаются пробелы; в качестве разделителей слов следует использовать знаки подчеркивания.

 

1.5 Для того, чтобы записанный макрос запускался нажатием комбинации клавиш, укажите эту комбинацию в поле Сочетание клавиш: Например, если указать в этом поле символ q, макрос будет запускаться нажатием клавиш <Ctrl + q>.

 

1.6 Используйте раскрывающийся список Сохранить в для выбора места сохранения макроса:

Эта книга – сохранить в текущей рабочей книге.

Новая книга – создать новую рабочую книгу и сохранить в ней макрос.

Личная книга макросов – сохранить создаваемый макрос в личной книге макросов. В этом случае макрос доступен при каждом запуске Excel.

 

Выберите Эта книга

 

1.7 Чтобы создать краткое описание макроса, введите необходимый текст в поле Описание

 

1.8 Нажмите кнопку OK. На экране появится панель управления, после чего начнется запись макроса.

 

1.9 Выполните действия, которые должны быть записаны в макросе:

 

Необходимо вызвать автофильтр. Для этого выделите ячейку в заголовке таблицы Корреспонденция, например, E4 и выполните команду Данные / Фильтр / Автофильтр.

 

1.10 Завершив выполнение всех требуемых действий, выполните команду Остановить запись.

 

 

1.11 После записи макроса его можно выполнить нажатием клавиш <Ctrl + q>.

 

Выполнение макроса

 

2.1 Выделите ячейку С4.

 

2.2 Выберите Вид – Макрос

 

 

 

2.3 В поле Имя макроса выберите имя того макроса, который требуется выполнить Автофильтр

 

2.4 Нажмите кнопку Выполнить

 

2.5 Если в заголовке до выполнения макроса был установлен автофильтр, то он исчезнет. Если в заголовке до выполнения макроса не был установлен автофильтр, то он появится.

 

Важно! Сохраните файл (кнопка Office – Сохранить как), выбрав в качестве типа файла Книга Excel с поддержкой макросов.

 

 

 

Просмотр кода макроса

 

При записи макроса, Excel запоминает действия и одновременно преобразует их в код VBA. Чтобы увидеть полученный код, выполните следующие действия:

 

3.1 Выберите Вид – Макрос, отобразится диалоговое окно

 

 

3.2 Выберите имя макроса Автофильтр в поле Имя макроса и нажмите кнопку Изменить. Откроется окно редактора Microsoft Visual Basic:

 

 

Назначение макросов командным кнопкам

 

Одной из основных целей разработчика приложений должно быть создание легких в использовании интерфейсов для выполнения задач автоматизации. Самый простой путь в реализации этой цели – использование командных кнопок непосредственно в рабочей книге. Вставить командную кнопку в рабочий лист можно с помощью панели инструментов Формы. Затем можно назначить ей любой макрос. После выполнения этой процедуры щелчок на вставленной командной кнопке будет вызывать на выполнение назначенный макрос.

 

4.1 Откройте рабочую книгу Корреспонденция, если она закрыта. Уберите автофильтр, если он установлен

 

4.2 Включите на ленте вкладку Разработчик с помощью параметров Excel

 

 

4.3 Выполните команду Разработчик – Вставить – Элемент управления кнопка

 

 

4.4 Указатель мыши поменяет форму

 

4.5 Поместите указатель мыши в столбец А, нажмите и не отпускайте левую кнопку мыши. Перетащите указатель мыши для создания прямоугольника. Прямоугольник соответствует будущему размеру и положению создаваемой кнопки. Придав командной кнопке нужный размер, отпустите кнопку мыши. На рабочем листе появится кнопка и одновременно откроется диалоговое окно Назначить макрос объекту, предлагающее выбрать макрос для назначения его командной кнопке:

 

 

4.6 Выберите макрос Автофильтр и щелкните на кнопке ОК. Этот макрос будет назначен созданной кнопке

 

4.7 Щелкните и выделите надпись Кнопка 1 на командной кнопке. Нажмите клавишу <Delete> для удаления этой надписи

 

4.8 Введите текст новой надписи: Автофильтр

 

4.9 Проверьте результат. При первом нажатии кнопки должен включиться автофильтр, при повторном нажатии автофильтр выключается.