Diskusi tentang Excel

Cara Membuat ComboBox VBA dengan 2 Kolom

Masih membahas VBA, kali ini saya akan membuat sebuah ComboBox yang diambil datanya dari range yang memiliki 2 kolom. ComboBox ini saya terapkan melalui UserForm agar bisa berinteraksi dengan range yang ada di sheet1.

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


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



Berikutnya jika 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 kode berikut sebagai tombol untuk keluar userform.
Private Sub CommandButton2_Click()
Unload Me
End Sub

Langkah berikutnya kita akan membuat 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 adalah kita akan membuat tombol untuk menampilkan UserForm tersebut melalui sheet1 dengan cara silakan klik menu Developer dan apabila yang belum ada menu developer silakan lihat
Cara Mengaktifkan menu Developer
Untuk membuat 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 jika benar maka akan muncul "Form Nama Barang"



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

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




Berhasil. Anda telah bisa membuat ComboBox dengan VBA 2 kolom yang datanya diambil dari range sheet1.
Semoga bermanfaat dan selamat mencoba.

Related

Macro Excel VBA 3766424300255316008

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item