Робота з формами у середовищі VBA

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

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

Менеджерами підприємства можуть надаватися знижки покупцям – 1% або 2% для постійних покупців. У залежності від наданої знижки розраховується ціна кожного товару зі знижкою, суми реалізації товарів, підсумкові значення по документу.

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

Після вибору виду знижки і натискання на кнопці “Розрахунок” буде виконано відповідну процедуру для розрахунку підсумків по інформаційних рядках і документу в цілому. Після виконання процедури, яка пов’язана з командною кнопкою “Розрахунок” таблиця буде виглядати так:

Для реалізації поставленої задачі потрібно у вікні редактору VBA створити нову форму за допомогою команди меню Insert – UserForm. У результаті виконання команди до дерева основних об’єктів проекту буде додано гілку Forms, до якої належить об’єкт UserForm1 – вікно нової форми користувача. Коли вікно форми активно за допомогою панелі елементів можна створювати об’єкти у формі та визначати їх властивості з використанням вікна властивостей Properties. Для розробки форми, за допомогою якої можна визначити розмір та здійснити розрахунок показників документу “Видаткова накладна”, потрібно створити об’єкти і визначити їх властивості за описом:

Об’єкт	Властивість
Найменування	Значення
Форма UserForm1	Name	frmRoz
Caption	Розрахунок показників документу
BackColor	білий
Font	Times New Roman, кирилиця, звичайний, 11 пунктів
Командна кнопка CommandButton	Name	cmdRozr
Caption	Розрахунок
Командна кнопка CommandButton	Name	cmdV
Caption	Відміна
Група Frame	Name	FraZn
Caption	Оберіть вид знижки для даного покупця
BackColor	білий
Перемикач OptionButton	Name	opt1
Caption	знижка не надається
BackColor	білий
Перемикач OptionButton	Name	opt2
Caption	знижка 1%
BackColor	білий
Перемикач OptionButton	Name	opt3
Caption	знижка 2%
BackColor	білий

Після створення форми можна починати розробку процедур, які обробляють події – клацання лівою кнопкою миші на командних кнопках. Для цього потрібно виконати подвійне клацання лівою кнопкою миші на відповідній кнопці. Щоб створити процедуру, яку буде виконано якщо користувач натисне на кнопці “Відміна”, потрібно двічі клацнути на цій кнопці. У результаті розчиниться вікно коду з заголовком і завершальним рядком процедури:

Private Sub cmdV_Click()

 

End Sub

Всередині процедури за допомогою операторів мови VBA слід описати дії, до повинні виконуватися, якщо відбудеться подія Click з даним об’єктом cmdV. У даному випадку слід завершити роботу за допомогою оператору End. Процедура буде виглядати так:

Private Sub cmdV_Click()

End

End Sub

Аналогічним чином слід приступити до створення процедури, яка обробляє подію Click для командної кнопки “Розрахунок”. Процедуру потрібно створити за описом:

