Cara Membuat Kotak Daftar Multi Pilih di Excel (Dengan Langkah Mudah)

Hugh West

18-10-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Ketika kita bekerja pada dataset yang besar, sering kali sulit untuk mengambil nilai selektif apa pun darinya. Selain itu, Anda tidak dapat memilih lebih dari beberapa informasi secara bersamaan. Dalam hal ini, ListBox adalah solusi yang sangat membantu dalam Excel . tetapi proses penciptaan ini ListBox sedikit rumit. Oleh karena itu, dalam artikel ini, kita akan mempelajari cara membuat multi-select ListBox di excel dengan beberapa langkah sederhana.

Unduh Buku Kerja Praktik

Dapatkan file sampel untuk berlatih.

Kotak Daftar Multi Pilih.xlsm

Prosedur Langkah-demi-Langkah untuk Membuat Kotak Daftar Multi Pilih di Excel

Untuk mempermudah prosesnya, kami telah membaginya menjadi 8 Jadi, tanpa penundaan lebih lanjut, mari kita masuk ke langkah-langkah di bawah ini untuk melihat bagaimana kita dapat membuat multi-select ListBox di Excel.

Langkah 1: Membuat Tabel Excel dari Dataset

Awalnya, kita perlu menyiapkan dataset sampel dan mengubahnya menjadi tabel. Untuk melakukan ini, ikuti langkah-langkah di bawah ini.

  • Pertama, buat dataset dengan informasi dari 10 Nama Kota dan mereka Total Populasi dari AMERIKA SERIKAT sampai 1, Juli di Rentang sel B5: C14 .

  • Sekarang, klik pada sel mana pun dari dataset dan pilih Tabel dari Sisipkan tab.

  • Kemudian, Anda akan melihat Buat Tabel yang secara otomatis memilih rentang sel untuk membuat tabel.
  • Di jendela ini, tandai centang pada Tabel saya memiliki tajuk kotak dan tekan OK .

  • Hasilnya, Anda akan melihat dataset dikonversi ke tabel.

  • Bersamaan dengan itu, Anda bisa menemukan tabel di dalam Nama Tabel kotak di bawah Desain Meja tab

  • Anda bisa mengubah nama tabel menurut preferensi Anda.

Baca selengkapnya: Cara Membuat Daftar Drop Down Tergantung di Excel

Langkah 2: Beri nama Daftar Dataset dari Name Manager

Sekarang, kita akan menamai setiap kategori cell range dari tabel. Untuk ini, lakukan langkah-langkahnya.

  • Pertama, pilih sel apa pun dari Kolom B dalam tabel.
  • Kemudian, pergi ke Rumus tab dan pilih Tentukan Nama .

  • Setelah ini, Anda akan melihat Nama Baru kotak dialog.
  • Dalam kotak dialog ini, berikan nama apa pun sesuai tajuk kolom yang dipilih dalam kotak dialog Nama kotak.

  • Berikutnya, klik pada Mengacu pada kotak di jendela yang sama.
  • Kemudian, letakkan kursor di atas header dan akan muncul tanda panah hitam.
  • Setelah itu, tekan klik kiri untuk memilih Rentang sel B5:B14 .

  • Hasilnya, Anda akan melihat daftar nama beserta nama tabel di dalam Mengacu pada kotak dan tekan OK .

  • Ikuti prosedur yang sama, untuk Rentang sel C5: C14 juga.
  • Akhirnya, Anda akan melihat nama-nama dalam Kotak Nama di sudut kiri atas buku kerja.

Langkah 3: Buat Daftar Drop Down dengan Validasi Data

