Bergantung pada keadaan Anda mungkin perlu memilih beberapa nilai dalam daftar drop-down. Dalam tutorial ini, kami akan menunjukkan kepada Anda cara membuat beberapa pilihan dalam daftar drop-down. Untuk sesi ini, kami menggunakan Excel 2019, silakan gunakan versi pilihan Anda.

Sebelum masuk ke dalam sesi, mari kita mengenal dataset yang merupakan dasar dari contoh-contoh kita.

Di sini kita memiliki beberapa elemen alat tulis, dengan menggunakan ini kita akan membuat daftar drop-down dan memilih beberapa item di sana.

Perhatikan bahwa ini adalah dataset sederhana untuk menjaga segala sesuatunya tetap mudah. Dalam skenario praktis, Anda mungkin menemukan dataset yang jauh lebih besar dan kompleks.

Buku Kerja Praktik

Anda dipersilakan mengunduh buku kerja latihan dari tautan di bawah ini.

Buat Beberapa Pilihan dari Daftar Drop Down.xlsm

Pilihan Ganda dalam Daftar Drop-Down

Pertama-tama, kita perlu membuat daftar drop-down berdasarkan alat tulis kita. Mari kita buat dengan cepat. Jangan ragu untuk mengunjungi artikel mengenai pembuatan daftar drop-down.

Dalam Validasi Data kotak dialog pilih DAFTAR tipe data dan masukkan rentang sel item.

B4:B11 adalah rentang yang menampung elemen alat tulis. Sekarang Anda akan menemukan daftar drop-down.

Baca selengkapnya: Daftar Drop Down Excel Tergantung pada Pilihan

1. Pilih Beberapa Item (Memungkinkan Pemilihan Duplikat)

Daftar drop-down konvensional selalu memilih satu item. Di sini Anda bisa melihat, kita telah memilih Pena dari daftar (gambar di bawah).

Sekarang, jika kita memilih item lain, katakanlah Pensil

maka akan menggantikan nilai sebelumnya. Hanya Pensil akan tetap dipilih.

Untuk memilih beberapa item, kita perlu menggunakan VBA kode. Microsoft Visual Basic untuk Aplikasi jendela (tekan ALT + F11 untuk membukanya).

Sekarang klik dua kali pada nama atau nomor lembar kerja di mana Anda ingin memilih beberapa item dalam daftar drop-down. Anda akan menemukan jendela kode untuk lembar tertentu itu.

Di sini, adalah jendela kode untuk Sheet2 di buku kerja kita (kita memiliki daftar drop-down di lembar ini).

Setelah jendela kode dibuka, masukkan kode berikut di sana

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$4" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.UndoOldvalue = Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

Simpan kodenya, dan sekarang cobalah untuk memilih nilai dalam daftar drop-down.

Setelah memilih Pensil , kita akan memilih item lain Buku catatan Dan Anda bisa lihat, kami menemukan kedua item tersebut (gambar di bawah).

Kode ini akan memungkinkan kita untuk mengulangi pemilihan. Katakanlah jika kita memilih Pensil lagi,

kita akan menemukan item lagi dalam kotak pilihan.

Penjelasan Kode

Kita telah mendeklarasikan dua string Nilai lama dan Nilai baru .

Anda bisa melihat, kami membuat daftar drop-down di D4 sel, itulah sebabnya alamat target kita adalah D4 Dan sebagai tambahan, kami telah memeriksa ulang apakah sel tersebut menggunakan validasi data atau tidak menggunakan Target.SpecialCells .

Setelah nilai dipilih, kita mematikan peristiwa ( Application.EnableEvents = False (Aplikasi.EnableEvents = Salah) ) sehingga perubahan tidak memicu event lagi. Kemudian menyimpan item yang dipilih ke dalam Nilai baru .

