Задание 1

Записать макрос, который будет заносить в ячейки А1:С4 последовательность натуральных чисел, начиная с 1, по часовой стрелке. Присвоить этому макросу имя «Макрос 1». Создать новое меню «Макросы» и в нем пункт с именем «Макрос 1». Создать новую панель инструментов и поместить на нее кнопку для запуска созданного макроса.

Технология:

1. Установите на чистом рабочем листе курсор в ячейку Е10.

2. Для запуска макрорекордера выполните команду СЕРВИС/Макрос/Начать запись.

3. В диалоговом окне «Запись макроса» введите имя «Макрос 1» и щелкните по кнопке «Ok». На экране появится кнопка для остановки записи макроса. Учтите, что с этого момента все Ваши действия должны быть четкими, т. к. они записываются макрорекордером.

4. Последовательно введите в ячейку А1 число 1, в ячейку В1 число 2, в ячейку С1 число 3, в ячейку С2 число 4, в ячейку С3 число 5, в ячейку С4 число 6, в ячейку В4 число 7, в ячейку А4 число 8, в ячейку А3 число 9, в ячейку А2 число 10.

5. Остановите запись макроса, щелкнув по кнопке «Остановить запись».

6. Очистите рабочий лист, на котором производили запись и установите курсор в произвольную ячейку рабочего листа.

7. Запустите только что созданный макрос. Для этого выполните команду СЕРВИС/Макрос. Щелкните по имени макроса в окне «Макрос», а затем по кнопке «Выполнить». Действия, ранее выполненные Вами вручную, будут повторены макросом автоматически.

8. Создайте меню с именем «Макросы». Для этого:

• выполните команду СЕРВИС/Настройка и в окне «Настройка» на вкладке «Команды» выделите категорию «Новое меню»;

• перетащите мышью название этой категории на панель меню;

• щелкните правой кнопкой по перемещенному на панель названию и поменяйте имя меню на «Макросы».

9. Создайте пункт с именем «Макрос 1» в меню «Макросы». Для этого:

• выделите на вкладке «Команды» категорию «Макросы»;

• перетащите строку «Настраиваемая команда» из окна «Команды» на панель меню в область, расположенную под названием «Макросы»;

• щелкните правой кнопкой по вновь созданному пункту «Настраиваемая команда меню» и поменяйте его имя на «Макрос 1»;

• включите режим «только текст» и выполните пункт «Назначить макрос»;

• в окне «Назначить макрос» выделите в списке строку с именем макроса, который должен запускаться при щелчке по этому пункту и щелкните по кнопке «Ok»;

• закройте окно «Настройка».

10. Проверьте работу макроса 1 при его запуске через меню «Макросы». Проверьте работу макроса при запуске на другом рабочем листе.

11. Просмотреть текст макроса на языке Visual Basic, выполнив команду СЕРВИС/Макрос/Макросы и щелкнув по кнопке «Войти». Вернуться в таблицу, выполнив команду редактора макросов ФАЙЛ/Закрыть и вернуться в Microsoft Excel.

12. Создать новую панель инструментов и поместить на нее кнопку для запуска Макроса 1. Для этого:

• выполнить команду СЕРВИС/Настройка и в окне «Настройка» на вкладке «Панели» включить, например, панель «Элементы управления»;

• в окне «Настройка» на вкладке «Команды» установить категорию «Макросы»;

• перетащить строку «Настраиваемая кнопка» на панель «Элементы управления»;

• не закрывая окна «Настройка», щелкнуть правой кнопкой мыши по кнопке «Настраиваемая кнопка» выполнить пункты меню «Выбрать значок для кнопки» и «Назначить макрос»;

• закрыть окно «Настройка» и проверить действие кнопки для запуска макроса.