Выполните команду "Сервис-Макрос-Макросы" выберите свой макрос «Выделенный текст» и нажмите кнопку «Выполнить», не забывая при этом про стартовые условия.
Второй способ:
«Включите» на панели инструментов «Панель рисования», нарисуйте любую геометрическую фигуру, нажмите правую кнопку мыши и в контекстном меню выберите «Назначить макрос», выберите свой макрос и нажмите «ОК». Снимите фокус с Вашей геометрической фигуры, щелкнув на любой ячейке рабочего листа. Наведите опять курсор на фигуру, он примет форму руки — т.е. активен и готов к выполнению Ваш макрос.
ПРАКТИКА
Пример 1. Вывод на экран названий месяцев
При составлении различных отчетов и сводок в качестве названий строк частоиспользуются названия месяцев. Создадим макрос, который будет выводить наэкран столбец с названиями месяцев в ячейках A1:A12. Для этого выполнитеследующие действия: · Установите курсор в какую-нибудь ячейку книги, за исключением A1. · Выполните команду Сервис | Запись макроса | Начать запись. Появляетсяокно диалога “Запись макроса”. · Введите в поле ввода Имя макроса название создаваемого макроса Месяц_абс.В поле ввода Описание введите текст: Вводит названия месяцев. Нажмите кнопкуПараметры. Появится окно диалога “Запись макроса”. · Введите клавишу быстрого вызова макроса. Для этого перейдите в поле вводаCtrl, переключитесь на латинский регистр, удалите находящуюся там букву ивведите букву m. После этого нажмите кнопку OK. Начиная с этого момента,осуществляется запись макроса. · Выполните последовательность действий, которую будет выполнять макрос:установите курсор в ячейку A1; введите слово январь; поместите указатель мыши вправый нижний угол ячейки A1, при этом указатель мыши изменит вид на черныйкрестик; нажмите кнопку мыши и, удерживая ее нажатой, продолжите выделение доячейки A12. · Нажмите на кнопку Остановить макрос.Если вы не выполните условие 1 шага, то есть курсор будет находиться в ячейкеA1, то макрос будет правильно работать только в том случае, когда вы переднажатием клавиш Ctrl+m поместите курсор в ячейку A1.Макрос записан и теперь нажатие клавиш Ctrl+m вызовет появление в ячейкахA1:A12 названий месяцев. При записи макроса мы не включали режим записи сотносительными ссылками, поэтому названия месяцев будут появляться только вячейках A1:A12. Для устранения этого неудобства предназначен режим записи сотносительными ссылками.
Пример 2. Создание макроса с относительными ссылками
В этом примере вам предстоит создать макрос с относительными ссылками для размещения заголовка таблицы продаж компьютеров в произвольном месте рабочейкниги.Перед созданием макроса включите режим записи с относительными ссылками. Дляэтого выполните следующие действия: · Выполните команду Сервис | Запись макроса | С относительными ссылками. · Введите в поле ввода Имя макроса название создаваемого макроса —Заголовок. В поле ввода Описание введите текст: Вводит названиякомпьютеров. · Нажмите кнопку Параметры. Появится окно диалога “Запись макроса”. · Введите наименование добавляемого пункта меню: Типы ЭВМ. Нажмите кнопку OK. · Выполните последовательность действий, которую будет выполнять макрос:введите заголовок таблицы: Тип компьютера; нажмите клавишу Enter; введите тип 1компьютера CP_35_SR и нажмите клавишу Tab. Аналогично введите следующие типыкомпьютеров CP_40_SR, CP_55_LS, CP_55_SX. Выделите четыре ячейки с введеннымитипами компьютеров, выберите команду Формат | Столбец, а затем команду Подгонширины (поскольку названия типов компьютеров не умещаются полностью в ячейке). · Нажмите на кнопку Остановить макрос.После окончания записи макроса в меню команды Сервис появится пункт сназванием Типы ЭВМ, которое мы ввели на 4 шаге.Для выполнения макроса “Заголовок” нужно нажать кнопку мыши на пункте сназванием Типы ЭВМ. В том месте таблицы, где расположен курсор, появитсязаголовок следующего вида: Тип компьютера CP_35_SR CP_40_SRCP_55_LS CP_55_SXЭтот макрос отличается от макроса, созданного в примере №1 тем, что заголовоктаблицы можно поместить в любом месте текущей рабочей книги.
Самостоятельно:
1. Создайте макрос в Excel, который вычисляет сумму ячеек A1, A2 и выводит результат в ячейку A3 шрифтом Times New Roman, курсивом, 12 размером.
2. Создайте макрос в Excel, который выводит на желтом фоне синими буквами в текущую ячейку имя, а справа от нее фамилию шрифтом Arial, полужирным, 12 размером.
3. Создайте макрос в Excel, который выводит красными буквами в ячейку A3 слово “Частное:”, справа от нее выводит частное ячеек A1 и A2 шрифтом Times New Roman, курсивом, 12 размера.
4. Запишите макрос, присваивающий имена выделенным диапазонам
5. Запишите макрос, суммирующий данные из выделенных ячеек, и помещающий результат в диапазон с определенным именем.
6. Создать макрос с именем «Цвет», включающий в себя следующие операции:
- выделение диапазона ячеек;
- закрашивание его цветном;
7. Создайте макрос, который бы убирал с рабочего листа:
— буквы столбцов и номера строк, линии сетки, полосы прокрутки, ярлычки листов, строку формул, строку состояния;
— все панели инструментов;
8. Создайте макрос, который бы восстанавливал стандартный вид окна Microsoft Excel.
РЕДАКТИРОВАНИЕ МАКРОСА
Нажмите Alt+F11. Вы попадете в редактор кода
ИЛИ:
На вкладке Разработчик в группе Код щелкните Макросы.
В поле Имя макроса щелкните макрос, который нужно отредактировать.
Нажмите кнопку Изменить.
Появится окно кода в редакторе Microsoft Visual Basic.
Любой макрос начинается со слова Sub за которым идет имя макроса и заканчивается словами End Sub.
Объяснение кода макроса:
ActiveCell.FormulaR1C1 = "Отв. Исп" - В активную ячейку записать …..
Range("C7").Select - Ячейку "C7" выделить.
И т.д.
Обратите внимание, что часто все действия производятся с объектом Selection, т.е. каким-то выделенным фрагментом.
