Sampai sekarang, kami melihat cara membuat daftar drop-down di Excel. Hari ini saya akan menunjukkan cara membuat daftar drop-down dengan beberapa pilihan di Excel .

Unduh Buku Kerja Praktik

Anda bisa mengunduh buku kerja latihan dari sini.

Prosedur Langkah-demi-Langkah untuk Membuat Daftar Drop Down di Excel dengan Beberapa Pilihan

Di sini, kita punya dataset yang memiliki kolom Nama Buku Tujuan kita hari ini adalah untuk membuat daftar drop-down berdasarkan dataset ini yang mengambil beberapa pilihan. Saya akan menunjukkan prosedur langkah demi langkah di bagian di bawah ini.

LANGKAH 1: Buat Daftar Drop-Down dengan Menggunakan Validasi Data

Untuk membuat daftar drop-down dengan beberapa pilihan, kita harus membuat daftar drop-down terlebih dahulu. Mari kita telusuri prosedurnya.

• Pertama, pilih sel tempat Anda ingin membuat daftar drop-down. Saya telah memilih Sel D5 .

• Berikutnya, buka Data tab dan pilih Validasi Data dari pita.

• Kemudian, dari Validasi Data jendela, pilih Daftar di Izinkan dan tulis sel rentang yang datanya ingin Anda tambahkan ke daftar di bagian Sumber lapangan.
• Atau, Anda bisa mengklik tanda panah kecil ke atas di bagian Sumber bagian dan pilih rentang data dari lembar kerja.

• Akhirnya, kita akan melihat daftar drop-down yang dibuat di Sel D5 .

Bacaan serupa:

• Cara Membuat Daftar Drop Down di Excel (Independen dan Dependen)
• Buat Beberapa Pilihan dari Daftar Drop Down di Excel (3 Cara)
• Cara Membuat Daftar Drop Down Tergantung di Excel
• Buat Daftar Drop Down di Beberapa Kolom di Excel (3 Cara)

LANGKAH 2: Mengaktifkan Daftar Drop-Down untuk Menerima Pilihan Ganda dengan Kode VBA

Kita sudah membuat daftar drop-down. Sekarang, saatnya menyiapkan daftar drop-down untuk beberapa pilihan. Saya akan menggunakan 2 VBA kode untuk mengaktifkan daftar untuk menerima beberapa pilihan. Satu akan menerima pengulangan data dan satu lagi tidak akan menerima pengulangan data.

Kasus 1: Kode VBA untuk Pilihan Ganda dengan Pengulangan

Pada bagian ini, saya akan menunjukkan cara untuk membuat daftar drop-down dengan beberapa pilihan yang akan mengambil pengulangan data.

Mari kita telusuri prosedurnya.

• Pertama, tekan ALT + F11 untuk membuka VBA jendela.
• Kemudian, pilih Penjelajah Proyek . juga, ganda - klik pada lembar di mana Anda ingin tugas itu dilakukan.

• Secara bersamaan, a Kode jendela akan terbuka.
• Setelah itu, tulis kode berikut di jendela itu.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$5" 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.Undo Oldvalue = Target.Value If Oldvalue = "" ThenTarget.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Terakhir, kembali ke lembar kerja dan kita akan dapat memilih beberapa elemen dalam daftar drop-down dengan pengulangan elemen yang sama.

Kasus 2: Kode VBA untuk Pemilihan Ganda tanpa Pengulangan

Pada bagian ini, saya akan menunjukkan cara untuk membuat daftar drop-down dengan beberapa pilihan yang tidak akan mengambil pengulangan data.

Mari kita telusuri prosedurnya.

• Pertama, tekan ALT + F11 untuk membuka VBA jendela.
• Kemudian, pilih Penjelajah Proyek . juga, ganda - klik pada lembar di mana Anda ingin tugas itu dilakukan.

• Secara bersamaan, a Kode akan muncul.
• Setelah itu, ketikkan kode berikut di jendela itu.

 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$5" 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.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 

• Terakhir, kembali ke lembar kerja dan kita akan dapat memilih beberapa elemen dalam daftar drop-down tanpa pengulangan elemen yang sama.

Kesimpulan

Dengan menggunakan metode ini, Anda dapat membuat daftar drop-down di Excel dengan beberapa pilihan. Apakah Anda punya pertanyaan? Jangan ragu untuk memberi tahu kami di bagian komentar. Kunjungi kami Situs Web ExcelWIKI untuk artikel lainnya mengenai Excel .