√ Cara Menciptakan Combobox Vba Dengan 2 Kolom

Masih membahas VBA, kali ini aku akan menciptakan sebuah ComboBox yang diambil datanya dari range yang mempunyai 2 kolom. ComboBox ini aku terapkan melalui UserForm semoga dapat berinteraksi dengan range yang ada di sheet1.

Berikut Cara membuatnya:
Langkah pertama silakan buat tabel data barang berikut daftar harganya menyerupai berikut ini

Jika sudah akibat silakan masuk ke VBA dengan cara menekan ALT+F11 kemudian buat 1 buah UserForm

Berikutnya kalau sudah menyisipkan UserForm silakan  buat Control dengan rincian sebagai berikut

UserForm ganti Caption menjadi "Form Nama Barang"
Label1 ganti Caption menjadi "Pilih Nama Barang"
ComboBox1
CommandButton1 ganti caption menjadi "OK"
CommanButton2 ganti caption menjadi "Cancel"

Langkah berikutnya mari kita buat script VBA untuk tombol "OK" caranya silakan double klik tombol OK tersebut kemudian ketikan script berikut

Option Explicit

Private Sub CommandButton1_Click()
Unload Me
MsgBox "Anda Memilih " & ComboBox1.Value
On Error Resume Next
MsgBox "Harga : " & ComboBox1.Column(1) & " Rupiah"
End Sub

Untuk CommandButton2 atau "cancel" silakan tuliskan aba-aba berikut sebagai tombol untuk keluar userform.

Private Sub CommandButton2_Click()
Unload Me
End Sub

Langkah berikutnya kita akan menciptakan inisial untuk userform dan silakan ketikkan script berikut ini

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 2
Dim Barang(1 To 5, 1 To 2) As String
Dim i As Integer, j As Integer
For i = 1 To 5
    For j = 1 To 2
       Barang(i, j) = Cells(i, j).Value
    Next j
Next i
ComboBox1.List = Barang
End Sub

Langkah berikutnya yakni kita akan menciptakan tombol untuk menampilkan UserForm tersebut melalui sheet1 dengan cara silakan klik hidangan Developer dan apabila yang belum ada hidangan developer silakan lihat

Cara Mengaktifkan hidangan Developer

Untuk menciptakan tombol lihat gambar berikut ini

Jika CommandButton1 telah terbuat dalam sheet1 silakan double klik kemudian ketikkan script berikut

Option Explicit

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Selesai.

Mari kita uji coba untuk test apakah script telah benar dengan cara klik CommandButton1 pada sheet1 tersebut kalau benar maka akan muncul "Form Nama Barang"

Silakan ketikkan nama barang yang akan dicari atau Anda  dapat menekan segitiga yang ada pada combobox tersebut

Jika Anda menentukan Keyboard kemudian klik OK maka akan muncul 2 pesan berikut ini

Berhasil. Anda telah dapat menciptakan ComboBox dengan VBA 2 kolom yang datanya diambil dari range sheet1.
Semoga bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/