Kotak Kombo VBA

Kotak Kombo VBA Excel

ComboBox adalah fitur formulir pengguna di VBA , mereka berbeda dari kotak teks karena kotak teks digunakan untuk hanya berisi teks dan kami mengizinkan pengguna untuk memasukkan semua jenis data, tetapi dengan menggunakan kotak kombo kami membatasi pengguna untuk jenis tanggapan yang kami inginkan Jadi datanya teratur, mirip dengan validasi data daftar di excel.

ComboBox dapat dibandingkan dengan daftar drop-down di excel, di lembar kerja kami menggunakan validasi data untuk menyediakan drop-down tetapi di VBA ada fitur formulir pengguna yang digunakan untuk menyediakan drop-down dalam bentuk pengguna apa pun, tetapi Jika kita ingin menggunakan kotak kombo di excel kita juga dapat mengaksesnya dari bagian pengembang dari sana kita dapat membuat kotak kombo untuk sel individu atau banyak.

Combo Box sangat mirip dengan daftar drop-down yang kita miliki di lembar kerja excel, dengan combo box kita dapat menyimpan nilai yang telah ditentukan, sehingga pengguna membuat pilihan dari daftar yang tersedia dari combo box. Combo Box umumnya digunakan bersama dengan formulir pengguna sebagai bagian untuk mendapatkan masukan dari pengguna.

Formulir pengguna berguna tetapi memiliki alat lain pada formulir pengguna itulah yang membuat formulir pengguna begitu istimewa. Salah satu alat bantu yang sering kami gunakan sebagai alat bantu formulir pengguna adalah “ComboBox”.

2 Cara Teratas Membuat ComboBox VBA

Anda dapat mendownload Template Excel Kotak Kombo VBA ini di sini - Template Excel Kotak Kombo VBA

# 1 - Menggunakan Pengodean Langsung

Pertama, kita akan melihat bagaimana menggunakan Combo Box dengan lembar kerja. Buka salah satu lembar kerja di buku kerja excel, buka tab Pengembang dan di bawah tab ini kami memiliki alat yang disebut "Sisipkan". Klik ini dan di bawah ini kami memiliki dua opsi Kontrol X Aktif & Kontrol Formulir di excel.

Dari "Active X Controls" pilih "Combo Box".

Sekarang Anda dapat menggambar objek ini di lembar kerja mana pun.

Klik kanan pada combo box dan pilih opsi "Properties".

Ketika Anda memilih properti, itu akan membuka daftar besar properti dari kotak kombo.

Untuk kotak kombo ini, kami akan memberikan daftar nama departemen jadi ubah properti nama kotak kombo menjadi  "DeptComboBox" .

Sekarang kotak kombo ini akan disebut dengan nama "DeptComboBox" . Kami perlu memberikan nama departemen yang telah ditentukan sebelumnya, jadi di sini saya memiliki daftar nama departemen.

Sekarang kita perlu menambahkan nilai-nilai ini ke daftar kotak kombo, kita dapat melakukannya dengan dua cara, melalui pengkodean atau melalui manajer nama.

Klik dua kali pada Combobox dan itu akan membawa Anda ke prosedur makro VBA.

Tapi kita perlu melihat nama departemen ini saat workbook terbuka, jadi klik dua kali pada “ThisWorkbook”.

Dari daftar drop-down pilih "Workbook".

Dari opsi pilih "Buka".

Sekarang itu akan membuat kosong seperti di bawah ini.

Di dalam makro ini masukkan kode di bawah ini.

Kode:

 Private Sub Workbook_Open () With Worksheets ("Sheet1"). DeptComboBox .AddItem "Finance" .AddItem "Marketing" .AddItem "Merchandising" .AddItem "Operations" .AddItem "Audit" .AddItem "Client Servicing" End With End Sub 

Ok, sekarang simpan dan tutup buku kerja, saat Anda membuka kembali buku kerja kita bisa melihat nama departemen di dalamnya.

# 2 - Menggunakan UserForm

Cara lain untuk menambahkan nilai ke ComboBox adalah dengan menggunakan formulir pengguna. Pertama, beri nama pada sel sebagai "Departemen".

Pergi ke Editor Visual Basic dan masukkan Formulir Pengguna dari opsi INSERT.

Sekarang formulir pengguna baru dibuat.

Di sebelah form pengguna, kita bisa melihat “Toolbox” dari toolbox ini kita bisa memasukkan “Combo Box”.

Sekarang kotak kombo tertanam ke formulir pengguna, dalam metode ini untuk membuka opsi properti pilih kotak kombo dan tekan tombol F4 untuk membuka jendela properti.

Gulir ke bawah tab properti dan pilih "Sumber Baris".

Untuk "Sumber Baris" ini masukkan nama yang telah kita berikan ke sel nama departemen.

Sekarang kotak kombo ini memegang referensi dari nama "Departemen" .

Sekarang jalankan formulir pengguna dengan menggunakan tombol run.

Sekarang kita bisa melihat daftar nama departemen di combo box pada formulir pengguna.

Bentuk praktis pengguna terkait dengan kotak kombo, kotak teks, dan banyak alat lainnya. Kami akan membuat formulir pengguna entri data sederhana dengan kotak teks & kotak kombo.

Buat formulir pengguna seperti di bawah ini.

Buat dua Tombol Perintah.

Klik dua kali pada tombol "KIRIM" itu akan terbuka di bawah makro.

Di dalam makro ini tambahkan kode di bawah ini.

Kode:

 Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1).Value = TextBox1.Value Cells(LR, 2).Value = ComboBox1.Value End Sub 

Now double click on the “CANCEL” button and add the below code.

Now in the worksheet create a template like the below.

Now run the user form and it will open up like this.

Enter the employee name and pick the department name from the combo list.

Click on the SUBMIT button and see the magic.

We got the values entered in the table format we have created.

Things to Remember

  • COMBO BOX has its own properties as well.
  • Adding values to list comes in two ways one is a coding way and another one is range name reference.
  • COMBO BOX is usually part of the user form.