Методичні вказівки щодо виконання лабораторної роботи №3
Створення електронної таблиці часто супроводжується виконанням однотипних рутинних операцій, що приводить до надмірної витрати часу. Для автоматизації виконання різноманітних рутинних операцій (наборів операцій), як, наприклад, форматування чи обчислення даних, та для прискорення створення електронної таблиці в MS Excel існують так звані макроси.
Макрос – це набір інструкцій, який описує деяку послідовність дій над елементами електронної таблиці (робоча книга, робочий листок, окрема комірка, діапазон, виділена область робочого листка тощо), яку користувач виконує за допомогою миші та клавіатури. З іншого боку, макрос – це набір інструкцій, описаних за допомогою мови програмування VBA у відповідному редакторі.
Таким чином, в MS Excel існує два способи створення макросів:
· Заданням відповідних дій за допомогою миші та клавіатури (за допомогою “Записувача макросів”).
· Написанням відповідної процедури мовою VBA.
Для створення макросів першим способом необхідно виконати наступні дії.
Розпочати запис макросу вибравши пункт меню Сервис→Макрос→Начать запись.
Рис. 5. Діалогове вікно запису нового макросу.
У діалоговому вікні що з’явилось, задати ім’я макросу(Имя макроса), також можна задати гарячі клавіші, за якими в подальшому викликатиметься цей макрос (Сочетание клавиш).
Після натиску кнопки ОК, виконати необхідні маніпуляції над елементами MS Excel за допомогою миші та клавіатури. При цьому з’явиться інструментальне меню Stop Recording (Зупинити запис).
|
|
|
Рис. 6. Інструментальне меню Stop Recording (Зупинити запис).
Завершити запис макросу з допомогою пункту меню Сервис→Макрос→Остановить запись або натиском відповідної (першої зліва) кнопки інструментального меню Stop Recording (Зупинити запис).
Створений макрос буде мати вказане вище ім’я.
Для створення макросів другим способом необхідно виконати наступні дії.
Завантажити редактор Visual Basic за допомогою пункту меню Сервис→Макрос→Редактор Visual Basic або натиснувши комбінацію клавіш ALT+F11.
Рис. 7. Редактор Visual Basic.
У вікні проекту вибрати необхідний елемент (що відповідає активній робочій книзі), до якого буде належати макрос.
Створити новий модуль за допомогою пункту меню редактора Insert→Module.
В правій частині редактора написати процедуру мовою VBA, яка описує необхідні маніпуляції над елементами MS Excel.
Закрити редактор Visual Basic.
Створений макрос буде мати таке ж ім’я, як ім’я відповідної VBA-процедури, задане після ключового слова Sub (на рис. 6 зображено макрос з назвою FormatFont).
Переглянути створені макроси можна за допомогою пункту меню Сервис→Макро→Макросы… На екрані з’являється діалогове вікно, зображене на рис. 8.
|
|
|
Рис. 8. Діалогове вікно перегляду списку макросів.
Вибравши відповідний макрос, його можна виконати (викликати) натисненням кнопки Выполнить. Для зручності виклику макросів можна задавати гарячі клавіші або створити кнопку на інструментальному меню MS Excel. Гарячі клавіші присвоюються при створенні макросу або натиском кнопки Параметры діалогового вікна перегляду списку макросів (див. рис. 8). ПРИКЛАД
Приклад створення макросу, який змінює параметри шрифту для виділеної ділянки робочого листка.
1) Створення з допомогою “Записувача макросів”.
Після виклику команди Сервис→Макрос→Начать запись… і початку запису макросу здійснимо наступні дії:
На листку Лист 1 клацнемо правою кнопкою миші в комірці, наприклад, А2 і в меню, що з’явилось вибираємо пункт Формат→Ячеек….
У вікні, що з’явилось, переходимо на вкладку Шрифт.
Встановлюємо Шрифт Arial Начертание курсив і Цвет вибираємо червоний.
Закриваємо вікно, натиснувши кнопку ОК.
На панелі інструментів Форматирование натискаємо на кнопку Ж;
Зупиняємо запис макросу виконавши команду Сервис→Макрос→Остановить запись
2) Створення з допомогою редактора VBA.
|
|
|
Після створення нового модуля в редакторі Visual Basic (пункт меню Сервис→Макрос→Редактор Visual Basic ) набираємо текст наступної VBA-процедури.
Sub ChangeFont() ' Службове слово визначення процедури та її імені
With Selection.Font ' Оператор початку роботи з об’єктом Selection.Font
.Name = «Times New Roman» ' Встановлення імені шрифту об’єкта Selection.Font
.FontStyle = «Italic» ' Встановлення стилю шрифту об’єкта Selection.Font
.Size = 14 ' Встановлення розміру шрифту об’єкта Selection.Font
.ColorIndex = 3 ' Встановлення кольору шрифту об’єкта Selection.Font
.Bold = True ' Присвоєння значення "ІСТИНА" властивості Bold (Жирний) об’єкта Selection.Font
End With ' Оператор закінчення роботи з об’єктом Selection.Font
End Sub ' Службове слово закінчення процедури
Дата добавления: 2018-05-02; просмотров: 244; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!