الوظيفة VBA: UBound

وصف

ترجع الدالة VBA UBound أكبر فهرس متاح للصفيف المحدد.

بناء الجملة UBound

UBound (مجموعة)

أو

UBound (صفيف ، بُعد)

مثال VBA UBound

استخدام الدالة UBound للحصول على فهرس كل من البعدين للصفيف:

Sub UBoundExample1()

     Dim array(10, 4)
    
     'الحد الأقصى لمؤشر البعد الأول
     MsgBox UBound(array) 'العوائد: 10
    
     'الحد الأقصى لمؤشر البعد الثاني
     MsgBox UBound(array, 2) 'العوائد: 4

End Sub

استخدام الدالة UBound للحصول على عدد القيم في المصفوفة التي تم إنشاؤها بواسطة الدالة SPLIT:

Sub UBoundExample2()

     link = "www.moonexcel.com.ua"
    
     'تقسيم سلسلة أحرف إلى مصفوفة
     array = Split(link, ".")
    
     'عدد عناصر المصفوفة (مع العلم أن المصفوفة تبدأ من 0)
     number = UBound(array) + 1
    
     'اعرض عدد عناصر المصفوفة
     MsgBox number 'العوائد: 4

End Sub