/ / Excel VBA صفيف وظيفة

إكسل VBA صفيف وظيفة

ال وظيفة المصفوفة في Excel VBA يمكن استخدامها بسرعة وسهولة تهيئة مجموعة. ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

1. أولا ، إنشاء متغير يدعى إدارات من النوع البديل.

Dim departments As Variant

2. استخدم وظيفة المصفوفة لتعيين مصفوفة للإدارات المتغيرة. أضف سطر التعليمة البرمجية التالية:

departments = Array("Sales", "Production", "Logistics")

3. لإظهار العنصر مع الفهرس 1 ، أضف سطر التعليمات البرمجية التالي:

MsgBox departments(1)

نتيجة:

صفيف دالة النتيجة

بشكل افتراضي ، يبدأ عنصر "s" من الصفيف من 0.

4. أضف Option Base 1 إلى قسم Declarations العامة إذا كنت تريد أن يبدأ الفهرس من 1.

أضف Option Base 1

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

صفيف دالة نتيجة مع Option Base 1

للحصول على مثال عملي لوظيفة المصفوفة ، راجع مثالنا على برنامج Month Names.

اقرأ أيضًا: