برمجة الاكسيل

بناء جملة 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، ونضرب لكم موعدًا جديدًا
مستقبلًا مع المزيد من المقالات
.

مقالات ذات صلة

اترك تعليقاً

لن يتم نشر عنوان بريدك الإلكتروني. الحقول الإلزامية مشار إليها بـ *

زر الذهاب إلى الأعلى