Методичні вказівки до виконання завдання № 5

Тема: Створення процедур і функцій користувача

Мета: Одержати практичні навички створення процедур і функцій користувача в середовищі VBA для додатка MS EXСEL

План

1. Завантаження VBA. Вивчення складових частин вікна VBA.

2. Створення процедур.

3. Створення функцій користувача.

Технологія виконання завдання

1. Перед першим листом лабораторних робіт у Excel втавить три нових листи. Першому з них призначити ім'я "Процедури", другому - "Функція", третьому "Робітник". Перейти на лист «Рабочий». Заполнить диапазон ячеек А1:А10 произвольным набором чисел.

2. Создать в VBA модуль пользователя, для чего:

   1. Перейти в редактор Visual Basic - сочетание клавиш Alt+F11 или пункт меню Сервис/ Макрос/ Редактор Visual Basic.

   2. В окне VBA выполнить Вставка/ Модуль.

3. В среде VBA разработать процедуры (PR1, PR2, PR3).

   1. Процедура PR1 должна выполнить следующие действия:

      1. Изменить имя листа «Рабочий», присвоив ему название «Студент».

      2. Поместить в ячейку А11 формулу для подсчета суммы значений из заданного диапазона ячеек (А1:А10).

      3. Отформатировать результат вычисления по формуле (начертание – «жирный», цвет – красный).

   2. Процедура PR2 должна выполнить следующие действия:

      1. Очистить содержимое диапазона ячеек А1:А12.

      2. Записать значение "15" в ячейку А12.

      3. Отформатировать содержимое ячейки А12 (задать размер шрифта равным 20).

   3. Разработать процедуру PR2, которая должна выполнить следующие действия:

      1. Удалить Лист «Студент».

      2. Закончить работу приложения.

   4. Перейти на Лист «Процедуры», создать для каждой процедуры элементы управления – кнопки. Назначить им макросы (процедуры).

   5. Проверить работу процедур, используя кнопки или выполнить их, используя команды меню Сервис.

4. В среде VBA разработать функцию:

   1. Создать в VBA модуль пользователя.

   2. В среде VBA разработать функцию в соответствии с заданием.

   3. Перейти на Лист «Функции».

   4. Проверить работу функции:

      1. Вызвать Мастер функции.

      2. В диалоговом окне Мастера функций (Шаг 1) в поле Категория выбрать категорию Определенные пользователем.

      3. В списке Выберите функцию выбрать имя разработанной функции. Нажать ОК.

      4. В диалоговом окне Аргументы функции ввести аргументы функции. Нажать ОК.

Варіанти завдань приведені в таблиці 4.

Таблиця 4. Завдання

№ вар.	Умова завдання	№ вар.	Умова завдання	№ вар.	Умова завдання	№ вар.	Умова завдання
1	F= x+y3	7	F=a + c*x2	13	F= a*cos x	19	F=xy
2	F=(x+y)3	8	F=a*sin x	14	F=a3+3	20	F= xyz
3	F=a +b*x	9	F=3,5 + 7*x	15	F=	21	F= x3+1
4	F=	10	F=3,5 – 2*x2	16	F=y +	22	F=1 +
5	F=x +	11	F=(x-1)*x	17	F= a3 _	2	F= -2
6	F=	12	F= x2 + 1	18	F= x2 +	24	F= - y

Контрольні питання

1. Що таке функція?

2. Як створюється функція користувача?

3. Що таке процедура?

4. У чому відмінність функції від процедури?

5. Перелічите найбільше часто використовувані типи перемінних?

6. Яка конструкція використовується для опису перемінної?

7. Як викликати функцію і процедуру?

8. Чим відрізняється метод від властивості?

9. Які методи можна застосувати до об'єкта Worksheets?

10. Як зміниться властивість об'єкта, якщо йому призначити властивість Visible?

Чому ви навчилися?

• Створювати функції користувача.

• Створювати процедури.

• Застосовувати методи до об’єктів та задавати їм властивості.

1. Результат виконання лабораторної роботи повинний бути представлений у наступному виді:

Елементи керування для виконання процедур на листі "Процедури":

2. Листинг модуля VBA має такий вигляд:

Sub PR1()

Application.Worksheets("Рабочий").Name = "Студент"

Worksheets("Студент").Range("A11").Formula = "=Sum(A1:A10)"

Worksheets("Студент").Range("A11").Font.Bold = True

Worksheets("Студент").Range("A11").Font.ColorIndex = 3

End Sub

Sub PR2()

Worksheets("Студент").Range("A1:A12").Clear

Worksheets("Студент").Range("A3") = 15

Worksheets("Студент").Range("A3").Font.Size = 20

End Sub

Sub PR3()

Worksheets("Студент").Delete

Application.Quit

End Sub

3. Результат виконання функції в осередку електронної таблиці.