Daje tip dugački koji sadrži najveći raspoloživi indeksni tekst za naznačenu dimenziju niza.
Sintaksa
UBound(arrayname [, dimenzija ] )
Sintaksa funkcije UBound ima sledeće argumente:
| Argument | Opis |
|---|---|
| Ime niza | Obavezno. Ime promenljive niza; Sledite standardne konvencije imenovanja promenljivih. |
| Dimenzija | Opcionalno. Varijanta (Long). Ceo broj koji ukazuje na to koja je gornja granica dimenzije. Koristite 1 za prvu dimenziju, 2 za drugu i tako dalje. Ako se izostavi dimenzija , pretpostavlja se da je 1. |
Napomene
Funkcija UBound se koristi zajedno sa funkcijom LBound za određivanje veličine niza. Koristite funkciju LBound da biste pronašli donju granicu dimenzije niza.
UBound daje sledeće vrednosti za niz sa ovim dimenzijama:
Dim A(1 To 100, 0 To 3, -3 To 4)
| Naredba | Povratna vrednost |
|---|---|
UBound(A, 1) |
100 |
UBound(A, 2) |
3 |
UBound(A, 3) |
4 |
Primer
Napomena
Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju UBound za određivanje najvećeg dostupnog indeksnog teksta za naznačenu dimenziju niza.
Dim Upper
' Declare array variables.
Dim MyArray(1 To 10, 5 To 15, 10 To 20)
Dim AnyArray(10)
Upper = UBound(MyArray, 1) ' Returns 10.
Upper = UBound(MyArray, 3) ' Returns 20.
Upper = UBound(AnyArray) ' Returns 10.