Bergantung pada keadaan anda mungkin perlu memilih berbilang nilai dalam senarai juntai bawah. Dalam tutorial ini, kami akan menunjukkan kepada anda cara membuat berbilang pilihan dalam senarai juntai bawah. Untuk sesi ini, kami menggunakan Excel 2019, sila gunakan versi pilihan anda.

Sebelum menyelami sesi, mari kita ketahui tentang set data yang menjadi asas contoh kami.

Di sini kita mempunyai beberapa elemen alat tulis, menggunakan ini kita akan membuat senarai lungsur turun dan memilih berbilang item di sana.

Perhatikan bahawa ia adalah set data mudah untuk memastikan perkara itu mudah . Dalam senario praktikal, anda mungkin menghadapi set data yang lebih besar dan kompleks.

Buku Kerja Amalan

Anda dialu-alukan untuk memuat turun buku kerja latihan daripada pautan di bawah.

Buat Pelbagai Pilihan daripada Senarai Jatuh Bawah.xlsm

Pilihan Berbilang dalam Senarai Jatuh Bawah

Pertama sekali, kita perlu membuat senarai juntai bawah berdasarkan alat tulis kami. Mari buat dengan cepat. Jangan teragak-agak untuk melawati artikel berkenaan pembuatan senarai juntai bawah.

Dalam kotak dialog Pengesahan Data pilih jenis data SENARAI dan masukkan julat sel item.

B4:B11 ialah julat yang memegang elemen alat tulis. Kini anda akan menemui senarai lungsur turun.

Baca lebih lanjut: Senarai Turun Excel Bergantung pada Pilihan

1. PilihBerbilang Item (Membenarkan Pemilihan Pendua)

Senarai juntai bawah konvensional sentiasa memilih satu item. Di sini anda boleh lihat, kami telah memilih Pen daripada senarai (imej di bawah).

Sekarang, jika kami memilih item lain, katakan Pensel

kemudian ia akan menggantikan nilai sebelumnya. Hanya Pensel akan kekal dipilih.

Untuk memilih berbilang item, kita perlu menggunakan kod VBA . Buka tetingkap Microsoft Visual Basic for Applications (tekan ALT + F11 untuk membukanya).

Sekarang klik dua kali pada nama atau nombor lembaran kerja yang anda mahu pilih berbilang item dalam senarai juntai bawah. Anda akan menemui tetingkap kod untuk helaian tertentu itu.

Di sini, ialah tetingkap kod untuk Helaian2 dalam buku kerja kami (kami mempunyai menu lungsur turun senarai dalam helaian ini).

Setelah tetingkap kod dibuka, masukkan kod berikut di sana

2198

Simpan kod dan sekarang cuba pilih nilai dalam senarai juntai bawah.

Setelah memilih Pensel , kami akan memilih item lain Buku Nota . Dan anda boleh lihat, kami menemui kedua-dua item (imej di bawah).

Kod ini akan membolehkan kami mengulangi pemilihan. Katakan jika kami memilih Pensel sekali lagi,

kami akan mencari item itu sekali lagi dalam kotak pilihan.

Penjelasan Kod

Kami telah mengisytiharkan dua rentetan Nilai Lama dan Nilai Baharu .

Anda boleh lihat kami membuat senarai lungsur turun dalam sel D4 , itulah sebabnya alamat sasaran kami ialah D4 . Selain itu, kami telah menyemak semula sama ada sel menggunakan pengesahan data atau tidak menggunakan Target.SpecialCells .

Setelah nilai dipilih, kami mematikan peristiwa ( Application.EnableEvents = False ) supaya perubahan tidak t mencetuskan peristiwa itu semula. Kemudian simpan item yang dipilih ke dalam Nilai Baharu .

Selepas membuat asal perubahan, kami telah menetapkan nilai ke dalam Nilai Lama . Kemudian semak sama ada Nilai Lama kosong atau tidak. Jika kosong (bermakna hanya satu nilai dipilih), kemudian kembalikan Nilai Baharu . Jika tidak, gabungkan Nilai Lama dan Nilai Baharu .

Sebelum menamatkan tetapan semula acara, supaya kami boleh menukar jika perlu.

Baca lebih lanjut: Senarai Jatuh Bawah Berbilang Bergantungan Excel VBA

2. Pilih Berbilang Item Daripada Senarai Jatuh Bawah (Pilihan Unik Sahaja)

Dalam bahagian awal , kami telah melihat berbilang pilihan di mana pengulangan dibenarkan. Jika anda tidak mahu perkara itu, ikut bahagian ini.

Untuk kemudahan, kami menggunakan helaian berasingan untuk tunjuk cara ini. Kali ini kami berada di Sheet3. Tulis kod berikut dalam tetingkap kod untuk helaian ini.

2150

Adakah terdapat sebarang perbezaan berbanding kod sebelumnya! Lihat lebih dekat, anda akan dapat melihat sedikit perbezaan.

Di sini kami telah menggunakan fungsi VBA yang dipanggil INSTR . Fungsi INSTR mengembalikan kedudukan kejadian pertama subrentetan dalam rentetan. Lawati artikel INSTR ini untuk mendapatkan maklumat lanjut.

Menggunakan operasi logik ini dengan InStr(1, Oldvalue, Newvalue) = 0, kami telah menyemak sama ada nilai ditemui atau tidak. Jika operasi logik mengembalikan TRUE (tidak ditemui lebih awal) maka ia membenarkan untuk memilih item dan menggabungkan dengan nilai sebelumnya.

Simpan kod dan kini cuba pilih item yang telah telah dipilih.

Di sini kami telah memilih Pensel , jika kami mahu memilihnya sekali lagi, kami tidak boleh. Ia tidak membenarkan nilai pendua.

Baca lebih lanjut: Cara Membuat Senarai Turun Dari Helaian Lain dalam Excel

3. Pilih Item dalam Newline

Setakat ini, kami mendapati item tersebut dipisahkan dengan koma. Dalam bahagian ini, kami akan menyusun item yang dipilih dalam baris baharu.

Untuk memudahkan, kami menggabungkan beberapa sel dengan sel D4 . Untuk berbuat demikian, pilih sel yang anda ingin cantumkan dan klik Gabung & Tengah daripada bahagian Penjajaran tab Laman Utama .

Sel akan mendapat lebih banyak ketinggian.

Sekarang, mari kita lihat kod untuk mengasingkan item melalui baris baharu. Gunakan kod berikut

4774

Satu-satunya perbezaan daripada kod sebelumnya ialah kali ini kami menggunakan vbNewLine di antara OldValue dan NewValue .

vbNewLine menyediakan baris baharu antara item.

Sekarang pilih item.

Kami memilih item Pen yang ditunjukkan dalam imej di atas. Sekarang pilih elemen lain.

Anda akan mendapati kedua-dua item berada dalam baris yang berbeza.

Di sini kita mempunyai dua nilai, yang berada dalam dua baris yang berbeza. Memilih nilai lain akan menambahkannya pada baris lain. Setiap nilai akan berada dalam baris baharu.

Perhatikan bahawa jika anda mahu pembatas lain untuk memisahkan item, gunakannya dalam petikan berganda sebagai ganti vbNewline .

Kesimpulan

Itu sahaja untuk hari ini. Kami telah menyenaraikan beberapa pendekatan untuk membuat berbilang pilihan dalam senarai juntai bawah. Harap anda akan mendapati ini berguna. Jangan ragu untuk memberi komen jika ada yang sukar difahami. Beritahu kami mana-mana kaedah lain yang kami terlepas di sini.