√ Mengisi Nama Barang Dan Harga Otomatis Melalui Combobox Kode

Inilah cara Mengisi Nama Barang dan Harga Otomatis Melalui Combobox yang berisi list instruksi barang. Pengaplikasian materi ini memang banyak terjadi contohnya saat Anda melihat di kasir orang akan entri instruksi barang maka data barang termasuk nama dan harga akan otomatis tampil pada textbox. Nah hal ini dapat diaplikasikan melalui VBA dengan syarat Anda tentu harus mempunyai database untuk pemanggilan instruksi tersebut.

Berikut tampilan sederhana pemanggilan data nama barang dan harga melalui combobox coba perhatikan gambar dibawah ini

Ketika Anda mengetikkan instruksi A002 maka secara otomatis nama barang yang berada pada textbox1 dan harga barang pada textbox2 tampil sesuai dengan database yang telah Anda buat pengkodeannya. Bagaimana cara menciptakan hal tersebut?

Langkah pertama silakan Anda buat terlebih dahulu database barangnya pada sheet1 contohnya menyerupai berikut ini

Jika data sudah dibentuk maka kini kita buat userform yang dilengkapi dengan combobox, dan 2 buah textbox dan aku sudah pernah memberikan bagaimana cara menciptakan textbox serta combobox pada posting sebelumnya jikalau Anda lupa silakan cari di pencarian blog ini.

Untuk yang malas mencari materi textbox dan combobox aku kasih ajah neh link nya

Cara Membuat textbox pada Userform

Bagi Anda pemula untuku berguru menciptakan combobox silakan lihat cara menciptakan combobox bagi pemula

Langkah berikutnya sehabis Anda mendesain atau menciptakan 1 buah combobox dan 2 buah textbox kemudian kita akan menciptakan prosedure untuk perubahan combobox yaitu combobox_change. Silakan ketikkan atau copy paste coding combobox_change berikut

Private Sub ComboBox1_Change()
Set Data = Sheets("Sheet1")
Set IDbarang = Data.Range("A2:A5")
Set Rekam = IDbarang.Find(ComboBox1.Value, LookIn:=xlValues, _
        MatchCase:=False)
If ComboBox1 = "" Then
    TextBox1.Value = ""
    TextBox2.Value = ""
    Else
    TextBox1.Value = Rekam.Offset(0, 1).Value
    TextBox2.Value = Rekam.Offset(0, 2).Value
    TextBox2.Value = Format(TextBox2.Value, "#,##")
End If
End Sub

Sedikit klarifikasi coding
Set Data = Sheets("Sheet1")
Artinya : data diambil pada sheet1

Set IDbarang = Data.Range("A2:A5")
Artinya : Kita setting IDBarang yang diambil datanya dari range A2:A5 yang berada pada data / sheets1

TextBox2.Value = Format(TextBox2.Value, "#,##")
Artinya : Format goresan pena pada textbox2 yaitu berupa curency.

Setelah itu tambahkan prosedure Initialize pada userform yaitu dengan coding

Private Sub UserForm_Initialize()
ComboBox1.List = Range("Sheet1!A2:A5").Value
End Sub

Hal ini berfungsi biar combobox hanya menampilkan list yang ada pada range A2:A5 yang berada pada worksheet1.

Mari kita coba silakan ketikkan atau Anda dapat klik segitiga pada combobox dan pilih atau ketikkan instruksi barang nya maka secara otomatis nama barang dan harga barang muncul sesuai dengan database yang ada pada sheet1.

 Demikian tutorial singkat untuk mengisi nama barang dan harga secara otomatis melalui combobox semoga bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/