Kombo Excel VBA
ComboBox adalah fitur bentuk pengguna di VBA , mereka berbeza dari kotak teks kerana kotak teks digunakan hanya berisi teks dan kami mengizinkan pengguna memasukkan semua jenis data, tetapi dengan menggunakan kotak kombo kami membatasi pengguna untuk jenis respons yang kami inginkan dengan demikian data berada dalam keadaan teratur, ia serupa dengan pengesahan data senarai di excel.
ComboBox dapat dibandingkan dengan senarai drop-down di excel, di lembaran kerja. Kami menggunakan pengesahan data untuk menyediakan drop-down, tetapi di VBA, ada fitur form pengguna di mana ia digunakan untuk menyediakan drop-down dalam bentuk pengguna apa pun, tetapi jika kami ingin menggunakan kotak kombo di excel, kami dapat juga mengaksesnya dari bahagian pemaju dari sana kita boleh membuat kotak kombo untuk sel individu atau berbilang.
Kotak Kombo sangat serupa dengan senarai juntai bawah yang terdapat dalam lembaran kerja excel; dengan kotak kombo, kita dapat menyimpan nilai yang telah ditentukan sehingga pengguna membuat pilihan dari senarai yang tersedia dari kotak kombo. Kotak Kombo umumnya digunakan bersama dengan borang pengguna sebagai bagian untuk mendapatkan input dari pengguna.
Bentuk pengguna berguna tetapi mempunyai alat lain pada borang pengguna inilah yang menjadikan bentuk pengguna begitu istimewa. Salah satu alat yang sering kita gunakan sebagai alat untuk bentuk pengguna adalah "ComboBox."
2 Kaedah Teratas untuk Membuat Kombo VBA
# 1 - Menggunakan Pengekodan Langsung
Pertama, kita akan melihat cara menggunakan Combo Box dengan lembaran kerja. Buka mana-mana lembaran kerja di buku kerja excel, pergi ke tab Pembangun, dan di bawah tab ini, kami memiliki alat yang disebut "Masukkan." Klik pada ini, dan di bawah ini, kita mempunyai dua pilihan Active X Controls & Form Controls di excel.
Dari "Kawalan X Aktif", pilih "Kotak Kombo".
Sekarang anda boleh menarik objek ini di mana-mana lembaran kerja.
Klik kanan pada kotak kombo dan pilih pilihan "Properties".
Apabila anda memilih hartanah, ia akan membuka banyak senarai sifat kombo.
Untuk kotak kombo ini, kami akan memberikan senarai nama jabatan, jadi ubah nama nama kotak kombo menjadi "DeptComboBox."
Sekarang kotak kombo ini akan disebut dengan nama "DeptComboBox." Kita perlu memberikan nama jabatan yang telah ditentukan, jadi di sini saya mempunyai senarai nama jabatan.
Sekarang kita perlu menambahkan nilai-nilai ini ke senarai kotak kombo. Kita boleh melakukan ini dengan dua cara, melalui pengekodan atau pengurus nama.
Klik dua kali pada Combobox, dan ini akan membawa anda ke prosedur makro VBA.
Tetapi kita perlu melihat nama jabatan ini ketika buku kerja dibuka, jadi klik dua kali pada "ThisWorkbook."
Dari senarai juntai bawah, pilih "Buku Kerja".
Dari pilihan, pilih "Buka."
Sekarang ia akan membuat tempat kosong seperti yang di bawah.
Di dalam makro ini, masukkan kod di bawah.
Kod:
Sub Workbook Swasta_Open () Dengan Lembaran Kerja ("Sheet1"). DeptComboBox .AddItem "Finance" .AddItem "Marketing" .AddItem "Merchandising" .AddItem "Operations" .AddItem "Audit" .AddItem "Serving Client" End With End Sub
Ok, sekarang simpan dan tutup buku kerja. Apabila anda membuka semula buku kerja, kami dapat melihat nama jabatan di dalamnya.
# 2 - Menggunakan UserForm
Cara lain untuk menambahkan nilai ke ComboBox adalah dengan menggunakan borang pengguna. Pertama, berikan nama pada sel sebagai "Department."
Pergi ke Visual Basic Editor dan masukkan Borang Pengguna dari pilihan INSERT.
Sekarang borang pengguna baru dibuat.
Di sebelah formulir pengguna, kita dapat melihat "Kotak Alat" dari kotak alat ini, kita dapat memasukkan "Kotak Kombo."
Now the combo box is embedded in the user form. In this method, to open the properties option, select the combo box and press the F4 key to open the properties window.
Scroll down the properties tab and choose “Row Source.”
For this “Row Source,” enter the name that we had given to department name cells.
Now this combo box holds the reference of the name “Department.”
Now run the user form by using the run button.
Now we can see a list of department names in the combo box on the user form.
Practically user form is associated with a combo box, text box, and many other tools. We will create a simple data entry user form with a text box & combo box.
Create a user form like the below.
Create two Command Buttons.
Double click on the “SUBMIT” button it will open up below macro.
Inside this macro, add the below code.
Code:
Butang Sub Perintah Swasta1_Klik () Dim LR Selagi LR = Sel (Rows.Count, 1). End (xlUp). Baris + 1 Sel (LR, 1). Nilai = TextBox1. Sel Nilai (LR, 2). Nilai = ComboBox1 Sub Nilai Akhir
Sekarang klik dua kali pada butang "BATAL" dan tambahkan kod di bawah.
Sekarang di lembaran kerja, buat templat seperti di bawah.
Sekarang jalankan borang pengguna, dan ia akan terbuka seperti ini.
Masukkan nama pekerja dan pilih nama jabatan dari senarai kombo.
Klik pada butang HANTAR dan lihat keajaibannya.
Kami mendapat nilai yang dimasukkan dalam format jadual yang telah kami buat.
Perkara yang Perlu Diingat
- COMBO BOX mempunyai khasiatnya sendiri juga.
- Menambah nilai ke dalam senarai terdapat dalam dua cara. Salah satunya adalah cara pengekodan, dan yang lain adalah rujukan nama pelbagai.
- COMBO BOX biasanya merupakan sebahagian daripada borang pengguna.
