Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara membuat daftar drop-down dengan banyak pilihan atau nilai di Excel?

Secara default, Anda hanya dapat memilih satu item dalam daftar drop-down validasi data di Excel. Bagaimana Anda bisa membuat banyak pilihan dalam daftar drop-down seperti yang ditunjukkan gif di bawah ini? Metode dalam artikel ini dapat membantu Anda memecahkan masalah.


Buat daftar drop-down dengan beberapa pilihan dengan kode VBA

Bagian ini menyediakan dua kode VBA untuk membantu Anda membuat beberapa pilihan dalam daftar drop-down di lembar kerja. Kedua kode VBA dapat mencapai:

Kode VBA 1: Izinkan beberapa pilihan dalam daftar drop-down tanpa duplikat
Kode VBA 2: Izinkan beberapa pilihan dalam daftar drop-down tanpa duplikat (hapus item yang ada dengan memilihnya lagi)

Anda dapat menerapkan salah satu kode VBA berikut untuk membuat beberapa pilihan dalam daftar turun bawah di lembar kerja di Excel. Silakan lakukan sebagai berikut.

1. Buka lembar kerja yang berisi daftar drop-down validasi data tempat Anda ingin membuat beberapa pilihan. Klik kanan tab lembar dan pilih Lihat kode dari menu konteks

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, salin kode VBA di bawah ini ke jendela kode. Lihat tangkapan layar:

Kode VBA 1: Izinkan beberapa pilihan dalam daftar drop-down tanpa duplikat

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

3. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Sekarang Anda dapat memilih beberapa item dari daftar drop-down di lembar kerja saat ini.

Misalkan Anda telah memilih item secara tidak sengaja dan perlu menghapusnya tanpa membersihkan seluruh sel dan memulai dari awal. Kode VBA 2 berikut dapat membantu Anda.

Kode VBA 2: Izinkan beberapa pilihan dalam daftar drop-down tanpa duplikat (hapus item yang ada dengan memilihnya lagi)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2023/01/11
    'Updated by Ken Gardner 2022/07/11
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim semiColonCnt As Integer
    Dim xType As Integer
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    
    xType = 0
    xType = Target.Validation.Type
    If xType = 3 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
                    xValue1 = Replace(xValue1, "; ", "")
                    xValue1 = Replace(xValue1, ";", "")
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, "; " & xValue2) Then
                    xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, xValue2 & ";") Then
                    xValue1 = Replace(xValue1, xValue2, "")
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & "; " & xValue2
                End If
                Target.Value = Replace(Target.Value, ";;", ";")
                Target.Value = Replace(Target.Value, "; ;", ";")
                If Target.Value <> "" Then
                    If Right(Target.Value, 2) = "; " Then
                        Target.Value = Left(Target.Value, Len(Target.Value) - 2)
                    End If
                End If
                If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
                    Target.Value = Replace(Target.Value, "; ", "", 1, 1)
                End If
                If InStr(1, Target.Value, ";") = 1 Then
                    Target.Value = Replace(Target.Value, ";", "", 1, 1)
                End If
                semiColonCnt = 0
                For i = 1 To Len(Target.Value)
                    If InStr(i, Target.Value, ";") Then
                        semiColonCnt = semiColonCnt + 1
                    End If
                Next i
                If semiColonCnt = 1 Then ' remove ; if last character
                    Target.Value = Replace(Target.Value, "; ", "")
                    Target.Value = Replace(Target.Value, ";", "")
                End If
            End If
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Catatan:

1). Nilai duplikat tidak diperbolehkan dalam daftar drop-down.
2). Kode VBA 2 di atas diberikan oleh pengguna antusias kami Ken Gardner pada 2022/07/11.
3). Harap simpan buku kerja sebagai Buku Kerja Excel dengan Makro Aktif agar kode tetap berfungsi di masa mendatang.
4). Setelah menambahkan kode VBA 2, Anda dapat menghapus item yang ada dengan memilihnya lagi di daftar drop-down. Lihat gif di bawah ini:


Mudah membuat daftar drop-down dengan banyak pilihan dengan alat yang luar biasa

Di sini kami sangat merekomendasikan Daftar Drop-down multi-pilih fitur dari Kutools untuk Excel untukmu. Dengan fitur ini, Anda dapat dengan mudah memilih beberapa item dari daftar turun bawah dalam rentang tertentu, lembar kerja saat ini, buku kerja saat ini atau semua buku kerja yang dibuka sesuai kebutuhan.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. klik Kutools > Daftar Drop-down > Daftar Drop-down multi-pilih > Pengaturan. Lihat tangkapan layar:

2. Dalam Multi-pilih Pengaturan Daftar Drop-down kotak dialog, konfigurasikan sebagai berikut.

  • 2.1) Tentukan lingkup penerapan di berlaku untuk bagian. Dalam hal ini, saya pilih Lembar kerja saat ini dari Cakupan Tertentu daftar drop-down;
  • 2.2) Di Arah Teks bagian, pilih arah teks berdasarkan kebutuhan Anda;
  • 2.3) Di alat pemisah kotak, masukkan pembatas yang akan Anda gunakan untuk memisahkan beberapa nilai;
  • 2.4) Periksa Jangan tambahkan duplikat kotak di Opsi bagian jika Anda tidak ingin membuat duplikat di sel daftar drop-down;
  • 2.5) Klik OK tombol. Lihat tangkapan layar:

3. Silakan klik Kutools > Daftar Drop-down > Daftar Drop-down multi-pilih untuk mengaktifkan fitur.

Sekarang Anda dapat memilih beberapa item dari daftar drop-down di lembar kerja saat ini atau cakupan apa pun yang telah Anda tentukan di langkah 2.

  Jika Anda ingin memiliki uji coba gratis (30-day) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Artikel terkait:

Pelengkapan otomatis saat mengetik di daftar drop-down Excel
Jika Anda memiliki daftar drop-down validasi data dengan nilai yang besar, Anda perlu menggulir ke bawah dalam daftar hanya untuk menemukan yang tepat, atau langsung mengetikkan seluruh kata ke dalam kotak daftar. Jika ada metode untuk mengizinkan penyelesaian otomatis saat mengetik huruf pertama di daftar tarik-turun, semuanya akan menjadi lebih mudah. Tutorial ini memberikan metode untuk memecahkan masalah tersebut.

Buat daftar drop-down dari buku kerja lain di Excel
Sangat mudah untuk membuat daftar drop-down validasi data di antara lembar kerja dalam buku kerja. Tetapi jika daftar data yang Anda perlukan untuk validasi data ada di buku kerja lain, apa yang akan Anda lakukan? Dalam tutorial ini, Anda akan belajar cara membuat daftar drop fown dari workbook lain di Excel secara detail.

Buat daftar drop-down yang dapat dicari di Excel
Untuk daftar drop-down dengan banyak nilai, menemukan yang tepat bukanlah pekerjaan yang mudah. Sebelumnya kami telah memperkenalkan metode pengisian otomatis daftar drop-down saat memasukkan huruf pertama ke dalam kotak drop-down. Selain fungsi pelengkapan otomatis, Anda juga dapat membuat daftar drop-down dapat dicari untuk meningkatkan efisiensi kerja dalam menemukan nilai yang tepat dalam daftar drop-down. Untuk membuat daftar drop-down dapat dicari, coba metode dalam tutorial ini.

Mengisi otomatis sel lain saat memilih nilai di daftar drop-down Excel
Katakanlah Anda telah membuat daftar drop-down berdasarkan nilai dalam rentang sel B8: B14. Saat Anda memilih nilai apa pun dalam daftar turun bawah, Anda ingin nilai yang sesuai dalam rentang sel C8: C14 secara otomatis terisi dalam sel yang dipilih. Untuk memecahkan masalah, metode dalam tutorial ini akan membantu Anda.

