ВартістьП

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

Для цього випадку користувацька функція може мати вигляд, представлений на рис. 5.45.

Function ВартістьФ(x As Currency, y As Integer) As Currency Dim z As Currency z=x*y ВартістьФ=z

End Function

Рис. 5.45. Користувацька функція розрахунку вартості

Тоді процедура, пов'язана з подією – клацання на кнопці Розрахунок, у якій використовується користувацька функція, може мати такий вигляд (рис. 5.46):

Option Explicit

Private Sub CmdРозрахунок_Click() Dim CurZіna As Currency Dim CurVartist As Currency Dim IntKilkist As Integer CurZіna=CCur(TxtЦіна.Text) IntKilkist=CInt(TxtКількість.Text) CurVartist= ВартістьФ(CurZіna, IntKilkist) TxtРезультат.Text=Format(CurVartist, “# ##0.00”)

End Sub

Рис. 5.46. Приклад використання користувацької функції

Після запуску даного проекту на виконання буде отриманий результат, аналогічний представленому на рис. 5.44.

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

Постановка задачі

У середовищі табличного процесора MS Excel розробити відомість продажу товарів за деякий період часу. У проекті передбачити використання довідкових даних про товари, про знижки для різних типів покупців і про знижки на обсяг покупки. При цьому доцільно передбачити вибір одного з таких варіантів організації знижок:

а) підсумовуються всі передбачені знижки;

б) діє одна максимальна з можливих знижок. При цьому вибір варіанта доцільно організувати із застосуванням елемента управління , що розміщується на аркуші робочої книги.

Для розрахунків основних показників відомості використовувати користувацькі процедури й функції, що спроектовані в програмному середовищі Visual Basic for Applications.

Порядок виконання дій у табличному процесорі MS Excel

Порядок формування основної й довідкової таблиць розглянутий при вивченні технології використання відомостей з довідкових таблиць при богатотабличній обробці даних у середовищі табличного процесора MS Excel. Особливістю такої обробки є пошук і отримання даних з довідкових таблиць із використанням ключів-ідентифікаторів і стандартної функції ВПР(). Такими ключами можуть бути Код товару для таблиці "Прайс-лист", що містить відомості про товари (рис. 5.47), Код типу покупця й Вартість – для таблиць "Знижка на тип покупця" і "Знижка на обсяг" відповідно (рис. 5.48).

Рис. 5.47. Відомості про товари

Рис. 5.48. Відомості про знижки

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

На основі даних, що включені у довідкові таблиці, необхідно сформувати відомість продаж, структура якої представлена на рис. 5.49.

Рис. 5.49. Структура підсумкової таблиці "Відомість продаж"

У поля "Код товару" і "Код покупця" підсумкової таблиці дані доцільно вводити зі списків, що випадають, які настроюються через діалогове вікно "Перевірка даних". Відомості в поле "Кількість" користувачем уводяться із клавіатури. В клітинки поля "Найменування товару" доцільно ввести стандартну функцію, що для четвертого рядка електронної таблиці буде мати такий вигляд:

=ВПР(D4;Товари;2;ЛОЖЬ()).

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

=ВПР(D4;Товари;3;ЛОЖЬ())*E4.

Для організації розрахунків різноманітних знижок доцільно розробити в програмному середовищі Visual Basic for Applications відповідні користувацькі функції.