Kotak Senarai VBA

Kotak senarai di VBA adalah senarai yang ditugaskan untuk pemboleh ubah dan daftarnya mempunyai pelbagai input untuk dipilih, dari kotak senarai kita dapat memilih beberapa pilihan sekaligus, kotak daftar dapat dibuat ke bentuk pengguna di excel VBA dengan memilih daftar pilihan kotak dan melukisnya pada bentuk pengguna untuk kotak senarai kami mempunyai julat bernama yang mempunyai nilai tertentu yang disediakan untuk dipilih dalam kotak senarai.

Apakah Kotak Senarai di Excel VBA?

Kotak senarai adalah senarai dari mana pengguna boleh memilih item. Kotak Senarai di Excel VBA dapat digunakan jika anda ingin memaparkan senarai nilai yang dapat dipilih pengguna.

Bagaimana Membuat Kotak Senarai di Excel?

Untuk membuat Kotak Senarai dalam lembaran kerja excel, ikuti langkah berikut:

Mula-mula, anda perlu mengaktifkan tab Pembangun yang kelihatan pada pita sehingga anda boleh mendapatkan arahan kawalan VBA dan ActiveX. Untuk mendapatkan tab Pembangun , buka kotak dialog Pilihan Excel , klik Sesuaikan Pita di excel , dan pilih kotak centang Pembangun.

  • Klik pada Ribbon Excel kemudian pilih tab Pembangun dan kemudian klik Masukkan kemudian klik kawalan Kotak Senarai untuk memasukkan kotak senarai baru di lembaran kerja excels.

  • Selepas itu lukiskan segi empat tepat di lembaran kerja excel untuk membuat Kotak Senarai di excel.

  • Semasa memilih List Boxin excel, klik pada tab pembangun dan pilih Properties. Tetingkap Properties akan terbuka.

  • Di tetingkap Properties, untuk tetapan List Fill Range, masukkan Days- the range bernama dengan hari kerja.

  • Klik pada sifat Multi Select, dan dari senarai drop-down, pilih 1-fmMultiSelectMulti seperti yang ditunjukkan dalam tangkapan skrin di bawah.

  • Klik pada sifat Style List, dan dari senarai drop-down, pilih 1-fmListStyleOption. Ini menambah kotak pilihan di sebelah kiri item senarai seperti yang ditunjukkan dalam tangkapan skrin di bawah.

  • Tutup tetingkap Properties.

Anda boleh mematikan mod Reka Bentuk dengan mengklik Mod Reka Bentuk.

Bagaimana Membuat Kotak Senarai di Excel VBA?

Anda boleh mempertimbangkan contoh berikut untuk pemahaman yang lebih baik mengenai Kotak Senarai VBA:

Anda boleh memuat turun Templat Excel Kotak Senarai ini di sini - Templat Excel Kotak Senarai

Contoh # 1

Untuk menghubungkan kotak senarai ini ke sel, klik kanan pada kotak senarai (pastikan mod reka bentuk dipilih) dan klik pada Properties. Isi B17 untuk Linked Cell seperti yang ditunjukkan dalam tangkapan skrin di bawah.

Nama Senarai Bulan sebagai Bulan pergi ke sifat dan pilih julat Isi Senarai sebagai Bulan.

 

Data akan berubah dalam sel B17 sel apabila anda mengubah pilihan anda dalam kotak senarai seperti yang ditunjukkan dalam tangkapan skrin di bawah.

Contoh 2 - Bagaimana Membuat Kotak Senarai pada Borang Pengguna?

  • Pergi ke Tab Pembangun dan kemudian klik Visual Basic dari Kod atau Tekan Alt + F11.

  • Pergi ke Masukkan Menu, Klik UserForm.

  • Drag List box Control pada Userform dari Toolbox.

  • Klik dua kali pada UserForm, dan pilih acara Userform seperti yang ditunjukkan dalam tangkapan skrin di bawah.

  • Sekarang, tambahkan kod berikut ke prosedur di antara.

Sub User SwastaForm_Initialize ()

ListBox1.AddItem "MBA"

ListBox1.AddItem "MCA"

ListBox1.AddItem "MSC"

ListBox1.AddItem "MECS"

ListBox1.AddItem "CA"

Sub Akhir

 

  • Sekarang, Tekan 'F5' untuk menjalankan kod.

Contoh # 3 - Cara menambah kawalan kotak senarai dinamik

Tambahkan kawalan kotak senarai dinamik pada borang pengguna menggunakan VBA

  • Tambahkan butang arahan pada bentuk pengguna dari kotak alat.

  • Klik kanan pada butang arahan, klik sifat

  • Tukar kapsyen butang arahan ke 'Create_Listbox'

  • Klik dua kali pada butang arahan
  • Sekarang, ia menunjukkan kod berikut.

Butang Sub Perintah Peribadi1_Klik ()

Sub Akhir

  • Panggil prosedur di bawah bernama 'Add_Dynamic_Listbox' dan cari prosedur di bawah untuk dijalankan.

Sub Tambah_Dynamic_Listbox ()

'Tambah Kotak Senarai Dinamik dan tetapkan ke objek' LstBx '

Tetapkan LstBx = UserForm3.Controls.Add ("Forms.ListBox.1")

Kedudukan Kotak Senarai

LstBx.Left = 20

LstBx.Top = 10

Sub Akhir

  • Sekarang, klik F5 untuk menjalankan makro.
Bagaimana cara menambah item ke senarai kotak kawalan di VBA?

Sub Masukkan Peribadi _Items _To_LstBox ()

ListBox1.AddItem "Item 1"

ListBox1.AddItem "Item 2"

ListBox1.AddItem "Item 3"

ListBox1.AddItem "Item 4"

ListBox1.AddItem "Item 5"

Sub Akhir

Bagaimana cara membersihkan item dari kawalan kotak senarai menggunakan VBA?

Sub Clr_LstBx ()

UserForm3.ListBox1.Clear

Sub Akhir

Contoh # 4

Andaikan kami mempunyai data penjualan dan kami mahukan perincian penjualan antara muka pengguna grafik dengan memilih pemilihan item kotak senarai. Kemudian kita harus menukar sel Indeks pilih sebagai pautan sel dan menerapkan formula VLOOKUP untuk mengambil perincian penjualan seperti yang ditunjukkan dalam tangkapan skrin di bawah.

Perkara yang Perlu Diingat Tentang Kotak Senarai di Excel VBA

Kotak senarai di Excel boleh digunakan untuk memilih beberapa item daripadanya.