Jika dilihat dari judul artikel ini, barangkali anda sudah bisa menebak control-control apa saja yang dibutuhkan agar berhasil menjalankan kode yang akan kita bahas pada kesempatan kali ini. Ya, setidaknya ada dua buah control utama yang kita butuhkan yakni ComboBox dan TextBox yang masing-masing diletakkan dalam sebuah UserForm.

Kenapa harus ComboBox? apakah bisa digunakan pada ListBox?!

Tentu saja bisa, hanya saja untuk tutorial ini saya akan lebih fokus pada ComboBox karena sebenarnya Control ComboBox merupakan kombinasi dari TextBox dan kontrol ListBox, namun item yang ditampilkan hanya berjumlah satu pada saat diaktifkan dan item lain yang tersedia dimuat dalam daftar drop-down (belum dipilih/diaktifkan).

Oke, kembali ke materi tutorial cara mengisi ComboBox dari berbagai item, namun sebelumnya saya akan sedikit menjelaskan tentang Fungsi Array dalam kode Macro VBA. Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karena array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks.

Contoh menggunakan ARRAY dalam Macro VBA bisa anda temukan disini
Menggunakan UBound - LBound
Mengisi ListBox dari Array DataDalam Array Macro VBA Excel juga kita mengenal istilah dimensi atau bahasa yang mudah dipahami adalah urutan dalam Array yang dipisahkan dengan tanda koma. Perhatikan penulisan Array berikut
Film = Array("Action", "Comedy", "Drama", "Horror")
Secara berurutan, dari Action sampai dengan Horror semua dinyatakan dalam nama variabel yang sama yakni Film, dan terdiri dari 4 dimensi.

Coba perhatikan bahasa kode sederhana Macro VBA untuk menampilkan pesan dari kode Array berikut :

Sub Test
Film = Array("Action", "Comedy", "Drama", "Horror")
MsgBox Film(2)

Dan hasil yang didapatkan dari kode ini adalah jendela pesan seperti berikut :

Kenapa yang muncul urutan ke-3, padahal indeks yang ditulis dalam MsgBox adalah 2 ?
Hal ini karena urutan indeks dimulai dari angka 0 (nol) dan untuk contoh di atas diakhiri dengan indeks angka 3 (tiga). Inilah yang menyebabkan "Drama" yang muncul dalam jendela kotak pesan dan bukan "Comedy".

Dengan memahami konsep Array, maka modal dasar sudah anda pegang dan siap mengikuti dan melanjutkan tutorial ini. Namun sebelumnya, siapkan dulu sebuah UserForm disertai dengan ComboBox dan TextBox seperti tampilan berikut :

Setelah berhasil men-design UserForm, selanjutnya silahkan klik dua kali control TextBox1 untuk langsung menuju ke jendela kode dan lanjutkan dengan memasukkan serangkaian baris kode berikut :

On Error GoTo x
Dim Film As Variant
Dim i As Long

Film = Array("Action: Comedy: Drama: Horror:", _
            "Avenger DeadPool Forever-My-Girl Annabelle", _
            "Iron-Man BayWatch Every-Day The-Nun", _
            "Skyscrapper Shaun-The-Dead Midnight-Sun The-Conjuring")
ComboBox1.Clear
   For i = 0 To UBound(Film)
      ComboBox1.AddItem Split(Film(i))(TextBox1)
   Next i
   
Exit Sub
x:
TextBox1.SetFocus
MsgBox "Dimensi tidak tersedia, atau nilai yang dimasukkan error"

Jika anda mengikuti dan tidak melewati langkah-langkah di atas, maka anda akan mendapatkan hasil akhir tutorial seperti tampilan berikut ini:

Selamat... anda sudah berhasil mengambil kumpulan data-data yang bervariasi dari sebuah Array untuk ditempatkan ke dalam ComboBox melalui berdasarkan nilai yang dimasukkan dalam sebuah TextBox. Semoga tutorial yang cukup singkat ini dapat memberi wawasan baru.
Jangan lupa, silahkan share link ini jika apa yang kami tulis bermanfaat untuk anda. Gracias

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :