Процедури і функції

Основними компонентами програм на VBA є процедури і функції. Вони являють собою фрагменти програмного коду, укладені між операторами Sub і End Sub або між Function і End Function. У загальному випадку процедури і функції записуються наступним чином:

Sub < ім'я процедури < [ (< аргументи >)]

< оператори >

End Sub

Function < ім'я функції > [ (< аргументи >)] As < тип значення >

< оператори >

< ім'я функції > = < повертається значення >

End Function

Список аргументів розділяється комами. Функція відрізняється від процедури тим, що її ім'я виступає також в якості змінної і використовується для повернення значення в точку виклику функції. для виклику процедури з іншої процедури або функції використовується інструкція Call. Спочатку йде ім'я процедури, а потім в дужках список фактичних значень її аргументів. Процедури можна також викликати просто по їх імені без використання інструкції Call. У цьому випадку список аргументів не полягає в дужки. Функції викликаються так само, як і процедури, але набагато частіше вони викликаються за їх імені до укладеного в дужки списком фактичних значень аргументів у правій частині оператора присвоювання. наприклад:

Call mySub (" Ландера ", 4, i +1)

mySub " Ландера ", 4, i +1

total_price = myFunc ([ Ціна] * [ Кількість], [Доставка])

Допускається два різні способи передачі змінних процедурі чи функції: за посиланням або за значенням. За замовчуванням змінні передаються за посиланням (оголошення ByRef). При зміні значення змінної всередині процедури це зміна залишається і при виході з цієї процедури. змінні можна передавати і за значенням. Тоді зміна значення такої змінної не буде впливати на значення змінної, переданої в процедуру або функцію. Для цього використовують оголошення ByVal. У загальному вигляді оголошення аргументів проводиться таким чином BуVal / ByRef <ім'я аргументу > [ ()] [ As < тun >].

наприклад:

Sub mySyb (srteet As String, ByVal building As Integer, ByRef apt As Byte)

Forms! [ Клієнти ]! [ Адреса ] = srteet & "" & building & ", " & apt

End Sub

Function myFunc (full_price As Currency, shipment As Single) As Currency

myFunc = full_price * 1.2 + shipment

End Function

Для примусового виходу з процедури і функції використовуються відповідно Exit Sub і Exit Function.