Як повернути значення з функції vba (з прикладами)

Щоб повернути значення з функції у VBA, потрібно призначити значення імені функції.

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

 Function DivideValues(x,y)
    DivideValues = x / y
End Function

Ім’я цієї функції – DivideValues , тому, щоб повернути значення з цієї функції, нам потрібно призначити результат x/y змінній з таким же ім’ям з DivideValues .

Якщо ваша функція включає логіку If Else , ви можете призначити значення назві функції кілька разів.

Наприклад, ви можете створити таку функцію, яка повертатиме «Неможливо поділити на нуль», якщо ви спробуєте поділити на нуль, або просто повертати результат ділення:

 Function DivideValues(x,y)
    If y = 0 Then
      DivideValues = " Cannot divide by zero "
    Else
      DivideValues = x / y
    End If
End Function

У наступному прикладі показано, як використовувати цей синтаксис на практиці.

Приклад: як повернути значення з функції VBA

Припустімо, ми хочемо створити функцію у VBA, щоб розділити значення клітинки A2 на значення клітинки B2 :

Для цього ми можемо створити таку функцію:

 Function DivideValues(x,y)
    DivideValues = x / y
End Function

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Функція повертає значення 5 , яке є результатом поділення 50 на 10.

Ми також можемо створити функцію, яка використовує логіку If Else, щоб спочатку перевірити, чи значення, на яке ми ділимо, не дорівнює нулю:

 Function DivideValues(x,y)
    If y = 0 Then
      DivideValues = " Cannot divide by zero "
    Else
      DivideValues = x / y
    End If
End Function

Якщо ми змінимо значення в клітинці B2 , а потім використаємо цю функцію для виконання ділення, ми отримаємо наступний результат:

Оскільки ми спробували поділити на нуль, функція повертає «Неможливо поділити на нуль».

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

Як закоментувати блок коду у VBA
Як перевірити, чи файл існує за допомогою VBA
Як створити папки за допомогою VBA