• 0

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

أتوفر على دالة وأريد استعادتها والحصول على قيمتها النهائية، وذلك من خلال برمجة VBA، مثلاً:

Public Function test() As Integer
    return 1
End Function

لا أدري لمَ أحصل على خطأ عند عمل run للتطبيق؟ ما الخطأ في ذلك؟

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة
  • 0

لتعريف الدالة 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

 

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة

يجب أن تكون عضوًا لدينا لتتمكّن من التعليق

انشاء حساب جديد

يستغرق التسجيل بضع ثوان فقط


سجّل حسابًا جديدًا

تسجيل الدخول

تملك حسابا مسجّلا بالفعل؟


سجّل دخولك الآن