Практичні завдання у створенні макросів за допомогою vba

1 Завантажити програму Excel і відкрити свій файл.

2 Для виклику редактора VBA натисніть комбінацію клавіш Alt+F11. Якщо на екрані відсутнє вікно для введення коду, виконайте команду Вставка → Модуль.

3 Введіть текст першого макросу з ім′ям Привіт.

Текст макросу	Пояснення рядків (не вводити)
Sub Привіт () Dim Hello As String Hello="Привіт!" Titles$="Вікно вітання" MsgBox Hello, , Titles$ End Sub	Оголошення макросу Оголошення текстової змінної з іменем Hello Присвоєння змінної значення Значення заголовка вікна Функція виводу вікна на екран Закінчення макросу

4 Перевірити роботу макросу, не виходячи з редактора можна натисканням функціональної клавіші F5. У випадку помилок його можна відразу відредагувати.

Відповідайте на питання:

а) як оголошена змінна Hello і який її тип?

б) як оголошена змінна Titles і який її тип?

в) чому у функції МsgВох є пробіл між двома аргументами?

5 Знаходячись у вікні редактора VBA, введіть наступну процедуру:

Sub Коло ()

Dim R@,S@

BoxTitle="Площа кругу"

R=InputBox("Уведіть радіус кола", BoxTitle)

S=3.14*R^2

MsgBox, , BoxTitle

End Sub

6 Запустіть процедуру на виконання.

7 Запишіть текст процедури в зошит з поясненням призначення кожного рядка. Який тип має змінна S?

Для повернення у вікно програми Excel можна:

а) закрити|зачинити| вікно редактора;

б) виконати команду Файл→Закрыть|зачинити| і повернутися в Microsoft Excel;

в) натиснути|натискувати| комбінацію клавіш Alt+Q.

Робота з|із| функціями VBA. Керуюча інструкції If Then Else.(если-то-иначе)

1 Завантажити програму Excel і відкрийте|відчиніть| свій файл. Запустіть редактор VBA і введіть|запровадьте| наступну процедуру

Sub Пароль()

password = InputВох("Введіть|запровадьте|, будь ласка, пароль")

If password = "123" Then

MsgBox "Спасибі!"

Else

MsgBox "Шкода. Пароль невірний"

End If

End Sub

Пояснення: якщо на запит програми, ви введете пароль 123, то з'явиться вікно з повідомленням "Спасибі", інакше буде повідомлення "Шкода. Пароль невірний"

2. Запустіть процедуру на виконання 2 рази: один раз введіть|запровадьте| пароль вірний, а інший – ні.

3. Запишіть в зошит процедуру Пароль і поясніть призначення кожного рядка процедури.

4. Завдання

Створимо процедуру, яка визначає стипендію студента в залежності від його середнього балу за сесію за умови:

Середній бал	Стипендія
4.0 - 4.24	90
4.25 - 4.49	150
4.5 – 5	160

Sub Стипендія ()

Dim Stip, Srb

Srb = InputBox(Prompt:="Введите средний балл", Title:="Стипендия")

BoxTitle = "Стипендия"

If Srb < 4 Then

Stip = 0

Else

If Srb < 4.25 Then

Stip = 90

Else

If Srb < 4.5 Then

Stip = 150

Else

Stip = 160

End If

End If

End If

MsgBox Stip, , BoxTitle

End Sub

5 Запустіть процедуру на виконання декілька разів, вводячи кожного разу нове значення середнього балу:2; 3.0; 4.3; 5.0