Pada tahap ini, kita akan membuat daftar drop-down dari rentang yang dinamai dengan validasi data. Ini adalah bagian penting dari pembuatan ListBox Kita akan membuat ini di lembar kerja lain di buku kerja. Tapi Anda juga bisa melakukan ini di lembar kerja yang sama. Mari kita lihat prosesnya di bawah ini.

  • Pada awalnya, pilih beberapa sel dari tabel di mana Anda ingin menerapkan Validasi Data .
  • Kemudian, pergi ke Data tab dan pilih Validasi Data di Alat Data bagian.

  • Selanjutnya, di dalam Pengaturan tab, pilih Daftar di Izinkan kotak.

  • Juga, tandai memeriksa Abaikan kosong dan Dropdown dalam sel kotak.

  • Setelah itu, klik pada Sumber kotak di jendela ini dan tekan F3 pada keyboard Anda.
  • Sebagai hasilnya, Anda akan melihat Tempel Nama kotak dialog dengan daftar nama.
  • Di sini, pilih NamaKota dari daftar dan tekan OK .

  • Kemudian, Anda akan melihat nama daftar pertama yang ditampilkan dalam kotak sumber.

  • Terakhir, tekan OK dan menerapkan proses yang sama untuk daftar nama kedua.
  • Akhirnya, Anda akan melihat bahwa Validasi Data diaktifkan pada sel yang dipilih.

Langkah 4: Masukkan Kode VBA ke Lembar Kerja yang Divalidasi

Sekarang tiba pada bagian krusial, yaitu menyisipkan VBA kode untuk membuat ListBox Berikut ini adalah proses untuk ini.

  • Pertama, klik kanan pada lembar kerja yang divalidasi dan pilih Lihat Kode dari Menu Konteks .

  • Kemudian, masukkan kode ini pada halaman. 
 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngDV As Range Dim oldVal As String Dim newVal As String Dim strList As String On Error Resume Next Application.EnableEvents = False Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo exitHandler If rngDV Is Nothing Then GoTo exitHandler If Not Intersect(Target, rngDV) Is Nothing Then If Target.Validation.Type = 3Then strList = Target.Validation.Formula1 strList = Right(strList, Len(strList) - 1) strDVList = strList frmDVList.Show End If End If exitHandler: Application.EnableEvents = True End Sub

  • Berikutnya, buka Sisipkan tab dan pilih Modul .
  • Pada titik ini, nama buku kerja harus dipilih di dalam Objek Proyek jendela.

  • Kemudian, ganti nama modul sebagai modPengaturan dan masukkan kode ini. 
 Opsi Eksplisit Global strDVList Sebagai String

Terima kasih kepada Konteks untuk menyediakan kode-kode.

Langkah 5: Buat UserForm dengan Kotak Daftar &; Tombol

Pada tahap ini, kita akan membuat sebuah UserForm untuk buku kerja bersama dengan ListBox dan beberapa Tombol Perintah Untuk melakukan ini, ikuti proses di bawah ini.

  • Pertama, pilih buku kerja dalam folder Proyek-VBAProyek jendela di Visual Basic editor.

  • Kemudian, pergi ke Sisipkan tab dan pilih UserForm .

  • Sebagai hasilnya, Anda akan mendapatkan UserForm antarmuka seperti ini.

  • Bersamaan dengan ini, Anda juga akan mendapatkan Kotak Alat jendela.
  • Dari sini, seret ListBox ke UserForm .

  • Kemudian, itu ListBox Anda bisa menyesuaikan ukurannya dengan menyeret tepi kotak.

  • Berikutnya, seret CommanButton dua kali untuk UserForm juga untuk membuat 2 tombol untuk pengoperasian.

  • Terakhir, output akhir terlihat seperti ini.

Langkah 6: Ubah Pengaturan Properti

Dalam tahap ini, kita akan membuat beberapa perubahan pada properti dari masing-masing komponen ListBox .

  • Pada awalnya, tekan F4 pada Visual Basic editor untuk membuka Jendela Properti .
  • Kemudian, pilih UserForm dan mengubah Nama dan Keterangan seperti ini.

  • Berikutnya, pilih ListBox dan mengubah Nama sesuai dengan preferensi Anda.

  • Selain itu, ubah jenis ListStyle , MultiSelect dan Efek Khusus sesuai gambar di bawah ini.

  • Sekarang, pilih tombol perintah pertama dan buat perubahan berikut ini dalam properti.

  • Selain itu, edit juga properti tombol perintah kedua.

