1 Створення макросів за допомогою "Записувача макросів"

1.1 Завантажити Excel. Виконати команду СЕРВІС →Макрос→Почати запис. У вікні запису макроса вказати назву макроса "Список" і призначити комбінацію клавіш для його запуску CTRL+t;

1.2 Клітинки А1:Е1 заповнити назвами ВНЗ, рис.1;

Рисунок 1- Список ВНЗ Івано-Франківська

1.3 Зупинити запис макросу виконавши команду СЕРВІС →Макрос→Зупинити запис

1.4 Для створенння другого макроросу виконуємо команду СЕРВІС →Макрос→Почати запис У вікні запису макроса вказати назву макроса "Шрифт" і призначити комбінацію клавіш для його запуску CTRL+q

1.5 Виділити діапазон клітинок А1:Е1 і виконати команду Формат →Формат клітинки→Шрифт і вибрати розмір шрифта 12 і колір – жовтий.

1.6 Зупинити запис макросу виконавши команду СЕРВІС →Макрос→Зупинити запис

1.7 Виконати пунк 1.4

1.8 Виокремити Аркуш1 і клацнути правою клавішею миші. З контекстного меню вибрати пункт Перейменувати, рис1.2

Рисунок 1.2- Перейменування Аркуша1

1.9 Витираємо стару назву Аркуш1 і записуємо назву "Звіт"

1.10 Виконати пунк 1.6

1.11. Виконати пункт1.4

1.12 У клітинку В7 записати своє прізвище і групу.

1.13 Виконати пункт 1.6

2 Створення макросів за допомогою модуля в редакторі Visual Basic

2.1 Виконати команду СЕРВІС →Макрос→Редактор VB( або Alt+F11);

2.2 Виконати команду ВСТАВКА→Модуль(меню Insert→Module). Коли зявиться вікно коду, необхідно записати наступний код:

Sub список() 'Службове слово визначення процедури та її імені

Worksheets(1).Range("A1").Value = "ІФНТУНГ" ' присвоєння клітинці А1 значення

Worksheets(1).Range("B1").Value = "Прикарпатський Університет ім. Стефанмка"

Worksheets(1).Range("C1").Value = "Національний медичний університет"

Worksheets(1).Range("D1").Value = "Галицька академія"

Worksheets(1).Range("E1").Value = "Економіки і права"

End Sub' Службове слово закінчення процедури

2.3 Виконати пункт 2.2

Sub шрифт()

Worksheets(1).Range("A1:E1").Select

Worksheets(1).Range("A1:E1").Font.Size = 20' Встановлення розміру шрифту об’єкта Font Worksheets(1).Range("A1:E1").Font.ColorIndex = 6' Встановлення кольору шрифту об’єкта Font

End Sub

2.4 Виконати пункт 2.2

Sub назва()

Worksheets(1).Name = "Звіт"

End Sub

2.5 Виконати пункт 2.3

Sub прізвище()

Worksheets(1).Range("B7").Value = "гр.ДМ-08-1, Іванів І.І."

End Sub

2. Назначення кнопок створеним макросам

   1. Відобразити на екрані панель інструментів Елементи і керування, для цього виконати пункт ВИД →Панелі інструментів→Елементи і керування;

   2. З панелі елементів керування вибрати елемент Кнопка(CommandButton.);

   3. Викликати контекстне меню для зміни назви кнопки, рис.1.3 і змінити назву згідно з назвою макроса;

Рисунок 1.3 – Перейменування кнопки

4. Викликати контексне меню для привязки кнопки до макроса, рис.1.4

Рисунок 1.4 – привязка макроса до кнопки

5. В наступному вікні вибрати макрос, рис 1.5

Рисунок 1.5- Вікно призначення макроса

6. Для привязки наступних макросів до кнопок виконати пункти 3.1–3.4

2. Привязка макросів до графічних об’єктів

   1. Виконати пункт Вставка →Автофігури;

   2. Із панелі інстументів Автофігура вибрати фігуру для запуску макроса;

   3. Виокремити вибрану фіігуру і викликати контексне меню;

   4. З контексного меню вибрати макрос.

   5. Для привязки до графічних об’єктів насткпних макросів виконати пункти 4.1–4.4, рис.1.6

Рисунок 1.6 – Результат виконання лабораторної роботи