/ / حجم مجموعة في Excel VBA

حجم مجموعة في Excel VBA

للحصول على حجم صفيف في Excel VBA، يمكنك استخدام وظائف UBound و LBound.

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

1. أولا ، نحن بحاجة إلى إعلان الصفيف. لدينا مجموعة لديها بعدين. يتكون من 5 صفوف وعمودين. أعلن أيضًا عن متغيرين من النوع Integer.

Dim Films(1 To 5, 1 To 2) As String, x As Integer, y As Integer

قد تبدو المصفوفة بهذا الشكل.

حجم مجموعة في Excel VBA

2. بعد ذلك ، نحصل على حجم الصفيف. قم بإضافة خطوط التعليمات البرمجية التالية:

x = UBound(Films, 1) - LBound(Films, 1) + 1
y = UBound(Films, 2) - LBound(Films, 2) + 1

UBound (الأفلام ، 1) يعطي الحد الأعلى من البعد الأول ، وهو 5.
يعطي LBound (الأفلام ، 1) الحد الأدنى من البعد الأول ، وهو 1.

UBound (أفلام ، 2) يعطي الحد الأعلى من البعد الثاني ، وهو 2.
يعطي LBound (Films، 2) الحد الأدنى للبعد الثاني وهو 1.

وكنتيجة لذلك ، تساوي x يساوي 5 و y تساوي 2.

3. نستخدم MsgBox لعرض عدد عناصر المصفوفة.

MsgBox "This array consists of " & x * y & " elements"

نتيجة:

حجم نتيجة المصفوفة

اقرأ أيضًا: