إكسل VBA صفيف

مصفوفة واحدة | صفيف ثنائي الأبعاد

ل مجموعة مصفوفة هي مجموعة من المتغيرات. في Excel VBA، يمكنك الرجوع إلى متغير محدد (عنصر) لصفيف باستخدام اسم الصفيف ورقم الفهرس.

مصفوفة واحدة

لإنشاء صفيف أحادي البعد ، قم بتنفيذ الخطوات التالية.

ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

Dim Films(1 To 5) As String

Films(1) = "Lord of the Rings"
Films(2) = "Speed"
Films(3) = "Star Wars"
Films(4) = "The Godfather"
Films(5) = "Pulp Fiction"

MsgBox Films(4)

النتيجة عند النقر فوق زر الأمر الموجود على الورقة:

تفسير: سطر التعليمة الأولى بتعريف صفيف سلسلة مع اسم الأفلام. يتكون الصفيف من خمسة عناصر. بعد ذلك ، نقوم بتهيئة كل عنصر من المصفوفة. وأخيرًا ، نعرض العنصر الرابع باستخدام MsgBox.

صفيف ثنائي الأبعاد

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

ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

Dim Films(1 To 5, 1 To 2) As String
Dim i As Integer, j As Integer

For i = 1 To 5
    For j = 1 To 2
        Films(i, j) = Cells(i, j).Value
    Next j
Next i

MsgBox Films(4, 2)

النتيجة عند النقر فوق زر الأمر الموجود على الورقة:

تفسير: سطر التعليمة الأولى بتعريف صفيف سلسلة مع اسم الأفلام. الصفيف له بعدان. يتكون من 5 صفوف وعمودين. نصيحة: الصفوف تذهب أولاً ، ثم الأعمدة. يتم استخدام المتغيرات الأخرى من النوع Integer لـ Double Loop لتهيئة كل عنصر في الصفيف. وأخيرًا ، نعرض العنصر عند تقاطع الصف 4 والعمود 2.