Setelah membatalkan perubahan, kita telah menetapkan nilai ke dalam Nilai lama Kemudian periksa apakah Nilai lama kosong atau tidak. Jika kosong (berarti hanya satu nilai yang dipilih), maka kembalikan nilai Nilai baru Jika tidak, gabungkan Nilai lama dan Nilai baru .

Sebelum mengakhiri reset event, sehingga kita bisa mengubahnya jika diperlukan.

Baca selengkapnya: Beberapa Daftar Drop-Down Tergantung Excel VBA

2. Pilih Beberapa Item Dari Daftar Drop Down (Hanya Pilihan Unik)

Pada bagian sebelumnya, kita telah melihat beberapa pilihan di mana pengulangan diperbolehkan. Jika Anda tidak menginginkannya, maka ikuti bagian ini.

Untuk kenyamanan, kita menggunakan sheet terpisah untuk demonstrasi ini. Kali ini kita berada di Sheet3. Tulis kode berikut di jendela kode untuk sheet ini.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$4" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.ValueApplication.Undo Oldvalue = Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

Apakah ada perbedaan dibandingkan dengan kode sebelumnya! Lihatlah lebih dekat, Anda akan dapat melihat sedikit perbedaannya.

Di sini kami telah menggunakan VBA fungsi yang disebut INSTR . INSTR mengembalikan posisi kemunculan pertama substring dalam sebuah string. Kunjungi artikel INSTR ini untuk informasi lebih lanjut.

Menggunakan operasi logika ini dengan InStr(1, Oldvalue, Newvalue) = 0, kita telah memeriksa apakah nilai ditemukan atau tidak. Jika operasi logika menghasilkan BENAR (tidak ditemukan sebelumnya) maka memungkinkan untuk memilih item dan menggabungkan dengan nilai sebelumnya.

Simpan kode dan sekarang coba pilih item yang sudah dipilih.

Di sini kita sudah memilih Pensil Ini tidak mengizinkan nilai duplikat.

Baca selengkapnya: Cara Membuat Daftar Drop Down Dari Lembar Lain di Excel

3. Pilih Item di Baris Baru

Sejauh ini, kita telah menemukan item-item yang dipisahkan oleh koma. Pada bagian ini, kita akan mengatur item-item yang dipilih dalam baris baru.

Untuk kesederhanaan, kita menggabungkan beberapa sel dengan D4 Untuk melakukannya, pilih sel yang ingin Anda gabungkan dan klik Gabungkan &; Pusat dari Keselarasan bagian dari Rumah tab.

Sel akan bertambah tinggi.

Sekarang, mari kita lihat kode untuk memisahkan item melalui baris baru. Gunakan kode berikut ini

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$4" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.ValueApplication.Undo Oldvalue = Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & vbNewLine & Newvalue Else: Target.Value = Oldvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

Satu-satunya perbedaan dari kode sebelumnya adalah bahwa kali ini kita menggunakan vbNewLine di antara OldValue dan Nilai Baru .

vbNewLine menyediakan baris baru di antara item-item.

Sekarang pilih item.

Kami memilih item Pena yang ditampilkan pada gambar di atas. Sekarang pilih elemen lain.

Anda akan menemukan kedua item tersebut berada dalam barisan yang berbeda.

Di sini kita memiliki dua nilai, yang berada di dua baris yang berbeda. Memilih nilai lain akan menambahkannya ke baris lain. Setiap nilai akan berada di baris baru.

Perhatikan bahwa jika Anda menginginkan pembatas lain untuk memisahkan item-item, gunakan itu di dalam tanda kutip ganda sebagai pengganti vbNewline .

Kesimpulan

Sekian untuk hari ini. Kami telah membuat daftar beberapa pendekatan untuk membuat beberapa pilihan dalam daftar drop-down. Semoga Anda merasa ini bermanfaat. Jangan ragu untuk berkomentar jika ada yang tampaknya sulit dipahami. Beri tahu kami metode lain yang kami lewatkan di sini.