План практичного заняття:
Увійти у редактор текстів WORD.
Відобразити вкладку Разработчик.
Натиснути кнопку Microsoft Office , Параметры Word, у категорії Основные параметры работы с Word встановити прапорець Показывать вкладку "Разработчик" на ленте.
Знизити безпеку макросів.
Разработчик, Безопасность макросов, у категорії Параметры макросов встановити прапорець Включить все макросы (не рекомендуется, возможен запуск опасной программы).
Клавішею Enter перейти до кінця аркуша.
Розпочати запис Макроса1 для поточного документа: Разработчик, Код: Запись макроса
- поставити курсор в першому рядку документа
- по центру вставити привітання „Вельмишановні пані та панове!”
- перейти клавішею-стрілкою вниз до дванадцятого рядка
- з абзацу вставити дату й час (повний формат дати), оновлювати автоматично (Вставка, Текст: Дата и время);
- в тому ж рядку через табуляцію вставити підпис „З повагою адміністрація банку”.
Зупинити запис макросу: Разработчик, Код: Остановить макрос.
Очистити документ
Набрати текст документа, починаючи з другого рядка:
Змушені повідомити Вам, що з 01.10.11 р. підвищені тарифи на розрахунково-касове обслуговування клієнтів:
комісія при проведенні міжбанківського документа складає 1,20 грн. за один документ;
комісія при знятті готівки з поточного рахунка клієнта становить 1% від суми документа.
Виконати Макрос1: Разработчик, Код: Макросы
На другому аркуші набрати текст документа, починаючи з другого рядка:
Повідомляємо Вам, що з 01.01.12 р. банк змінює свою адресу:
Виконати Макрос1.
Переглянути Макрос1, записаний мовою Visual Basic: Разработчик, Код: Макросы, Макрос1,
Отдладка
В редакторі Visual Basic створити нові макроси (Разработчик, Код: Макросы, Message, Создать):
- Для виводу попередження про те, що пройшло 15 хвилин:
Sub Message()
MsgBox ("Вже 15 хвилин працюємо!!!")
Application.OnTime Now + TimeValue("00:15:00"), "Message"
End Sub
- Для автоматичного запуску цієї процедури при завантаженні
Sub Autoexec()
MsgBox ("Вже 15 хвилин працюємо! Пора відпочити.")
End Sub
Зберегти документ. Закрити його і відкрити знову (для перевірки дії макросів).
Увійти у табличний процесор Excel. Відобразити вкладку Разработчик. Знизити безпеку макросів.
Створити на Лист1 таблицю:
Розрахувати значення наступних колонок за формулами:
Нараховано = Оклад / Кількість робочих днів * Кількість відпрацьованих днів;
Податок = 15% від Нараховано;
До виплати = Нараховано - Податок.
Скопіювати таблицю на Лист2 та Лист3.
Зберегти файл під іменем "Практична робота №10", вказавши тип файлу: Книга Excel с поддержкой макроса.
Перейти на Лист1.
Записати Макрос1 (Разработчик, Код: Запись макроса) для всіх відкритих книг, що виконує такі дії:
розширення колонок з сумами до 15пкс;
встановлення для колонок з сумами грошового формату;
сортування даних таблиці за відділами, а потім за алфавітом прізвищ;
обчислення проміжних підсумків після кожного відділу по колонці «До видачі».
Зупинити запис макросу: Разработчик, Код: Остановить макрос.
Увійти до Редактора VBA: Разработчик, Код: Visual Basic.
Переглянути код модуля: Tools, Macros:Макрос1, Edit.
Переіменувати Лист1 на Лютий.
Переіменувати Лист2 на Лист1.
Змінити місяць на березень (у комірці К2), кількість робочих днів на 21 (у комірці К3) та кількість відпрацьованих днів у всіх працівників.
Виконати Макрос1.
Виконати пункти 24-27 для даних за квітень на Лист3.