Funzione VBA: UBound

Descrizione

La funzione VBA UBound restituisce l'indice più grande disponibile per l'array specificato.

Sintassi UBound

UBound(array)

O

UBound(array, dimensione)

Esempio VBA UBound

Utilizzando la funzione UBound per ottenere l'indice di ciascuna delle 2 dimensioni dell'array:

Sub UBoundExample1()

     Dim array(10, 4)
    
     'L'indice massimo della prima dimensione
     MsgBox UBound(array) 'Ritorni: 10
    
     'L'indice massimo della seconda dimensione
     MsgBox UBound(array, 2) 'Ritorni: 4

End Sub

Utilizzando la funzione UBound per ottenere il numero di valori nell'array creato dalla funzione SPLIT:

Sub UBoundExample2()

     link = "www.moonexcel.com.ua"
    
     'Suddivisione di una stringa di caratteri in un array
     array = Split(link, ".")
    
     'Numero di elementi dell'array (sapendo che l'array inizia da 0)
     number = UBound(array) + 1
    
     'Visualizza il numero di elementi dell'array
     MsgBox number 'Ritorni: 4

End Sub