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

Накопление статистических данных будет производиться на втором листе книги Excel по щелчку на кнопке управления. Второй лист книги следует озаглавить «Протокол оценок жюри по всем конкурсантам» и скопировать на него параметры оценки по каждому конкурсанту с листа 1.
Для автоматизации наиболее часто выполняемых действий будем использовать макросы.
Макрос — это программа (набор макрокоманд), которая создается путем записи реальных действий (например, в таблице Excel это выделение ячеек, выбор команд из меню, смена текущего листа и т. д.) при помощи специальных средств для записи макросов или на языке Visual Basic for Applications. При записи макроса сохраняется информация о каждом выполненном шаге в последовательности команд. Записав макрос, его можно запускать всякий раз, когда необходимо выполнить запрограммированную в нем последовательность действий.
Для работы нам необходимо создать три макроса: Накопление_данных, Очистка и Итоги. Действия, которые следует выполнить для создания макроса Накопление_данных, приведены в табл. 2.
Макрос Очистка должен сначала выделять, а затем очищать (клавиша Delete) ячейки D2 и A12: I12
на листе 1, готовя их для очередного претендента. Запись макроса проделайте самостоя­тельно.
Макрос Итоги должен перевести действие с листа 1 на лист 2, ввести в ячейку К5 формулу суммирования результатов одного конкурсанта и скопировать эту формулу в нижестоящие ячейки (количество конкурсантов неизвестно, поэтому задействуйте при копировании формулы 20-30 нижестоящих ячеек). Запись макроса Итоги проделайте самостоятельно. Начните действия с листа 1 и закончите их там же.

Таблица 2.
Алгоритм создания макроса Накопление_данных

№	Действие	Пояснение
	Команда Сервис/Макрос/Начать запись	Открывается новый макрос
	В строке Имя макроса задайте имя одним словом Накопление_данных, укажите сочетание клавиш для вызова макроса (Ctrl + H) и нажмите кнопку ОК. После этого появится панель Остановить запись с кнопкой остановки
	Выделить ячейку D2 и скопируйте ФИО конкурсанта в буфер обмена
	Перейдите на лист 2 книги Excel	Переход в протокол
	Выделите ячейку А4 и вставьте в нее содержимое буфера обмена	Точное место вставки результатов
	Перейдите на лист 1 книги Excel	Переход на лист опроса
	Выделите ячейки А12: I12 и скопируйте их в буфера обмена	Копируются данные жюри по текущему конкурсанту
	Перейдите на лист 2 книги Excel	Переход в протокол на место хранения результатов
	Выделите ячейку В4 и выполните вставку командой Правка/Вставить	В протокол заносятся только баллы конкурсанта
	Выделить целиком строку 4 листа 2, щелкнув на номере строки	Освобождаем строку 4. Результаты следующего конкурсанта всегда будут записываться в нее, а старые будут сдвигаться вниз при вставке новой строки
	Вставьте перед выделенной строкой новую: Вставка/Строки
	Перейдите на лист 1 книги Excel	Переход на лист опроса
	Нажмите кнопку остановки записи или выберите в меню команду Сервис/Макрос/Остановить запись	Макрос записан
	Выполните команду Сервис/Макрос/Макросы	В списке макросов должен появиться макрос Накопление_данных
	Нажмите кнопку Отмена, чтобы закрыть окно макросов	Завершение создания макроса.