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

Bagaimana cara membuat kotak daftar berjenjang dinamis di Excel?

Anda mungkin tahu cara membuat daftar drop-down validasi berjenjang di Excel. Namun, bagaimana cara membuat kotak daftar berjenjang dinamis di Excel? Artikel ini memperkenalkan metode VBA untuk menurunkannya.

Buat kotak daftar berjenjang dinamis dengan kode VBA

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
  • Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
  • Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
  • Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
  • Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
  • Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
  • Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
  • Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2021 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.

Buat kotak daftar berjenjang dinamis dengan kode VBA

Seperti gambar di bawah ini yang ditunjukkan, Anda perlu membuat kotak daftar induk yang berisi nilai unik dari kolom Minuman, dan menampilkan semua nilai yang sesuai di kotak daftar kedua berdasarkan pilihan di kotak daftar induk. Kode VBA berikut membantu Anda mencapainya. Silakan lakukan sebagai berikut.

1. Pertama, Anda perlu mengekstrak semua nilai unik dari kolom Minuman. Pilih sel kosong, masukkan rumus array =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") ke dalam Formula Bar, lalu tekan Ctrl + perubahan + Enter kunci. Lalu seret Isi Handle untuk mendapatkan semua nilai unik. Lihat tangkapan layar:

Note: Dalam rumusnya, $A$2:$A$11 adalah kisaran tempat Anda akan mengekstrak nilai unik. J1 adalah sel di atas tempat rumus Anda berada.

jenis: Jika formula terlalu sulit untuk diingat dan ditangani, maka Pilih Sel Duplikat & Unik kegunaan Kutools untuk Excel akan menjadi pilihan yang baik bagi Anda untuk mengekstrak semua nilai unik dari kolom dengan cepat.

Pilih kolom yang berisi nilai unik yang akan Anda ekstrak. Kemudian aktifkan utilitas dengan mengklik Kutools > Pilih > Pilih Sel Duplikat & Unik. di Pilih Sel Duplikat & Unik kotak dialog, pilih Semua unik (Termasuk duplikat pertama) pilihan dan klik OK tombol. Kemudian semua nilai unik dipilih di kolom. Harap salin dan tempel ke tempat baru. Lihat tangkapan layar:

Kutools untuk Excel: dengan lebih dari 200 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari. Unduh dan uji coba gratis Sekarang!

2. Sisipkan dua kotak daftar secara terpisah dengan mengklik Pengembang > Menyisipkan > Kotak Daftar (Kontrol ActiveX). Lihat tangkapan layar:

3. Klik kanan kotak daftar induk dan pilih Properties dari menu konteks. Dalam Properties kotak dialog, ubah (Nama) lapangan ke Minum atau nama lain yang Anda butuhkan, masukkan rentang sel berisi nilai unik yang diekstrak ke dalam DaftarIsiRentang lapangan dan tutup dialog.

4. Ulangi langkah 3 untuk mengubah kotak daftar kedua (Nama) bidang ke Item di Properties kotak dialog.

5. Klik kanan tab lembar dan pilih Lihat kode dari menu klik kanan. Kemudian salin kode VBA di bawah ini ke jendela Kode. Lihat tangkapan layar:

Kode VBA: Buat kotak daftar berjenjang dinamis di Excel

Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
    Dim I, xRows As Long
    Dim xRg As Range
    Dim xRegStr As String
    Application.ScreenUpdating = False
    xRegStr = Me.Drink.Text
    Set xRg = Range("A2:A11")
    xRows = xRg.Rows.Count
    If xRegStr <> xPreStr Then
    Me.Item.Clear
   'Me.OtherListBoxName.Clear
    Set xRg = xRg(1)
    For I = 1 To xRows
        If xRg.Offset(I - 1).Value = xRegStr Then
            Me.Item.AddItem xRg.Offset(I - 1, 1).Value
            'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
        End If
    Next
    xPreStr = xRegStr
    End If
    Application.ScreenUpdating = True
End Sub

Catatan: Dalam kode Minuman dan Item adalah nama dari dua kotak daftar, ubah mereka menjadi nama Anda sendiri.

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

7. Matikan Mode Desain dengan mengklik Pengembang > Mode Desain.

Mulai sekarang, saat memilih jenis minuman apa pun seperti Kopi di kotak daftar induk, semua item kopi akan ditampilkan di kotak kedua. Pilih Teh atau Anggur hanya akan menampilkan item teh atau anggur di kotak daftar kedua. Lihat tangkapan layar:


Artikel terkait:


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 (1)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hi

Apa yang dimaksud dengan "Saya" dalam kode dan bagaimana kode akan berubah jika saya memiliki kotak daftar MultiPilih?

Salam
Belum ada komentar yang diposting di sini
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