План практичного заняття:

1. Увійти у табличний процесор Excel.

2. На Лист1 створити формулу: Вставка, Объект, Microsoft Equation 3.0

3. Зберегти файл під іменем "Практична робота №13", вказавши тип файлу: Книга Excel с поддержкой макроса.

4. Зробити копію екрана у буфері обміну за допомогою клавіші PrintScreen.

5. Увійти в графічний редактор: ПУСК, Все программы, Стандартные, Paint.

6. Вставити із буфера обміну малюнок екрану: Правка, Вставить.

7. Виділити за допомогою кнопки «Выделение» саму формулу і скопіювати її в буфер обміну: Правка, Копировать.

8. Створити новий файл: Файл, Создать. Вставити із буфера обміну формулу: Правка, Вставить.

9. Зберегти файл під іменем formula.bmp в папку «Мои рисунки».

10. Перейти до Excel.

11. Відобразити вкладку Разработчик.

Натиснути кнопку Microsoft Office , Параметры Excel, у категорії Основные параметры работы с Excel встановити прапорець Показывать вкладку "Разработчик" на ленте.

12. Знизити безпеку макросів.

Разработчик, Безопасность макросов, у категорії Параметры макросов встановити прапорець Включить все макросы (не рекомендуется, возможен запуск опасной программы).

13. Увійти до Редактора VBA: Разработчик, Код: Visual Basic

14. Вставити форму кнопкою (InsertUserForm).

15. Користуючись інструментами на панелі елементів (Toolbox), додати на форму об’єкти:

а) (Label) для створення написів: «Алгоритм обчислення довжини гіпотенузи», «Введіть значення а і b», «а=», «b=», «Результат»,»с=»;

б) (Image) – для вставки формули як малюнка із попередньо створеного файлу formula.bmp;

в) (TextBox) - для створення полів введення/виведення даних;

г) (CommandButton) – для створення кнопок «ПУСК» та «КІНЕЦЬ».

16. Змінити властивості форми у вікні Properties-UserForm1:

• заголовок форми Caption: Виконавець: своє прізвище

• висоту форми Height: 200

• ширина форми Width: 200

• фон форми BackColor: синій

17. Змінити властивості окремих елементів форми:

• напису Properties-Label1:

BackColor: жовтий

TextAlign: 2-fmTextAlignCenter

• малюнку формули Properties-Image1:

Picture: , formula.bmp

PictureAlignment: 0-fmPictureAlignmentTopLeft

Height: 26

Width: 73

• для кнопок Properties-CommandButton1 та Properties-CommandButton2

BackColor: блакитний

18. Перейти до коду об’єкта кнопкою (View Code), додати процедуру для обчислення довжини гіпотенузи:

Private Sub UserForm_Click()

'Практична робота №13

End Sub

Private Sub CommandButton1_Click() 'Процедура виконується при натисненні ПУСК

'Лінійний алгоритм

a = TextBox1.Text

b = TextBox2.Text

c = Sqr(a * a + b * b)

TextBox3.Text = c

End Sub

Private Sub CommandButton2_Click()'Процедура виконується при натисненні КІНЕЦЬ

End

End Sub

19. Виконати процедуру: Run, Run Sub/UserForm (F5) або кнопкою , перевірити на контрольному прикладі: А=3 B=4 C=5.

20. На Лист2 набрати таблицю:

    Катет А	Катет В	Гіпотенуза
    5	5
    3	4
    1	6
    8	3

21. Створити макрос з назвою «Гіпотенуза» мовою VBA для заповнення таблиці, використовуючи підпрограму-функцію обчислення довжини гіпотенузи: Разработчик, Код: Макросы, Гіпотенуза, Создать.

Function GP(a, b) As Double ' функція обчислення довжини гіпотенузи

GP = Sqr(a * a + b * b)

End Function

Sub Гіпотенуза()

Range("C2") = GP(Range("A2"), Range("B2"))

Range("C3") = GP(Range("A3"), Range("B3"))

Range("C4") = GP(Range("A4"), Range("B4"))

Range("C5") = GP(Range("A5"), Range("B5"))

End Sub

22. Виконати макрос «Гіпотенуза».

23. Очистити розраховані комірки.

24. Змінити процедуру «Гіпотенуза» (Разработчик, Код: Макросы, Гіпотенуза, Изменить) для виконання обчислень з використанням циклу:

Sub Гіпотенуза()

For i = 2 To 5 ' і – номер рядка

Cells(i, 3) = GP(Cells(i, 1), Cells(i, 2))

Next i

End Sub

25. Виконати макрос «Гіпотенуза».

26. Створити на Лист2 кнопку (Разработчик, Элементы управления:Вставить, ) і призначити їй виконання макросу «Гіпотенуза».

27. Переіменувати кнопку на «ПУСК» правою кнопкою мишки.

28. Очистити розраховані комірки.

29. Виконати макрос «Гіпотенуза» за допомогою кнопки «ПУСК».

30. Перейти до VBA та внести зміни

• до коду об’єкта Эта книга для автоматичного запуску форми при відкриванні робочої книги:

Private Sub Workbook_Open()

UserForm1.Show

End Sub

• до властивості Picture форми UserForm1 так, щоб фоном був малюнок з будь-якого графічного файлу, які знаходяться

C:\Program Files\Microsoft Office\MEDIA\CAGCAT10

C:\Program Files\Microsoft Office\CLIPART\PUB60COR

31. Закрити файл зі збереженням змін. І знову його відкрити.

ПРАКТИЧНА РОБОТА №14

Програмування мовою Visual Basic for Application (VBA).

ТЕОРЕТИЧНІ ВІДОМОСТІ

Реалізація умовного алгоритму

У VBA використовується оператор умовного алгоритму If. Синтаксис:

Простий оператор: If Умова Then Оператори 1 [Else Оператори2]

Складний оператор: If Умова 1 Then Оператори 1 [Else

If Умова 2 Then Оператори 2 Else

If Умова 3 Then Оператори 2

...............

Else ОператориN

Приклад алгоритму обчислення значень функції з використанням відповідної форми користувача:

Private Sub CommandButton1_Click()

'Розгалужений алгоритм

t = TextBox1.Text

If (t > -11) And (t < 2) Then U = t * t + Sin(t) Else If (t > 2) And (t <= 14) And (t <> 10) Then U = Sqr(t - 1) Else U = "Функція не визначена"

TextBox2.Text = U

End Sub

Private Sub CommandButton2_Click()

End

End Sub

Private Sub UserForm_Click()

'Практична робота 14

End Sub