كيف أستعيد قيمة دالة على VBA؟

لتعريف الدالة test والتي تعيد لنا قيمة عددية من نوع Integer:

Public Function test() As Integer
    test = 1
End Function

نعرّف متغيّر من نفس النوع، ونستقبل من خلاله قيمة الدالة :

Dim i As Integer
i = test()

لاستخراج القيمة من خانة ما، كمثال A1، نستعمل:

Public Function testRange() As Range
    Set testRange = Range("A1")
End Function

مثال عملي:

Dim r As Range
Set r = testRange()

يمكن استعمال Exit Function لإنهاء عمل الدالة عند شرط معيّن، كالحصول على القيمة 1:

Function test(ByVal justReturnOne As Boolean) As Integer
    If justReturnOne Then
        test = 1
        Exit Function
    End If
    'more code...
    test = 2
End Function