ПРАКТИЧНА РОБОТА № 6.

 

ПРАКТИЧНА РОБОТА № 6.

 

Тема: Робота із VBA. Розрахунок комісійних за допомогою VBA. Створення простих функцій користувача і програм на VBA.

Ціль: Навчитися працювати із VBA, створювати прості функції користувача і програми, а також розраховувати комісійні за допомогою VBA.

 

МЕТОДИЧНІ ВКАЗІВКИ.

9.1. Користувальницькі функції робочого листа й VBA.

 

Функції користувача будуються в стандартному модулі редактора VBA. VBA (Visual Basic for Applications) - єдина для всіх додатків Microsoft Office мова програмування, побудована на основі Visual Basic. Щоб потрапити в редактор VBA, виберіть команду Сервис -> Макрос -> Редактор Visual Basic або натисніть комбінацію клавіш <Alt>+<F11>. Він має стандартний вигляд для Windows-додатків: рядок меню, панель інструментів (у цьому випадку стандартну) і два вікна Project – VBAProject й Properties.

У вікні VBAProject відображається реєстр модулів і форм, що входять у створюваний проект. Модуль, спрощено говорячи, – це лист, у якому набирається код програми. Подвійним щигликом на значку модуля у вікні Project –> VBAProject можна відкрити відповідний модуль. Значок активного модуля в цьому вікнівиділяється сірими кольорами. В VBA у кожного робочого листа є власний модуль. Крім того, робоча книга має свій, і якщо в проекті створюються користувальницькі форми, те кожна з них має по модулю. Єдиний модуль, що нам зараз необхідний, – це стандартний модуль. Щоб додати його в проект, виберіть команду Insert -> Module (мал. 9.1).

 

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

 

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

 

Function name (arglist)

[statements]

End Function

де name –ім'я функції користувача; argilst – список аргументів; statements –це послідовність інструкцій, виконуваних при знаходженні значення функції.

У сукупності вони утворять так називане тіло функції. Важлива особливість функції користувача полягає в тому, що носієм повертаємого значення є її ім'я, тобто ідентифікатор name. Тому серед інструкцій програми повинна бути присутнім, принаймні, одна, котра є оператором присвоювання імені функції значення якого-небудь вираження.

 

Мал. 9.1. Додавання модуля VBA.

9.3. Найпростіша функція користувача

 

Для початку, побудуємо дуже просту функцію, що повертає вартість товару по його вартості без ПДВ і значенню ставки ПДВ. У стандартному модулі наберіть наступний код (мал. 9.2):

 

Function Стоимость (Стоимостьбезндс, НДС)

Стоимость = Стоимостьбезндс * (1 + НДС / 100)

End Function

 

Якщо правильно набрати перший рядок:

 

Function Стоимость (Стоимостьбезндс, НДС)

 

те при натисканні <Enter> остання інструкція End Function додасться редактором VBA автоматично. Варто лише набрати інструкцію, що залишилася, у тілі функції користувача, і користувальницька функція буде створена. За замовчуванням вона потрапляє в розділ Определенные пользователемсписку Категория вікна Мастер функций.

 

 

Мал. 9.2. Введення функції користувача.

 

 

Знайдемо, наприклад, вартість товару з урахуванням ПДВ за умови, що ПДВ дорівнює 25%, а вартість товару без урахування ПДВ дорівнює 1000 (мал. 9.3). Для цього:

 

1. Виберіть комірку А2 й введіть у неї число 1000 (вартість без ПДВ).

2. Виділіть комірку В2 й введіть у неї число 25 (ПДВ).

3. Виділіть комірку С2, у якій знайдемо значення функції.

4. Виберіть команду Вставка -> Функция.

5. У першому вікні Майстра функцій у списку Категориязнайдіть Определенные пользователем,а потім у списку Функциявиберіть функцію Стоимостьта натисніть кнопку ОК.

6. У другому вікні Майстра функцій у поле СтоимостьБезНДС введіть посилання на комірку А2, а в поле ПДВ – посилання на комірку В2 і натисніть кнопку ОК.

 

9.4. Математичні функції

 

При створенні функцій користувача варто знати, які убудовані математичні функції є в VBA. Таких функцій зовсім не багато:

 

Мал. 9.3. Використання функції користувача.

 

Функція Повертає значення

 

Abs (number) Абсолютна величина числа

Atn (number) Арктангенс

Cos (number) Косинус

Exp (number) Експонента, тобто результат піднесення підстави

натурального логарифма до зазначеного степеня

 

Log (number) Натуральний логарифм

 

Rnd (number) Випадкове число з інтервалу [0,1). Якщо number менше нуля,

то Rnd повертає щоразу те саме число. Якщо number більше нуля або опущений, то Rnd повертає наступне випадкове число в послідовності. Якщо number дорівнює нулеві, то Rnd повертає випадкове число, отримане при попередньому виклику цієї функції (перед викликом функції Rnd використовуйте оператор Randomize).

 

Функція Повертає значення

Sgn (number) Знак числа

Sin (number) Синус

 

Sqr (number) Квадратний корінь із числа

 

Tan (number) Тангенс

 

Fix (number),

Int (number), Обидві функції Int й Fix відкидають дробову частину числа й

повертають ціле значення. Різниця полягає в тому, що для негативного значення параметра функція Int повертає найближче негативне ціле число менше або рівне вказаному, a Fix – найближче негативне ціле число, більше або рівне вказаному.

 

Створимо ще одну користувальницьку функцію: F(x) = cos² (πх). Щоб це зробити, потрібно в стандартному модулі набрати наступний код:

 

Function F(x)

Pi = Atn(1) * 4

F = Cos(Pi * x)^2

End Function

 

В VBA немає функції, що повертає число π;. Тому для його знаходження застосовується функція Atn. Можна задати π; явно, вказавши достатнє число значущих цифр.