بناء جملة VBA Subroutine في برنامج Microsoft Excel وكيفية استدعاء Sub في لغة البرمجة VBA
بناء جملة VBA Subroutine في برنامج Microsoft
Excel وكيفية استدعاء Sub في لغة البرمجة VBA ستحتاج إلى تمكين علامة التبويب Developer في
برنامج Microsoft Excel لمتابعة هذا المثال. وإذا كنت لا تعرف كيفية تمكين علامة التبويب Developer، فاقرأ المقال التعليمي
حول VBA Operators.
بناء جملة VBA Subroutine في برنامج Microsoft Excel
-هنا في بناء الجملة:
Private Sub mySubRoutine(ByVal arg1 As String, ByVal arg2 As String)
‘do something
End Sub
حيث أنّ:
– الكود “”Private Sub mySubRoutine(…)” يتم فيه استخدام الكلمة الأساسية “Sub” للإعلان عن إجراء فرعي يسمى “mySubRoutine” وبدء جسم الروتين الفرعي.
ويتم فيه استخدام الكلمة الأساسية خاصة لتحديد
نطاق الروتين الفرعي.
– الكود “ByVal arg1 As String, ByVal arg2 As String” يقوم بتعريف معاملين من اسم نوع بيانات السلسلة arg1 و arg2.
– الكود “End Sub” يتم فيه استخدام “End Sub” لإنهاء نص الإجراء الفرعي.
يقبل الإجراء الفرعي التالي الاسم الأول واسم
العائلة ويعرضهما في مربع رسالة.
سنقوم الآن ببرمجة وتنفيذ هذا الإجراء الفرعي
بالخطوات التالية:
كيفية استدعاء Sub في VBA
فيما يلي عملية خطوة بخطوة حول كيفية استدعاء Sub
في VBA:
1. تصميم واجهة المستخدم وتعيين الخصائص لعناصر
تحكم المستخدم.
2. أضف الروتين الفرعي.
3. اكتب رمز حدث النقر لزر الأمر الذي يستدعي
الإجراء الفرعي.
4. اختبر التطبيق.
الخطوة (1): واجهة المستخدم
صمم واجهة المستخدم كما هو موضح في الصورة
التالية:
قم بتعيين الخصائص التالية. والخصائص التي نضعها هي:
1. الخاصية CommandButton1 وهي الاسم btnDisplayFullName
2. الخاصية caption.
يجب أن تبدو واجهتك الآن على النحو التالي:
الخطوة (2): إضافة روتين فرعي
1. اضغط على Alt + F11 لفتح نافذة الكود.
2. أضف الروتين الفرعي التالي.
العرض الفرعي الخاص
FullName (Private Sub displayFullName(ByVal firstName As String, ByVal
lastName As String)
MsgBox firstName & ”
” & lastName
End Sub
حيث أنّ:
– الكود “Private Sub displayFullName(…)” يعلن عن عرض روتين فرعي خاص يقبل معاملين من معلمات السلسلة.
– الكود “ByVal firstName As String, ByVal lastName As String” يعلن عن متغيرين معاملين الاسم الأول والاسم الأخير.
– الكود MsgBox firstName & ” ”
& lastName” يستدعي الدالة المضمنة MsgBox لعرض مربع رسالة. ثم يقوم بتمرير متغيري “firstName” و “lastName” كمعاملين.
ويتم استخدام علامة العطف “&” لتوصيل المتغيرين وإضافة مسافة فارغة بينهما.
الخطوة (3): استدعاء الروتين الفرعي
1. استدعي الروتين الفرعي من زر الأمر بالضغط فوق
الحدث.
2. اضغط بزر الفأرة الأيمن على زر الأمر كما هو
موضح في الصورة أدناه. وحدد عرض الرمز.
وسيتم فتح محرر الكود.
3. أضف التعليمات البرمجية التالية في محرر
التعليمات البرمجية لحدث النقر لزر الأمر
Private Sub
btnDisplayFullName_Click().
displayFullName “John”, “Doe”.
End Sub
ويجب أن تبدو نافذة التعليمات البرمجية الخاصة
بك الآن على النحو التالي:
4. احفظ التغييرات وأغلق نافذة الكود.
شاهد أيضًا: صيغ الدالة FALSE واستخدامها في برنامج Microsoft Excel
الخطوة (4): اختبار الكود
على شريط أدوات المطور، ضع وضع التصميم على “إيقاف“. كما هو مبين أدناه.
شاهد أيضًا: صيغ وشرح استخدام الدالة ISOWEEKNUM في برنامج Microsoft Excel
الخطوة (5): اضغط على زر الأمر “FullName Subroutine“
وسوف تحصل على النتائج التالية:
وفي نهاية المقال، نتمنى أن نكون قد أفدناكم بما
يخص هذا الجزء من البرمجة باستخدام برنامج Excel، ونضرب لكم موعدًا جديدًا
مستقبلًا مع المزيد من المقالات.