İşlev VBA: UBound

Tanım

VBA UBound işlevi, belirtilen dizi için mevcut en büyük dizini döndürür.

Sözdizimi UBound

UBound(dizi)

Veya

UBound(dizi, boyut)

Örnek VBA UBound

Dizinin 2 boyutunun her birinin indeksini almak için UBound fonksiyonunu kullanmak:

Sub UBoundExample1()

     Dim array(10, 4)
    
     'İlk boyutun maksimum indeksi
     MsgBox UBound(array) 'İade: 10
    
     'İkinci boyutun maksimum indeksi
     MsgBox UBound(array, 2) 'İade: 4

End Sub

SPLIT fonksiyonu tarafından oluşturulan dizideki değerlerin sayısını almak için UBound fonksiyonunu kullanmak:

Sub UBoundExample2()

     link = "www.moonexcel.com.ua"
    
     'Bir karakter dizisini diziye bölme
     array = Split(link, ".")
    
     'Dizi elemanlarının sayısı (dizinin 0'dan başladığı bilinerek)
     number = UBound(array) + 1
    
     'Dizi öğelerinin sayısını görüntüleme
     MsgBox number 'İade: 4

End Sub