Mengembalikan Long yang berisi subskrip terbesar yang tersedia untuk dimensi larikyang ditunjukkan.
Sintaks
UBound ( arrayname [, dimensi ] )
Sintaks fungsi UBound memiliki argumen ini:
Argumen |
Deskripsi |
nama array |
Diperlukan. Nama array variabel; mengikuti konvensi penamaan variabel standar. |
dimensi |
Opsional. Varian (Panjang). Bilangan bulat yang menunjukkan dimensi batas atas mana yang dikembalikan. Gunakan 1 untuk dimensi pertama, 2 untuk yang kedua, dan seterunya. Jika dimensi dihilangkan, 1 diasumsikan. |
Keterangan
Fungsi UBound digunakan dengan fungsi LBound untuk menentukan ukuran array. Gunakan fungsi LBound untuk menemukan batas bawah dimensi array.
UBound mengembalikan nilai berikut untuk array dengan dimensi ini:
Dim A(1 To 100, 0 To 3, -3 To 4)
Pernyataan |
Nilai yang Dikembalikan |
UBound(A, 1) |
100 |
UBound(A, 2) |
3 |
UBound(A, 3) |
4 |
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi UBound untuk menentukan subskrip terbesar yang tersedia untuk dimensi array yang ditunjukkan.
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.