Funkcja VBA: UBound

Opis

Funkcja VBA UBound zwraca największy dostępny indeks dla określonej tablicy.

Składnia UBound

UBound(tablica)

Lub

UBound(tablica, wymiar)

Przykład VBA UBound

Używając funkcji UBound, aby uzyskać indeks każdego z 2 wymiarów tablicy:

Sub UBoundExample1()

     Dim array(10, 4)
    
     'Maksymalny indeks pierwszego wymiaru
     MsgBox UBound(array) 'Zwroty: 10
    
     'Maksymalny indeks drugiego wymiaru
     MsgBox UBound(array, 2) 'Zwroty: 4

End Sub

Użycie funkcji UBound do pobrania liczby wartości w tablicy utworzonej przez funkcję SPLIT:

Sub UBoundExample2()

     link = "www.moonexcel.com.ua"
    
     'Dzielenie ciągu znaków na tablicę
     array = Split(link, ".")
    
     'Liczba elementów tablicy (wiedząc, że tablica zaczyna się od 0)
     number = UBound(array) + 1
    
     'Wyświetla liczbę elementów tablicy
     MsgBox number 'Zwroty: 4

End Sub