Funcția VBA: UBound

Descriere

Funcția VBA UBound returnează cel mai mare index disponibil pentru matricea specificată.

Sintaxă UBound

UBound(matrice)

Sau

UBound(matrice, dimensiune)

Exemplu VBA UBound

Folosind funcția UBound pentru a obține indexul fiecăreia dintre cele 2 dimensiuni ale matricei:

Sub UBoundExample1()

     Dim array(10, 4)
    
     'Indicele maxim al primei dimensiuni
     MsgBox UBound(array) 'Retururi: 10
    
     'Indicele maxim al celei de-a doua dimensiuni
     MsgBox UBound(array, 2) 'Returnări: 4

End Sub

Folosind funcția UBound pentru a obține numărul de valori din matricea creată de funcția SPLIT:

Sub UBoundExample2()

     link = "www.moonexcel.com.ua"
    
     'Împărțirea unui șir de caractere într-o matrice
     array = Split(link, ".")
    
     'Numărul de elemente ale matricei (știind că matricea începe de la 0)
     number = UBound(array) + 1
    
     'Afișează numărul de elemente ale matricei
     MsgBox number 'Returnări: 4

End Sub