Fungsi LBound dan UBound dalam Array Macro VBA Excel
Ada batasan dalam Array yaitu batasan bawah dan batasan atas.
Batasan bawah (LBound) adalah letak elemen data pertama, sedangkan batasan atas (UBound) mewakili jumlah elemen yang terhitung di dalam array.
Kedua nilai batasan tersebut secara otomatis jalurnya ditentukan oleh VBA melalui fungsi LBound dan UBound.
Saat menetapkan suatu array, Anda dapat menentukan batasan atas saja contohnya, pada Dim Hari(6) As String namun penulisannya harus seperti ini: Dim Hari(0 to 6) As String.
Angka nol dan tulisan "to" tidak perlu ditulis karena batasan bawah selalu diasumsikan nol (atau 1 jika Option Base 1 telah ditetapkan di bagian paling atas module seperti yang telah dijelaskan di postingan Statement Option Base pada Array Macro VBA Excel).
Di bawah pengaturan Option Base 0, angka yang Anda masukkan dalam statement (dalam contoh sampai angka 6) merupakan angka atas dalam array, bukan angka elemen yang sesungguhnya.
Berikut ini langkah-langkah yang mempertunjukkan contoh fungsi LBound dan UBound yang mana hasil akhirnya berupa sejumlah alamat sel yang dipenuhi suatu array berupa contoh kata Konten:
1. Buka VBE dengan tekan Alt+F11.
2. Buka menu Insert > Module.
3. Pada module ketik nama macro:
Sub ContohBatasanArray()
4. Tentukan contoh variabelnya:
Dim x As Integer, SelTarget As Variant
5. Penuhi array dengan menentukan contoh alamat sel:
SelTarget = Array("A6", "A10", "B1", "C10", "D11", "D15", "E12")
6. Gunakan loop mulai dari batasan bawah (elemen array yang pertama) hingga ke batasan atas (elemen terakhir).
Range(SelTarget(x)).Value = "Konten"
7. Lanjutkan proses loop sampai selesai lalu akhir macro:
Next x
Kode lengkapnya sebagai berikut:
Dim x As Integer, SelTarget As Variant
SelTarget = Array("A6", "A10", "B1", "C10", "D11", "D15", "E12")
For x = LBound(SelTarget) To UBound(SelTarget)
Range(SelTarget(x)).Value = "Konten"
Next x
End Sub
Silakan uji coba macro yang Anda buat di Excel dengan cara menekan Alt+F8 lalu jalankan macro ContohBatasanArray dan klik Run.
Itulah penjelasan tentang fungsi LBound dan UBound dalam Array Macro VBA Excel, selamat mempraktikkan dan semoga bermanfaat.