Рядок коду	Коментар
Private Sub cmdRozr_Click()	Заголовок процедури, що виконується щоразу після клацання лівою кнопкою миші на командній кнопці у формі cmdRozr (Розрахунок).
If opt1.Value = True Then	Якщо обрано перемикач opt1 (знижка не надається), то
Range("B6").Value = 0	у чарунку B6 записується число 0
Else	інакше
If opt2.Value = True Then	якщо обрано перемикач opt2 (знижка 1%), то
Range("B6").Value = 1	у чарунку B6 записується число 1
Else	інакше (обрано третій перемикач)
Range("B6").Value = 2	у чарунку B6 записується число 2.
End If	Кінець внутрішнього оператору If.
End If	Кінець зовнішнього оператору If.
k = 0	Змінній k привласнюється значення 0. Змінна k буде використовуватися як лічильник інформаційних рядків документу.
For i = 8 To 50	Для і, що змінюється від 8 (перший інформаційний рядок документа) до 50 (максимально можлива кількість рядків) виконуються дії.
If Cells(i, 4).Value <> 0 Then	Якщо вміст чарунки Cells(i, 4) - чарунки і-го рядка та 4-ої колонки не дорівнює 0 (у документі є черговий інформаційний рядок), то
Cells(i, 5).FormulaR1C1 = "=RC[-1]*(100-R6C2)/100"	У чарунку Cells(i, 5) – чарунку і-го рядка та 5-ої колонки поміщається формула розрахунку ціни зі знижкою =RC[-1]*(100-R6C2)/100. Формулу можна прочитати так: =чарунка того ж рядка, що і чарунка з формулою, і колонки зі зсувом на –1 (колонки, що розташована ліворуч) * на (100 – чарунка R6C2 при абсолютній адресації це чарунка 6-го рядка та 2-го стовпця B6)/100.
Cells(i, 5).NumberFormat = "0.00"	Значення чарунки Cells(i, 5) перетворюється на числовий формат з двома знаками після десяткової крапки.
Cells(i, 6).FormulaR1C1 = "=RC[-3]*RC[-2]"	У чарунку Cells(i, 6) – чарунку і-го рядка та 5-ої колонки поміщається формула розрахунку суми без ПДВ і без знижки =RC[-3]*RC[-2]. Формулу можна прочитати так: =чарунка того ж рядка і колонки зі зсувом на –3 (кількість) * на чарунку того ж рядка і колонки зі зсувом на –2 (ціна без ПДВ).
Cells(i, 7).FormulaR1C1 = "=RC[-4]*RC[-2]"	У чарунку Cells(i, 7) – чарунку і-го рядка та 7-ої колонки поміщається формула розрахунку суми без ПДВ і зі знижкою =RC[-4]*RC[-2]. Формулу можна прочитати так: =чарунка того ж рядка і колонки зі зсувом на –4 (кількість) * на чарунку того ж рядка і колонки зі зсувом на –2 (ціна без ПДВ зі знижкою).
k = k + 1	Значення k – кількості інформаційних рядків у документі збільшується на 1.
End If	Кінець оператора If.
Next i	Змінна циклу збільшується на 1.
If k > 0 Then	Якщо k > 0, то виконуються наступні дії. У іншому випадку, коли у документі немає інформаційних рядків, процедура завершує свою роботу.
Cells(k + 8, 1).FormulaR1C1 = "Разом:"	У чарунку з адресою (рядок k + 8, стовпчик 1) вводиться новий уміст "Разом:".
Cells(k + 8, 1).Font.Bold = True	Шрифт чарунки (k + 8, 1) перетворюється у напівжирний.
Cells(k + 8, 6).FormulaR1C1 = "=Sum(R8C6:R[-1]C)"	У чарунку з адресою (рядок k + 8, стовпчик 6) вводиться формула розрахунку підсумку по сумі без ПДВ – сумування чарунок блоку R8C6 (рядок 8, колонка 6 – перша інформаційна чарунка даного показника): чарунка R[-1]C, яка розташована на рядок вище від чарунки (k + 8, 6) і у тому ж стовпчику.
Cells(k + 8, 7).FormulaR1C1 = "=Sum(R8C7:R[-1]C)"	У чарунку (k + 8, 7) вводиться формула для розрахунку суми без ПДВ зі знижкою.
Cells(k + 9, 5).FormulaR1C1 = "Загальна сума знижки:"	У чарунку (k + 9, 5) вводиться текст "Загальна сума знижки:".
Cells(k + 9, 5).Font.Bold = True	Шрифт чарунки (k + 9, 5) перетворюється у напівжирний.
Cells(k + 9, 7).FormulaR1C1 = "=R[-1]C[-1]-R[-1]C"	У чарунку з адресою (рядок k + 9, стовпчик 7) вводиться формула розрахунку загальної суми знижки =R[-1]C[-1]-R[-1]C.
Cells(k + 10, 5).FormulaR1C1 = "ПДВ:"	У чарунку (k + 10, 5) вводиться текст "ПДВ:".
Cells(k + 10, 5).Font.Bold = True	Шрифт чарунки (k + 10, 5) перетворюється у напівжирний.
Cells(k + 10, 7).FormulaR1C1 = "=R[-2]C*0.2"	У чарунку з адресою (рядок k + 10, стовпчик 7) вводиться формула розрахунку суми ПДВ =R[-2]C*0.2.
Cells(k + 11, 5).FormulaR1C1 = "Усього з ПДВ:"	У чарунку (k + 11, 5) вводиться текст "Усього з ПДВ:".
Cells(k + 11, 5).Font.Bold = True	Шрифт чарунки (k + 11, 5) перетворюється у напівжирний.
Cells(k + 11, 7).FormulaR1C1 = "=R[-3]C+R[-1]C"	У чарунку (k + 11, 7) вводиться формула розрахунку суми реалізації з ПДВ =R[-3]C+R[-1]C.
Range(Cells(k + 8, 6), Cells(k + 11, 7)).Font.Bold = True	Шрифт діапазону чарунок з підсумковими значеннями перетворюється на напівжирний.
Range(Cells(k + 8, 6), Cells(k + 11, 7)).Font.Italic = True	Шрифт діапазону чарунок з підсумковими значеннями перетворюється у курсив.
End If	Кінець If.
End	Завершення виконання програми.
End Sub	Кінець процедури.

Після завершення створення форми і процедур, які з нею пов’язані, потрібно до проекту додати новий модуль командою меню Insert – Module, у вікні модуля створити процедуру – макрос, який буде виконуватися після натискання на відповідній кнопці на панелі інструментів користувача. Макрос буде виконувати лише одну дію – активізацію форми frmRoz. Це можна здійснити за допомогою методу Show, який буде застосовуватися по відношенню до об’єкту frmRoz. Макрос буде виглядати так:

Sub VN()

frmRoz.Show

End Sub

Далі залишилося лише визначити зв’язок між макросом і відповідною кнопкою на панелі інструментів:

1) Команда меню Вид – Панели инструментов – Настройка або команда Настройка контекстного меню панелей інструментів.

2) Якщо панелі інструментів користувача не існує, на вкладці Панели инструментов скористатися кнопкою Создать і визначити ім’я панелі інструментів (наприклад, “Користувач” або “Документи”).

3) На вкладці Команди у списку Категории обрати Макросы, перетягти об’єкт Настраиваемая кнопка на відповідну панель інструментів.

4) Викликати контекстне меню кнопці на панелі інструментів користувача, виконати команду контекстного меню Назначить макрос, обрати макрос VN, натиснути на кнопці Ок.

5) У контекстному меню кнопки визначити її ім’я “Розрахунок видаткової накладної”.

6) Зачинити вікно діалогу команди Настройка.

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

 

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

1. Що є об’єктом Visual Basic for Application?

2. Чим відрізняється поняття “властивість” у Visual Basic for Application від аналогічного поняття у Visual Basic?

3. Які основні елементи можуть знаходитися у вікні редактору VBA? Як управляти їх виведенням?

4. Як створити нову функцію Microsoft Excel? Як нею скористатися?

5. Що є об’єктом Range?

6. Що означає властивість FormulaR1C1?

7. Як створити командну кнопку на робочому листі Microsoft Excel?

8. Як створити нову форму?

 

7.7 Практичні завдання

Завдання

Виконати завдання за індивідуальним варіантом. Звіт про роботу повинен вміщувати:

- блок-схему алгоритмічного процесу розв’язання задачі;

- роздруковану електронну таблицю у двох видах – з виведенням формул і з виведенням результатів розрахунків по формулах;

- роздрукований програмний код.

 

Варіант №1

Створити функції користувача засобами VBA, за допомогою яких на підставі даних таблиці «Відомість надходження товарів» можна розрахувати значення таких показників:

середньозважена ціна товару;

середня ціна товарів визначеного виробника;

середня ціна товарів визначеної товарної групи.

 

Варіант №2

Створити таблицю «Аналіз реалізації товарів», розрахунок підсумкових значень у якій по рядках і в цілому по таблиці виконується за допомогою командної кнопки «Розрахунок». За допомогою кнопки «Очищення» можна видалити вміст інформаційних рядків таблиці і підсумковий рядок.

Варіант №3