كيفية استخدام المصفوفة في لغة البرمجة Excel VBA

 

 كيفية استخدام المصفوفة في لغة البرمجة Excel VBA

سنقوم بإنشاء تطبيق بسيط. يملأ هذا التطبيق ورقة Excel ببيانات من متغير صفيف. وفي مثال صفيف VBA هذا، سنقوم باتباع الخطوات التالية لتنفيذ هذا الأمر.

1. قم بإنشاء مصنف Microsoft Excel جديد وحفظه
كمصنف Excel Macro-Enabled (* .xlsm).

2. أضف زر أمر إلى المصنف.

3.قم بتعيين الاسم وخصائص التسمية التوضيحية لزر
الأمر.

ولبرمجة لغة VBA التي تملأ ورقة Excel التي قمت
أنت بإنشائها للتو، سنشرح لك هذا في هذا التمرين خطوة بخطوة.

الخطوة الأولى:

– قم بإنشاء مصنف جديد.

1. افتح برنامج Microsoft Excel.

2. احفظ المصنف الجديد VBA Arrays.xlsm

الخطوة الثانية:

– أضف زر أمر.

ملاحظة مهمة:

يفترض هذا القسم أنك على دراية بعملية إنشاء
واجهة في برنامج Microsoft Excel. إذا لم تكن مألوفًا، فاقرأ المقالة التعليمية عن
VBA Excel Form Control & ActiveX Control. وستوضح لك كيفية إنشاء الواجهة.

1. أضف زر أمر إلى الورقة.

2. قم بتعيين خاصية الاسم إلى cmdLoadBeverages.

3. قم بتعيين خاصية التسمية التوضيحية على تحميل
المشروبات.

والآن.. يجب أن تكون واجهة المستخدم الرسومية الآن على
النحو التالي:

الخطوة الثالثة:

– احفظ الملف.

1. اضغط على زر حفظ باسم – save as button.

2. اختر Excel Macro-Enabled Workbook (* .xlsm)، كما هو موضح في الصورة التالية:

الخطوة الرابعة:

– اكتب الكود.

سنقوم الآن بكتابة الكود الخاص بطلبنا:

1. اضغط بزر الفأرة الأيمن على زر تحميل المشروبات
وحدد رمز العرض.

2. أضف التعليمات البرمجية التالية إلى الحدث click
الخاص بـ cmdLoadBeverages:

Private Sub cmdLoadBeverages_Click()

    Dim
Drinks(1 To 4) As String

   
Drinks(1) = “Pepsi”

       
Drinks(2) = “Coke”

           
Drinks(3) = “Fanta”

               
Drinks(4) = “Juice”

   
Sheet1.Cells(1, 1).Value = “My Favorite Beverages”

       
Sheet1.Cells(2, 1).Value = Drinks(1)

           
Sheet1.Cells(3, 1).Value = Drinks(2)

               
Sheet1.Cells(4, 1).Value = Drinks(3)

                    Sheet1.Cells(5, 1).Value =
Drinks(4)

                    End Sub

حيث أنّ:

– الكود “Dim Drinks(1 To 4) As String“:
تعلن عن متغير مصفوفة يسمى المشروبات. فهرس الصفيف الأول هو 1 وفهرس الصفيف الأخير هو 4.

– الكود “Drinks(1) = “Pepsi“”:
يخصص قيمة المشروب Pepsi مثلًا لعنصر الصفيف
الأول. والكود الآخر المشابه يفعل الشيء نفسه بالنسبة
للعناصر الأخرى في المصفوفة.

– الكود “Sheet1.Cells(1, 1).Value = “My Favorite Beverages.”: يكتب قيمة مشروباتي المفضلة في عنوان الخلية A1. حيث تشير الورقة 1 إلى الورقة، وتشير الخلايا (1،1) إلى رقم الصف 1 والعمود 1 (B).

– الكود “Sheet1.Cells(2, 1).Value = Drinks(1)”:
يكتب قيمة عنصر المصفوفة بالفهرس 1 إلى الصف الثاني من العمود 1.

 شاهد أيضًا: تجريف بيانات الويب باستخدام لغة البرمجة VBA في برنامج Microsoft Excel

 وفي
نهاية المقال، نتمنى أن نكون قد أفدناكم بما يخص هذا الجزء من البرمجة باستخدام برنامج Excel، ونضرب لكم موعدًا جديدًا مستقبلًا مع المزيد من المقالات.