Langkah 7: Terapkan Kode VBA ke UserForm

Pada tahap ini, kita akan menerapkan VBA kode untuk masing-masing komponen dari UserForm Mari kita lihat cara kerjanya.

  • Pertama, pilih UserForm dan pergi ke Lihat tab untuk memilih Kode .

  • Kemudian, sisipkan kode ini pada halaman kosong. Kode ini akan secara otomatis berjalan ketika UserForm dibuka. 
 Private Sub UserForm_Initialize() Me.lstDV.RowSource = strDVList End Sub

  • Setelah ini, kembali ke UserForm antarmuka dengan mengklik pada Objek pada Lihat tab.

  • Sekarang, ikuti proses untuk menyisipkan kode ini untuk OK tombol. 
 Private Sub cmdOK_Click() Dim strSelItems As String Dim lCountList As Long Dim strSep As String Dim strAdd As String Dim bDup As Boolean On Error Resume Next strSep = "," With Me.lstDV For lCountList = 0 To .ListCount - 1 If .Selected(lCountList) Then strAdd = .List(lCountList) Else strAdd = "" End If strSelItems = "" Then strSelItems = strAdd Else If strAdd "" Then strSelItems = strSelItems_ & strSep & strAdd End If End If Next lCountList End With With ActiveCell If .Value "" Then .Value = ActiveCell.Value _ & strSep & strSelItems Else .Value = strSelItems End If End With Unload Me End Sub

  • Bersamaan dengan ini, ketikkan kode ini untuk Tutup menggunakan proses yang sama. 
 Private Sub cmdClose_Click() Bongkar Me End Sub

  • Terakhir, tekan Ctrl + S untuk menyimpannya dan menutup jendela.

Terima kasih kepada Konteks untuk membantu dengan kode-kode.

Langkah 8: Multi Pilih dari ListBox

Akhirnya, kita telah berhasil menciptakan ListBox Untuk memeriksa apakah kode tersebut berfungsi atau tidak, cukup lakukan langkah-langkah berikut.

  • Pertama, pilih Sel B5 di mana kami menerapkan Validasi Data .
  • Tepat setelah itu, sebuah ListBox akan muncul perintah Pilih Item dari Daftar .
  • Di jendela ini, pilih lebih dari satu nama dari daftar.

  • Kemudian, tekan OK .
  • Akhirnya, Anda telah berhasil melakukan multi-pemilihan dari ListBox dan setiap nama dipisahkan oleh tanda Koma ( , ).

Hal-hal yang Perlu Diingat

  • Rentang bernama tidak akan membuat Validasi Data jika dimasukkan sebagai referensi sel atau dengan pembatas.
  • The Variabel global diterapkan untuk kedua UserForm dan Lembar kerja VBA Setiap nama sel yang aktif pada awalnya melewati kode strDVList ke rentang sementara dan kemudian digunakan sebagai RowSource untuk ListBox ketika pengguna membuka aplikasi UserForm .
  • Anda bisa menggabungkan beberapa rentang dalam satu nama untuk memudahkan pemilihan.

Kesimpulan

Sekian untuk hari ini. Saya harap langkah-langkah panjang namun sederhana tentang cara membuat ListBox multi-pilih Beri tahu kami tanggapan Anda di kotak komentar. Ikuti ExcelWIKI untuk lebih banyak artikel seperti ini.

Postingan sebelumnya Bagaimana Cara Menghitung Sel dengan Teks Di Excel (8 Trik Cepat)
Postingan berikutnya Cara Mengurangi Beberapa Sel di Excel (6 Metode Efektif)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.