Практична робота №23
Тема: VBA. Запис макросів у середовищі MS Word та MS Excel.
Мета: виробити практичні навички запису, редагування, видалення та виконання макросів для автоматизації роботи з документами.
Технологія виконання роботи
Завдання 1. Використовуючи засіб MacroRecorder записати макрос у середовищі MS Excel, який впише шість назв місяців у верхній рядок робочого аркуша, починаючи з клітинки В1.
1) Вибрати чистий аркуш (Лист1) з виділеною за замовчуванням клітинкою А1.
2) Вибрати на стрічці додатку вкладинку Вид і у групі Макроси вибрати вказівку Запись макроса.
3) У діалоговому вікні Запись макроса ввести ім’я, що буде присвоєно новому макросу, — Півріччя1. У полі Сочетание клавиш ввести символ ф, тоді в подальшому натиснення комбінації клавіш <Ctrl+ф> буде викликати запуск даного макросу.
4) У полі Сохранить в вибрати значення Эта книга для збереження створеного макроса у активній книзі.
5) Після заповнення всіх полів у діалоговому вікні Запись макроса клацнути на кнопці ОК. Це початок процесу запису.
6) Клацнути на клітинці В1 та ввести в шість сусідніх клітинок назви місяців, як показано на рис.5. у теоретичній довідці.
7) Тепер відформатувати
введені значення. Виділити клітинки
B1:G1, перейти на стрічці на вкладинку
Главная
і у групі Шрифт
клацнути на кнопках
і
.
Потім клацнути на клітинці В2 і зупинити
запис макросу, для цього відкрити на
стрічці вкладинку Вид
і вибрати у групі Макросы
команду Остановить
запись.
8) Зберегти книгу під іменем ПР23_<Власне прізвище>.xlsm.
9) Виконати створений макрос, використовуючи вказівку Выполнить та сполучення клавіш.
Завдання 2. Записати макрос у середовищі MS Word, що здійснює зміну кольору фону документа відповідно до введених значень кольорів.
1) Запустити Microsoft Word;
2) Створити новий пустий документ;
3) клацнути вкладинку Разработчик на стрічці;
4) натиснути кнопку Mакросы і вибрати в полі Макросы из Normal.dotm (общего шаблона);
5) ввести ім’я ChangeColor і натиснути кнопку Создать.
В редакторі Visual Basic з’явиться наступний фрагмент коду:
Sub ChangeColor()
'
' ChangeColor Макрос
''
End Sub
6) Змінити код, щоб він мав такий вид:
Sub ChangeColor()
'
' ChangeColor Макрос
'
Dim intRed As Integer
Dim intGreen As Integer
Dim intBlue As Integer
intRed = InputBox("Значення червоного? (0-255)")
intGreen = InputBox("Значення зеленого? (0-255)")
intBlue = InputBox("Значення синього? (0-255)")
ActiveWindow.View = wdWebView
With ActiveDocument.Background.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(intRed, intGreen, intBlue)
End With
MsgBox "Колір фону документа тепер RGB(" & intRed & ", " & intGreen & ", " & intBlue & ")."
End Sub
7) В меню View (Вид) вибрати команду Microsoft Word;
8) Ввести в документі деякий текст, щоб бачити різницю між кольором фону і текстом;
9) Зберегти документ з іменем ПР23_<Власне прізвище>.docm
10) Виконати макрос ChangeColor, використовуючи вказівку Выполнить та кнопку панелі швидкого доступу;
11) У діалоговому вікні тричі ввести ціле число в діапазоні від 0 до 255 (для значень червоного, зеленого і синього), кожного разу натискуючи кнопку ОК. Колір фону документа змінюється відповідно комбінації значень «червоний-зелений-синій» (RGB), введених на попередньому кроці.
Завдання 3. У середовищі MS Excel у тій же книзі ПР23_<Власне прізвище>.docm. створити макрос для здійснення розрахунків та форматування таблиці за такими параметрами:
1) Задати такі параметри форматування таблиці:
Рамка навколо таблиці А1:Н25 та перший рядок таблиці мають межу – жирна лінія синього кольору;
Межі клітинок - тонка лінія чорного кольору;
Перший стовпчик таблиці А2:А25 заповнений числами від 1 до 24;
2) По стовпчику Н розрахувати:
найбільше значення і помістити у клітинку Н26 та залити її жовтим кольором,
найменше значення і помістити у клітинку Н28 та залити її червоним кольором,
середнє значення і помістити у клітинку Н30 та залити її зеленим кольором
3) Передбачити виконання макросу за допомогою комбінації клавіш Ctrl+л
4) Створений макрос застосувати до 3 аркушів (Лист2, Лист3, Лист4) різними способами: через вказівку, сполучення клавіш та кнопку на панелі швидкого доступу.
5) Переглянути програмний код макросу у середовищі VBA, скопіювати його на аркуш(Лист5) і записати коментар(пояснення) до кожного рядка програмного коду.
6) Зберегти результати роботи.