شرح لوظيفة دالة Excel
VBA من العودة وحتى الاتصال مع بعض الأمثلة
أولًا.. ما هي الدالة؟
الدالة هي جزء من التعليمات البرمجية التي تؤدي
مهمة محددة وتعيد نتيجة. تُستخدم الدوال في الغالب لتنفيذ المهام
المتكررة مثل تنسيق البيانات للإخراج وإجراء العمليات الحسابية وما إلى ذلك.
افترض أنك تطور برنامجًا يحسب الفائدة على القرض. يمكنك إنشاء دالة تقبل مبلغ القرض وفترة السداد. يمكن للدالة بعد ذلك استخدام مبلغ القرض وفترة السداد لحساب الفائدة وإرجاع
القيمة.
ثانيًا.. لماذا نستخدم الدوال؟
مزايا استخدام الدوال هي نفسها تلك الموجودة في
الفقرة السابقة حول سبب استخدام الإجراءات الفرعية.
ثالثًا.. قواعد تسمية الدوال
تعمل قواعد التسمية مثل تلك الموجودة في الفقرات
السابقة حول قواعد تسمية الإجراءات الفرعية.
كيفية بناء جملة VBA للإعلان عن دالة
Private Function myFunction (ByVal arg1 As
Integer, ByVal arg2 As Integer)
myFunction = arg1 + arg2
End
Function
حيث أنّ:
– الكود “Private Function myFunction(…)” يتم فيه استخدام الكلمة الأساسية “Function” للإعلان عن وظيفة تسمى “myFunction” وبدء جسم الدالة.
ويتم استخدام الكلمة الأساسية “Private” لتحديد نطاق الدالة.
– الكود “ByVal arg1 As Integer, ByVal arg2 As Integer” يعلن عن معاملين من نوع بيانات عدد صحيح يسمى “arg1″ و “arg2.”.
– الكود myFunction = arg1 + arg2 يقوم بتقييم التعبير arg1 + arg2 وتخصيص النتيجة لاسم الدالة.
– الكود “End Function” يتم فيه استخدام “End Sub” لإنهاء جسم الدالة.
الدالة موضحة بمثال
الدوال تشبه إلى حد بعيد الروتين الفرعي. يتمثل الاختلاف الرئيسي بين روتين فرعي ودالة في أن الدالة ترجع قيمة عند
استدعائها. بينما لا يقوم روتين فرعي بإرجاع قيمة عند استدعائه. ولنفترض أنك تريد جمع رقمين. يمكنك إنشاء دالة تقبل رقمين وترجع مجموع
الأرقام.
1. أنشئ واجهة المستخدم.
2. أضف الدالة
3. اكتب رمز لزر الأمر.
4. اختبر الكود.
الخطوة (1) واجهة المستخدم
أضف زر أمر إلى ورقة العمل كما هو موضح أدناه.
قم بتعيين خصائص CommanButton1 التالية إلى ما يلي.
العامل CommandButton1:
– الاسم فيه قيمته هي btnAddNumbers.
– الواجهة فيه هي إضافة أعداد للدالة.
الخطوة (2) رمز الوظيفة
1. اضغط على Alt + F11 لفتح نافذة الكود.
2. أضف الكود التالي:
Private Function addNumbers(ByVal firstNumber
As Integer, ByVal secondNumber As Integer)
addNumbers = firstNumber + secondNumber
End
Function
حيث أن:
– الكود “Private Function addNumbers(…)”
يعلن عن دالة خاصة “addNumbers” التي تقبل معاملين صحيحين.
– الكود “ByVal firstNumber As Integer، ByVal secondNumber As Integer” يعلن عن متغيرين معاملات، هما firstNumber و secondNumber.
– الكود “addNumbers = firstNumber + secondNumber” يقوم بإضافة قيم firstNumber و secondNumber وتعيين المجموع إلى addNumbers.
الخطوة (3) اكتب الرمز الذي يستدعي الوظيفة
1. انقر بزر الفأرة الأيمن فوق زر الأمر btnAddNumbers_Click
2. حدد عرض الرمز.
3. أضف الكود التالي:
Private Sub btnAddNumbersFunction_Click()
MsgBox addNumbers(2, 3)
End Sub
حيث أنّ:
– الكود “MsgBox addNumbers (2،3)”
يستدعي الدالة addNumbers ويمرر في 2 و 3 كمعاملات. وترجع الدالة مجموع العددين خمسة (5).
الخطوة (4) قم بتشغيل البرنامج، وستحصل على النتائج التالية:
شاهد أيضًا: صيغ الدالة AREAS
واستخدامها في برنامج MICROSOFT EXCEL
وفي
نهاية المقال، نتمنى أن نكون قد أفدناكم بما يخص هذا الجزء من البرمجة باستخدام
برنامج Excel، ونضرب لكم موعدًا جديدًا مستقبلًا مع المزيد من المقالات.