БарГУ.by » Учебные материалы » КСРы » Информационные технологии » Лабораторная работа №16. Создание и редактирование макросов в системе MS Office. Редактор VBA

Лабораторная работа №16. Создание и редактирование макросов в системе MS Office. Редактор VBA

Автор: Maxvel 9-11-2012, 17:31

Лабораторная работа №16. Создание и редактирование макросов в системе MS Office. Редактор VBA

 

Вы не можете скачивать файлы с нашего сервера

Цель работы: Научится автоматизировать выполнение часто повторяющихся действий или задач MS Office.

Задание.
1. В книге Excel создать макрос: «Таблица успеваемости».
При запуске этого макроса на чистом листе книги должна появиться таблица 1. В ячейках, предназначенных для расчёта среднего бала, должны быть внесены соответствующие формулы.

Таблица 1.

№ Дата Алгебра Информатика Физкультура
1
2
3
4
5
6
7
8
9
10
Средний балл

2. Эту таблицу следует произвольно заполнить (не используя макрос).
Например.
№ Дата Алгебра Информатика Физкультура
1 01.01.01 5 3 5
2 02.01.01 4 5 5
… … … … …
10 09.01.01. 4 4 4
Средний балл 4,33 4 4,66

3. Создать макрос «График успеваемости». При запуске этого макроса по данным строится график успеваемости. Например, следующего вида:

4. Создать макрос «Очистка листа». Этот макрос удаляет диаграмму и таблицу.
5. Создать пользовательскую панель инструментов, на которой расположить три кнопки, предназначенные для запуска созданных макросов. Панель может выглядеть следующим образом:

Порядок выполнения задания.
Если в Word (Excel и др.) необходимо многократно выполнять какую-то задачу, то лучше всего это сделать с помощью макроса. Макрос – это серия команд, записываемых системой на языке Visual Basic и сгруппированных в один модуль, имеющий имя.
1. Для записи автоматической записи макроса необходимо выполнить следующие действия:
1.1. Установить запись макроса (команда сервис/ макрос/ начать запись);
1.2. В проявившимся окне диалога набрать имя макроса и нажать кнопку ОК. Появится панель остановка записи.
1.3. Выполнить необходимые операции, которые требуются записать в качестве последовательности инструкций в программе (например, выделить ячейку, установить нужный формат, внести какие-то данные);
1.4. Остановить запись макроса (щёлкните на кнопке Остановить запись макроса на панели инструментов Остановка записи или выбрать команду меню Сервис/ Макрос/ Остановка записи).
! До тех пор, пока вы не остановите запись макроса, все ваши действия будут записываться системой в инструкции Visual Basic.

2. Использование и запуск макроса.
Запустить макрос на выполнение можно с помощью команды меню Макросы или создать кнопку по которой запустит макрос.
2.1. Для запуска макроса с помощью команды меню Макросы необходимо:
2.1.1. выбрать команду Сервис/ Макрос/ Макросы;
2.1.2. из списка выбрать имя макроса и щёлкнуть по кнопке «Выполнить».
2.2. Для назначения макроса кнопке на пользовательской панели инструментов следует:
2.2.1. Выбрать команду меню Сервис/ Настройка;
2.2.2.На вкладке Панели инструментов окна диалога Настройка щёлкнуть по кнопке Создать;
2.2.3. Внести имя панели.
2.2.4. далее, на появившуюся панель необходимо нанести кнопки, которые запускают макросы на выполнение. Для этого выполните следующее:
2.2.5. На вкладке Команды окна диалога Настройка выберете категорию Макросы;
2.2.6. Выбрать пустую кнопку и перетащить на панель инструментов;
2.2.7. Щёлкнуть по кнопке Изменить выделенный объект;
2.2.8. Выбрать имя макроса, который будет выполнять при щелчке по этой кнопке;
2.2.9. выбрать значок и/или надпись для кнопки;
2.2.10. Закрыть окно диалога Настройка.
3. Удаление макроса.
3.1. выберете команду Сервис/ Макрос/ Макросы;
3.2. В списке Имя выберете имя макроса, который требуется удалить и нажмите кнопку Удалить.
4. Для того чтобы просмотреть и отредактировать код макроса необходимо:
4.1. Выберете команду Сервис/ Макрос/ Макросы;
4.2. В списке Имя выберете имя макроса, который требуется изменить и нажмите кнопку Изменить.
4.3. При этом вы перейдёте в окно редактора Visual Basic, и ваш макрос будет открыт в окне модуля.
Также открыть макрос можно, выбрав команду меню Сервис/ Макрос/Редактор Visual Basic, далее, в окне проекта редактора открыть папку «VBAProject» и выделить имя нужного макроса.
Например,
Необходимо создать макрос, который в книге Excel вводит следующий текст (некоторый адрес):
Адрес
г. Минск
Ул. Якуба Коласа

Выполнив действия по созданию этого макроса и открыв его в окне редактора Visual Basic, вы увидите следующий модуль:
Sub Макрос 1 ()

‘макрос 1 макрос
‘Макрос записан 04.11.00 (stud)

Sheets (“Лист1”).Select
Range (“A6”). Select
ActiveCell. FormulaR1C1 = “г. Минск”
Renge (“A7”). Select
ActiveCell. FormulaR1C1 = “ул. Якуба Коласа,”
Renge (“A8”). Select
End Sub
Имя модуля написано после слова Sub – Макрос1. В этом макросе записаны следующие операции:
Активизировать лист «Лист 1 »
Выделить ячейку А6
В активную ячейку внести текст: г. Минск
Выделить ячейку А7
В активную ячейку внести текст: ул. Якуба Коласа
Выделить ячейку А8
Заканчивается модуль сочетанием End Sub
Таким образом, этот макрос при выполнении в любой книге Excel на первом листе будет вносить в необходимые ячейки (при этом, естественно, должна быть открыта книга с макросом).
Отредактируйте макрос, введя свой адрес. Выполните макрос на отдельном листе.



Обсудить на форуме

Комментарии к статье:

Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Регистрация

Реклама

Последние комментарии

  • GENAJag
    Написал(а): GENAJag
  • Jacog
    Написал(а): Jacog
  • Maxvel
    Написал(а): Maxvel
    В новости: Маршрут №27
  • cbetlana
    Написал(а): cbetlana
    В новости: Маршрут №27
  • Maxvel
    Написал(а): Maxvel
    В новости: Маршрут № 30
  • Maxvel
    Написал(а): Maxvel
    В новости: Маршрут №15
  • RonnieUncen
    Написал(а): RonnieUncen
  • loram
    Написал(а): loram
  • Inna2200111
    Написал(а): Inna2200111
  • Shishkinrom
    Написал(а): Shishkinrom