Практичне завдання № 7

MICROSOFT EXCEL

Основи Visual Basic for Applications.
Створення функцій користувача

Хід роботи:

1. Відкрити з персональної папки робочий файл.
2. Викликати панель інструментів “Visual Basic”.

- - вибрати пункт меню “ВидÞПанели инструментовÞVisual Basic”;

1. Запустити “Visual Basic”:

- - на панелі “Visual Basic” вибрати кнопку – Редактор Visual Basic;

- - ознайомитися з елементами управління та робочими вікнами редактора:

* якщо на екрані відсутнє будь-яке вікно (властивостей, проекту і т.д.), його можна в будь-який момент викликати або сховати:

вікно проекту – “ViewÞProject Explorer”;

вікно властивостей – “ViewÞProperties Window”;

вікно редагування коду – “ViewÞCode” (по замовчуванню відсутнє);

1. Меню вікна “Visual Basic” складається з таких пунктів:

1. 1) File (“Файл”)

2. 2) Edit (“Правка”)

3. 3) View (“Перегляд”)

4. 4) Insert (“Вставка”)

5. 5) Format (“Формат”)

6. 6) Debug (“Відлагодження”)

7. 7) Run (“Запуск”)

8. 8) Tools (“Інструменти”)

9. 9) Add-Ins (“Додаткові елементи”)

10. 10) Window (“Вікно”)

11. 11) Help (“Допомога”)

1. Для того, щоб можна було написати функції та процедури, необхідно створити модуль, в якому буде зберігатися текст функції чи процедури:

- - вибрати пункт меню “InsertÞModule”.

* вікно редагування коду для створеного модуля з’явиться автоматично.

1. Вставити нову функцію для розрахунку прибуткового податку:

- - встановити курсор у вікно редагування коду модуля (при допомозі мишки);

- - вибрати пункт меню “InsertÞProcedure…”;

- - у вікні “Add Procedure” встановити ім’я функції – “Прибутковий_податок”, зазначити тип – “Function”, вказати доступність – “Public” (доступна для всієї робочої книги).

1. Як результат, у вікні коду з’явиться оголошення функції:

1. Вказати аргумент функції – змінну “нараховано” типу Single та тип результату, який повертає функція – Single:

- - Public Function Прибутковий_податок(нараховано As Single) As Single

1. Після рядка імені функції “Public Function Прибутковий_податок(нараховано As Single) As Single” та перед кінцем цієї функції вписати текст функції:

If нараховано <= 17 Then Прибутковий_податок = 0

If (нараховано > 17) And (нараховано <= 85) Then

Прибутковий_податок = (нараховано - 17) * 0.1

End If

If (нараховано > 85) And (нараховано <= 170) Then

Прибутковий_податок = (85 - 17) * 0.1 _

+ (нараховано - 85) * 0.15

End If

If (нараховано > 170) And (нараховано <= 1020) Then

Прибутковий_податок = (85 - 17) * 0.1 _

+ (170 - 85) * 0.15 _

+ (нараховано - 170) * 0.2

End If

If (нараховано > 1020) And (нараховано <= 1700) Then

Прибутковий_податок = (85 - 17) * 0.1 _

+ (170 - 85) * 0.15 _

+ (1020 - 170) * 0.2 _

+ (нараховано - 1020) * 0.3

End If

If нараховано > 1700 Then

Прибутковий_податок = (85 - 17) * 0.1 _

+ (170 - 85) * 0.15 _

+ (1020 - 170) * 0.2 _

+ (1700 - 1020) * 0.3 _

+ (нараховано - 1700) * 0.4

End If

1. Після введення коду функції необхідно провести її компіляцію для синтаксичної перевірки функції на синтаксичні помилки:

- - виконати пункт меню “DebugÞCompile VBAProject”.

* у випадку знаходження помилки, компілятор перерве свою роботу, виділить рядок з помилкою червоним кольором у вікні редагування коду та видасть повідомлення про помилку;

* якщо код функції не містить помилок, - повідомлення не буде;

* при наявності помилки, її потрібно виправити та повторити компіляцію.

1. Закрити вікно Visual Basic.
2. У вікні Excel перейти на лист “Розрахунок ЗП”.
3. В стовпчику “Прибутковий податок” змінити формулу на щойно створену функцію:

=Прибутковий_податок(F14)

* де F14 – значення “Нараховано всього” для директора

1. Автозаповненням заповнити стовпчик “Прибутковий податок” для інших рядків таблиці.

Поиск по сайту: