Використання умовних операторів

У VBA використовується кілька операторів керування послідовністю виконання програми. Функціонально вони поділяються на дві групи операторів: а) переходу та вибору; б) повторення.

Оператори умовного переходу If…Then та If …Then…Else задають умови виконання певних груп операцій залежно від виконання умови.

Синтаксис:

If умова Then оператор1 Else оператор2.

Тут умова – це вираз логічного типу, створений за допомогою операторів відношень (=, <>, >, <, >=, <=) та логічних операцій Not, And, Or.

В умовному операторі можна використовувати блок операторів:

If умова Then

Блок_операторів1

Else

Блок_операторів2

End If.

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

If умова1 Then

Блок_операторів1

ElseIf умова2 Then

Блок_операторів2

ElseIf умова3 Then

Else

Блок_операторів

End If.

Частина Else в умовному операторі є необов’язковою.

Оператор вибору Select Case використовується, якщо залежно від значення певного виразу (множина допустимих значень кінцева) потрібно виконувати різні дії:

Select Case вираз

Case умова_вибору1

Блок_операторів1

Case умова_виборуN

Блок_операторівN

Case Else

Блок_операторів

End Select.

Після кожного оператора Case може бути довільна кількість операторів, причому всі вони будуть виконуватись, якщо умовою оператора Case є істина.

Оператор безумовного переходу GoTo задає перехід на заданий рядок усередині програми:

GoTo рядок.

Параметр рядок може бути номером або міткою рядка. Мітка рядка починається з літери і закінчується символом двокрапки (:).

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

Функція буде мати такий вигляд:

Function Pod (Zpl)

If Zpl>8000 Then

Pod=0.2*Zpl

ElseIf Zpl>3000 Then

Pod=0.15*Zpl

ElseIf Zpl>1000 Then

Pod=0.1*Zpl

Else Zpl1000 Then

Pod=0.08*Zpl

End Function

Назва функції користувача Pod, Zpl – умовний аргумент, від якого залежить значення функції Pod. Припустимо, сума заробітної плати введена в комірки А2:А10, величина податку буде записана у діапазон комірок В2:В10. Тоді для обчислення податку у робочому аркуші в комірці обчислення податку В2 вводиться створена функція =Pod(A2).

За допомогою оператора перевірки умови If - … - End If створена функція Pod, підставляючи аргумент А2 замість умовного Zpl, обчислює потрібне податку і заносить його у комірку А2. Отримане значення потрібно скопіювати у комірки А3:А10.

Обчислимо величину до видачі, яка дорівнює різниці між величиною нарахувань та податком:

Function TotalVypl (CountPod, Zpl)

TotalVypl= Zpl – CountPod

End Function

Вигляд функції у робочому аркуші (комірка С2):

=TotalVypl(A2; B2)

Умовне значення CountPod замінюється конкретним значенням податку з комірки А2, а умовне значення Zpl замінюється конкретним значенням суми до виплати з комірки В2.

Обчислене значення До виплати заноситься у комірку С2 і потім копіюється у комірки С3:С10.

Створені функції користувача можна викликати також за допомогою Майстра функцій.

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

Function Podatok (Zpl)

Select Case Zpl

Case 0 To 1000.00

Podatok=Zpl*0.08

Case 1000.01 To 2999.99

Podatok=Zpl*0.1

Case 3000 To 7999.99

Podatok=Zpl*0.15

Case Is>=8000.00

Podatok=Zpl*0.2

End Select

End Function.