Введение в информатику. Хамухин А.А. - 182 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

181
П.3.5.Лабораторная работа №5. Работа с макросами в приложениях
Word и Excel
Цель работы: научиться работать со встроенным редактором VBA (создавать,
выполнять, останавливать, выполнять по шагам макросы в Word и Excel).
Порядок работы
Уровень
A
1. В MS Word найти редактор VBA первым способом (вход через
меню «сервис-макрос-редактор Visual Basic») и открыть в нем окно
программ, окно проектов и окно свойств.
2. С помощью меню VBA «вставить модуль», набрать в окне
программ заданный текст программы. С помощью пошагового
выполнения (F8) и просмотра значений переменных (наводить
курсор мышки на имя переменной) добиться правильной работы
макроса (количество баллов должно соответствовать правильным
ответам).
3. Выполнить ту же задачу вторым способом. Для этого вставить в
документ элемент управления Command Button (командная кнопка),
изменить его свойство Caption (надпись на кнопке), зайти в редактор
VBA (двойной щелчок по кнопке в режиме «конструктор») и набрать
(скопировать) ту же программу.
4. Повторить п. 3 в MS Excel. Добиться, чтобы программа
аналогично проработала при нажатии на вставленную кнопку (при
выключенном режиме «конструктор»)
B
5. Выполнить индивидуальное задание (см. ниже). Внести ошибку в
текст программы (делается преподавателем) и с помощью
пошаговой отладки найти и устранить ее (делается студентом).
6. По ходу работы составить отчет, позволяющий повторить
выполненные действия нажатием на указанные клавиши или пункты
меню, чтобы получить заданный результат
Программа
Private Sub CommandButton1_Click()
Sum = 0
o1 = MsgBox("Является ли макрос программой?", 3, "Вопрос 1")
If o1 = 6 Then Sum = Sum + 10
'***********************************************************
o2 = InputBox("Как называется программа VBA?", "Вопрос 2", "не знаю")
If o2 = "макрос" Then Sum = Sum + 10
'***********************************************************
If Sum >= 20 Then

Страницы