Tutorial lainnya untuk daftar drop-down ...


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (67)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai, Terima kasih atas solusi dan kodenya. Tetapi langkah selanjutnya adalah bagaimana memastikan bahwa pengguna tidak memilih nilai "duplikat" dari daftar dropdown. Misalnya Jika ada 4 item dalam daftar - jeruk, apel, pisang, persik dan jika pengguna telah memilih "oranye", maka excel tidak akan mengizinkan pengguna untuk memilih "oranye" ATAU opsi itu harus dihapus dari sisa Daftar. Bisakah Anda mempublikasikan kode untuk menyelesaikan fitur ini. Terima kasih. Yezdi
Komentar ini diminimalkan oleh moderator di situs
Hai Yezdi, Terima kasih atas komentar Anda. Kode telah diperbarui dan tidak ada nilai duplikat yang diizinkan dalam daftar drop-down sekarang. Terima kasih. Cahaya matahari
Komentar ini diminimalkan oleh moderator di situs
Sangat bagus bahwa ini memungkinkan banyak pilihan tetapi seperti komentar @Yezdi, saya menemukan itu akan menambahkan satu atau beberapa duplikat bahkan jika saya tidak memilihnya. Jadi, saat ini, ini adalah solusi 80%... satu penyesuaian jauh dari sempurna. Saya bukan pembuat kode VB atau saya akan menawarkan solusinya.
Komentar ini diminimalkan oleh moderator di situs
Anda dapat mengubah kode di baris berikut untuk mencegah duplikat: If xValue2 "" Then Target.Value = xValue1 & ", " & xValue2 End If To: If xValue2 "" Then If CheckIfAlreadyAdded(xValue1, xValue2) = False Then Target .Value = xValue1 & ", " & xValue2 Else Target.Value = xValue1 End If End If Dan kemudian tambahkan fungsi berikut: Private Function CheckIfAlreadyAdded(ByVal sText As String, sNewValue As String) As Boolean CheckIfAlreadyAdded = False Dim WrdArray() As String WrdArray() = Split(sText, ",") For i = LBound(WrdArray) To UBound(WrdArray) If Trim(WrdArray(i)) = Trim(sNewValue) Kemudian CheckIfAlreadyAdded = True Next i End Function -- Ada kemungkinan cara pengkodean yang lebih baik tetapi berfungsi untuk saat ini.
Komentar ini diminimalkan oleh moderator di situs
Baru sadar saya tidak keluar dari loop dalam fungsi baru jika kondisinya telah diatur sehingga kami tidak perlu memeriksa entri lain.
Komentar ini diminimalkan oleh moderator di situs
Hai. Terima kasih atas kode dan penambahan untuk membatasi duplikat. Satu permintaan lagi - penambahan/perubahan apa yang harus dilakukan untuk memungkinkan beberapa pilihan hanya dalam satu atau dua kolom tertentu? Kode ini menambahkan kembali baris teks ke apa yang seharusnya menjadi sel 'biasa' jika saya memperbaiki kesalahan ketik, atau membuat perubahan atau penambahan pada teks di sel, sebagai lawan hanya berperilaku 'biasa' dan menerima perubahan (tanpa menambahkan kembali seluruh teks lagi). Misalnya, kolom A adalah kolom 'polos'. Saya menulis kalimat "Apa tiga hal yang paling Anda inginkan?" Kolom B adalah kolom 'daftar' di mana saya hanya ingin dapat memilih satu nilai tunggal (dalam hal ini, misalkan nama anak). Kolom C adalah kolom 'daftar' lain di mana pengguna harus dapat memilih beberapa item (yang memungkinkan saya untuk melakukannya dengan sempurna oleh kode ini). Saat saya melanjutkan, saya menyadari bahwa saya telah membuat kesalahan ketik di kolom A dan ingin memperbaikinya. Seperti kode ini, jika saya masuk (klik dua kali, F2) dan membuat koreksi pada kata "item", saya berakhir dengan hasil ini di sel saya: "Apa tiga item yang paling Anda inginkan? Apa ketiganya? barang yang paling kamu inginkan?" terima kasih sebelumnya atas bantuan apa pun (dari pengguna yang BENAR-BENAR menyukai VBA, tetapi masih dalam tahap pembelajaran paling awal!)
Komentar ini diminimalkan oleh moderator di situs
Saya bisa mendapatkan kode untuk bekerja, tapi kemudian ketika saya menyimpan dokumen (dengan makro diaktifkan), menutupnya dan kembali, kode tidak bekerja lagi (meskipun masih ada di sana). Saya tidak tahu apa yang telah saya lakukan salah. Ada ide?
Komentar ini diminimalkan oleh moderator di situs
Hai Cynthia, Jika penulis asli tidak membalas, saya akan memberi Anda jawaban tetapi saya hanya akan berada di depan komputer pada 29 Des lagi. Saya juga bukan programmer VBA. Apa yang dapat Anda lakukan sementara itu adalah pencarian Google bagaimana mengidentifikasi nomor kolom dan hanya membiarkan kode berjalan jika data diedit di kolom tertentu. Saya sudah melakukannya tetapi kodenya ada di PC kerja saya dan tidak dapat mengingatnya saat ini, mungkin coba letakkan debug.print pada target.column atau sesuatu seperti itu untuk melihat apakah itu memberi Anda nomor kolom yang sedang diedit . Maaf Jennifer, tidak yakin tentang masalah yang Anda alami :(
Komentar ini diminimalkan oleh moderator di situs
@Cynthia, Jika masih diperlukan, Anda harus dapat melakukan sesuatu seperti ini untuk hanya memastikan kode berjalan pada kolom tertentu, dalam kasus saya, kolom 34 dan 35: Jika (Target.Column 34 Dan Target.Column 35) Kemudian Keluar Sub 'Letakkan kode ini di awal setelah pernyataan redup Anda
Komentar ini diminimalkan oleh moderator di situs
[kutipan]@Cynthia, Jika masih diperlukan, Anda harus dapat melakukan sesuatu seperti ini untuk hanya memastikan kode berjalan pada kolom tertentu, dalam kasus saya, kolom 34 dan 35: Jika (Target.Column 34 Dan Target.Column 35) Kemudian Keluar Sub 'Letakkan kode ini di awal setelah pernyataan redup AndaOleh Mervyn[/quote] Hai @Mervyn, Kehilangan jejak utas sepenuhnya, tetapi terima kasih banyak atas tanggapan Anda. Saya sudah mencoba menerapkan If (Target.Column 34 Dan Target.Column 35) Kemudian Keluar Sub (versi saya berbunyi If (Target.Column4 Dan Target.Column5) Kemudian Keluar Sub seperti yang Anda berikan, tetapi saya mendapatkan "Run-time kesalahan '438': Objek tidak mendukung properti atau metode ini "" kesalahan pada baris baru ini. Berikut adalah beberapa baris pertama kode saya: Private Sub Worksheet_Change(ByVal Target As Range) Dim xRng As Range Dim xValue1 As String Dim xValue2 Sebagai String If (Target.Column4 Dan Target.Column5) Kemudian Keluar Sub Jika Target.Count > 1 Kemudian Keluar Sub Pada Kesalahan Lanjutkan Berikutnya Lembar kerja saya hanya memiliki 6 kolom: Pertanyaan | Jawaban | Kategori | Sub-Kategori | Tag | Tautan foto Saya hanya membutuhkan beberapa drop down nilai di Sub-Kategori dan Tag (kolom 4 & 5).Saya akan terus mencari info seperti yang Anda sarankan pada 12/23, dan akan melihat tautan Charity yang disediakan.
Komentar ini diminimalkan oleh moderator di situs
Jika Target.Column <> 34 Kemudian Keluar Sub

'Letakkan kode ini di awal setelah pernyataan redup Anda
Komentar ini diminimalkan oleh moderator di situs
Hai Saya saat ini menggunakan rumus ini dan semua kolom dengan validasi data memiliki opsi beberapa pilihan sekarang, namun saya ingin membatasi beberapa pilihan hanya untuk satu kolom. Dapatkah seseorang mengedit rumus ini untuk saya sehingga pilihan ganda hanya dapat diterapkan ke Kolom4? Terima kasih :) Private Sub Worksheet_Change(ByVal Target As Range) 'Diperbarui: 2016/4/12 Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If Target.Count > 1 Kemudian Exit Sub On Error Resume Next Set xRng = Cells. SpecialCells(xlCellTypeAllValidation) Jika xRng Bukan Apa-apa Kemudian Keluar dari Sub Application.EnableEvents = False If Not Application.Intersect(Target, xRng) Apakah Tidak Ada Maka xValue2 = Target.Value Application.Undo xValue1 = Target.Value Target.Value = xValue2 " If xValue1 " " Kemudian If xValue2 "" Kemudian If xValue1 = xValue2 Atau _ InStr(1, xValue1, ", " & xValue2) Atau _ InStr(1, xValue1, xValue2 & ",") Kemudian Target.Value = xValue1 Else Target.Value = xValue1 & ", " & xValue2 End If End If End If End If End If Application.EnableEvents = True End Sub Bantuan apa pun akan dihargai!
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi dengan baik, tetapi saya tidak dapat menghapus item setelah dipilih. Adakah saran jika saya mengklik sesuatu secara tidak sengaja dan perlu menghapusnya tanpa (semoga) membersihkan seluruh sel dan memulai dari awal? Juga, bagi mereka yang ingin menentukan kolom atau kolom, Konteks memiliki tambahan yang bagus untuk kode yang disediakan di sini yang memungkinkan Anda melakukannya. http://www.contextures.com/excel-data-validation-multiple.html#column
Komentar ini diminimalkan oleh moderator di situs
[quote]Ini berfungsi dengan baik, tetapi saya tidak dapat menghapus item setelah dipilih. Adakah saran jika saya mengklik sesuatu secara tidak sengaja dan perlu menghapusnya tanpa (semoga) membersihkan seluruh sel dan memulai dari awal? Juga, bagi mereka yang ingin menentukan kolom atau kolom, Konteks memiliki tambahan yang bagus untuk kode yang disediakan di sini yang memungkinkan Anda melakukannya. http://www.contextures.com/excel-data-validation-multiple.html#columnOleh Amal[/quote] Kode berfungsi dengan baik. Namun, sepertinya saya tidak bisa membatalkan pilihan item. Ketika saya ingin menghapus item dari pilihan, itu tidak dihapus. Apakah ada orang lain yang mengalami masalah ini juga?[/quote] Hi all, Adakah solusi yang ditemukan untuk masalah ini..silakan berbagi..
Komentar ini diminimalkan oleh moderator di situs
Halo, Kode berfungsi dengan baik. Namun, sepertinya saya tidak bisa membatalkan pilihan item. Ketika saya ingin menghapus item dari pilihan, itu tidak dihapus. Apakah ada orang lain yang mengalami masalah ini juga?
Komentar ini diminimalkan oleh moderator di situs
Apakah ada tanggapan untuk masalah ini. Ini adalah masalah yang sama yang saya alami. Sepertinya tidak ada cara untuk menghapus item yang telah dipilih.
Komentar ini diminimalkan oleh moderator di situs
hapus konten di sel, lalu pilih kembali
Komentar ini diminimalkan oleh moderator di situs
Hai semua, saya memiliki kode ini pada lembar excel dan ini membersihkan konten dari daftar drop-down ketika sel dipilih - saya tahu bagian mana dari kode yang melakukannya (bagian yang mengatakan 'fillRng.ClearContents') dan saya telah mencoba menggunakan beberapa hal di atas untuk memperbaikinya tidak berhasil ... Saya baru mengenal pemrograman VBA dll. Adakah yang bisa menawarkan bantuan tentang cara mengubahnya sehingga ketika sel dipilih tidak jelas dan entri tidak akan tolong digandakan?? Opsi Explicit Dim fillRng As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Qualifiers As MSForms.ListBox Dim LBobj As OLEObject Dim i As Long Set LBobj = Me.OLEObjects("ListBox1") Set Qualifiers = LBobj.Object If Target.Row > 3 Dan Target.Column = 3 Kemudian Atur fillRng = Target Dengan LBobj .Left = fillRng.Left .Top = fillRng.Top .Width = fillRng.Width .Height = 155 .Visible = True End With Else LBobj.Visible = False If Tidak fillRng Bukan Apa-apa Kemudian fillRng.ClearContents With Qualifiers If .ListCount 0 Kemudian For i = 0 To .ListCount - 1 If fillRng.Value = "" Then If .Selected(i) Then fillRng.Value = .List(i) Else If .Selected(i) Kemudian fillRng.Value = _ fillRng.Value & ", " & .List(i) End If Next End If For i = 0 To .ListCount - 1 .Selected(i) = False Next End With Set fillRng = Tidak Ada Yang Berakhir Jika Berakhir Jika Berakhir Sub
Komentar ini diminimalkan oleh moderator di situs
Hai semua, saya dapat melakukan daftar drop-down dengan sempurna, tetapi pertanyaan saya adalah: ketika saya memilih semua item yang ditambahkan, itu berjalan satu demi satu secara horizontal melalui sel, misalnya: kuning, hijau, hitam, merah. Tapi bagaimana saya bisa membuatnya terlihat secara vertikal?, lebih seperti misalnya: Oranye kosong kuning Merah Karena secara horizontal sel menjadi cukup panjang ketika memilih banyak item. Bisakah Anda memberi tahu saya jika ada cara untuk melakukan ini?. Terima kasih, Desiree
Komentar ini diminimalkan oleh moderator di situs
Saya berhasil menggunakan kode ini dan berhasil membuat beberapa kotak drop-down pilihan. Ini berfungsi ketika saya menutup dan membuka kembali pada hari yang berbeda. Namun, sekarang tidak semua sel yang awalnya saya pilih memungkinkan banyak pilihan. Hanya yang dilakukan sebelumnya, meskipun menggunakan kode untuk seluruh spreadsheet. Bisakah kamu menolong?
Komentar ini diminimalkan oleh moderator di situs
Saya mempunyai masalah yang sama.
Komentar ini diminimalkan oleh moderator di situs
sel kemungkinan besar terkunci, klik kanan pada semuanya, buka format sel, perlindungan, lalu hapus centang pada opsi sel yang dikunci
Komentar ini diminimalkan oleh moderator di situs
Saya membuat daftar tarik-turun di mana beberapa pilihan teks dapat dipilih seperti "nutrisi", "berat", dan "bekerja" untuk setiap alasan penelepon untuk menelepon. Saya memiliki halaman ringkasan di mana saya ingin melihat berapa banyak dari setiap alasan ditunjukkan pada bulan tertentu. Rumus apa yang akan saya gunakan untuk memberitahu Excel untuk menarik dan menghitung masing-masing secara terpisah dalam bulan tertentu? Saat ini, cara saya mengaturnya, itu hanya dihitung dengan benar jika saya memiliki satu alasan di sel untuk setiap penelepon.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Maaf tidak dapat membantu Anda menyelesaikan masalah ini. Tolong beri tahu saya jika Anda menemukan jawabannya.
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba membuat 4 kolom dengan daftar tarik-turun tempat saya dapat memilih beberapa nilai. Bagaimana cara mengubah kode VBA "daftar tarik-turun dengan banyak pilihan" sehingga ketika saya mengklik nilai yang telah dimasukkan, nilai itu akan dihapus dari sel? Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Randy yang terhormat,
Apa maksud Anda "ketika saya mengklik nilai yang telah dimasukkan, nilai itu akan dihapus dari sel?"
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki pertanyaan yang sama. Daftar drop-down saya tidak mengingat nilai yang dipilih. Jika seseorang mengklik sel yang telah diisi (bukan oleh mereka, tetapi orang lain) nilai yang dipilih dihapus dan sel kosong lagi.
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan kode di bawah ini untuk mengizinkan multi-pilih pada beberapa lembar kerja tetapi ketika saya pergi ke lembar kerja lain di buku kerja, multi-pilih hilang. Ketika saya menyimpan file dan kembali ke dalamnya, itu akan berfungsi untuk satu tab dengan kode tetapi sekali lagi ketika saya mengklik tab lain dengan kode itu tidak lagi berfungsi. Adakah yang tahu bagaimana cara memperbaikinya jadi jika saya mengklik lembar kerja dengan kode VBA itu akan selalu memungkinkan multi-pilih?
Komentar ini diminimalkan oleh moderator di situs
Hai, ich bin totaler VBA Laie. Ich versuche den Code so zu modifizieren, dass
a) die Mehrfachauswahl nicht di allen, sondern nur ein zwei Spalten aktiv ist
b) ich Items auch wieder rausnehmen kann, zB in dem ich in der Listenauswahl das Item noch einmal anklicke (Beispiel: ich habe über die Mehrfachauswahl ausgewählt: A, D, X, Y... nun fällt mir acht gehört Beim aktuellen Code müsste ich Eingaben entfernen und neu auswählen).
Terima kasih sebelumnya!
Komentar ini diminimalkan oleh moderator di situs
Saya tidak dapat melanjutkan pembuatan beberapa pilihan daftar drop-down. Saya telah mendengarkan tutorial dan membaca materi tetapi masih tidak dapat membuat. Mohon dapatkah seseorang membantu saya?
Komentar ini diminimalkan oleh moderator di situs
Saya tahu ini mungkin acak total, tetapi saya menggunakan variasi VBA tanpa masalah. Kecuali pada satu halaman, jika Anda memilih tiga opsi pertama, itu tidak akan membiarkan Anda memilih yang keempat. Ini akan memungkinkan Anda memilih opsi ke-5, ke-6, dan seterusnya, hanya saja bukan opsi ke-4. Pikiran?
Komentar ini diminimalkan oleh moderator di situs
Hai Robert,
Saya telah menguji kodenya tetapi belum menemukan masalah seperti yang Anda sebutkan. Bisakah Anda memberi tahu saya versi Excel mana yang Anda gunakan? Terima kasih atas komentarmu.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL