Excel Urut & amp; Paréntah filter boga rentang kawates Filter data . Tapi ngagunakeun VBA anjeun tiasa Nyaring data dina rentang anu lega sakumaha anu dipikahoyong. Artikel ieu bakal masihan anjeun 8 conto mangpaat pikeun ngagunakeun kode VBA pikeun Filter data dina Excel nganggo VBA kode kalayan ilustrasi anu jelas.

Unduh Buku Latihan Praktek

Anjeun tiasa ngaunduh témplat Excel gratis ti dieu sareng latihan nyalira.

8 Conto Nganggo Kode VBA pikeun Nyaring Data dina Excel

Hayu urang kenalkeun heula dataset urang anu ngagambarkeun sababaraha Gender, Status, sareng Murid. Umur .

1. Anggo Kode VBA pikeun Nyaring Data Dumasar Kriteria Téks dina Excel

Dina conto munggaran urang, urang bakal nganggo VBA pikeun Filter wungkul Lalaki siswa ti kolom Jender tina set data.

Lengkah-léngkah:

• Klik katuhu dina judul lembar .
• Teras pilih Témbongkeun Kode tina menu Kontéks .

Geura saatosna, jandela VBA bakal dibuka.

• Ketik di handap ieu kode di éta-

6648

• Engké, ngaleutikan VBA

Pemecahan Kode

• Di dieu, kuring nyieun Sub prosedur, Filter_Data_Text() .
• Terus ngagunakeun Rentang sipat pikeun nyatakeun masing-masing ngaran lambar sareng rentang
• Salajengna, abdi nganggo metode AutoFilter nganggo Kriteria pilihan abdi dimana Field:=2 hartosna kolom 2 . Jeung Kriteria1:=”Jalu” pikeun Saring data pikeun Jalu.

• Sanggeus éta, ka muka kotak dialog Macros , klik sakumaha kieu: Pamekar > Macros.

• Pilih nu Ngaran Makro sakumaha disebutkeun dina kode .
• Ahirna, ngan pencét Run .

Ayeuna tingali yén urang ngan ukur ngagaduhan Data siswa lalaki sanggeus Saringan .

Baca deui: Data Filter Excel Dumasar kana Niley Sél (6 Cara Éfisién)

2. Larapkeun Kode VBA pikeun Nyaring Data sareng Sababaraha Kriteria dina Hiji Kolom

Di dieu, urang bakal Saring pikeun sababaraha kriteria dina hiji kolom. Tina kolom nomer tilu tina set data, urang bakal Filter pikeun Pascasarjana jeung Pascasarjana siswa.

Lengkah:

• Tuturkeun dua lengkah kahiji tina conto kahiji pikeun muka jandela VBA .
• Engke, ketik di handap ieu kode di jerona-

1236

• Teras ngaleutikan VBA

Pemecahan Kode

• Di dieu, kuring nyieun Sub prosedur, Filter_One_Column() .
• Tuluy dipake sipat Rentang pikeun nyatakeun ngaran lambar jeung rentang
• urang masing-masing Salajengna, abdi nganggo theMétode AutoFilter ngagunakeun Kriteria pilihan kuring dimana Field:=3 hartosna kolom 3 . Di dieu, Kriteria1:=”Lulusan” jeung Kriteria2:=”Pascasarjana” pikeun Saring Status murid.
• Ahirna, kuring ngagunakeun Operator:=xlOr pikeun nerapkeun OR kondisi Filter pikeun sababaraha kriteria.

• Dina ieu momen, tuturkeun lengkah katilu ti conto kahiji pikeun muka dialog Macros kotak .
• Engké, pilih nu Ngaran Makro nu ditangtukeun jeung pencét Run .

Moal lami deui, anjeun bakal nampi baris Disaring dumasar kana sababaraha kriteria sapertos gambar di handap ieu.

Baca Deui: Saring Sababaraha Kriteria dina Excel (4 Cara anu Cocog)

3. Larapkeun Kode VBA pikeun Nyaring Data sareng Sababaraha Kriteria dina Kolom Béda dina Excel

Ayeuna urang bakal Nyaring pikeun sababaraha kritéria- Jalu sareng Sarjana murid.

Léngkah-léngkah:

• Tuturkeun dua léngkah munggaran tina conto kahiji nepi ka buka VBA
• Engke, tulis di handap ieu kode di jerona-

2206

• Sanggeus yén ngaleutikan jandela VBA .

Ngarecah Kode

• Di dieu, kuring nyieun Sub prosedur, Filter_Different_Columns() .
• Terus, kuring make pernyataan With pikeun ngagunakeun Sababaraha Kolom .
• Lajeng ngagunakeun Rentang milikna pikeun nyatakeun ngaran lambar sareng rentang
• Salajengna, kuring nganggo metode AutoFilter pikeun nganggo Kriteria tina pilihan abdi dimana Lapang:=2 hartina kolom 2 jeung Lapang:=3 hartina kolom 3 .
• Di dieu , dipilih Kriteria1:=”Jalu” pikeun Gender kolom jeung Kriteria1:=”Lulusan” pikeun kolom Status ka Filter data tina kolom béda .

• Teras tuturkeun lengkah katilu tina conto kahiji pikeun muka Kotak dialog Macros .
• Engké, pilih nu Ngaran Makro jeung pencét Run .

Ieu kaluaran tina sababaraha kriteria.

Baca deui: Excel VBA pikeun Nyaring dina Kolom Sarua ku Sababaraha Kriteria (6 Conto)

4. Anggo Kode VBA pikeun Nyaring 3 Item Pangluhurna dina Excel

Dina conto ieu, urang bakal Nyaring tilu siswa paling luhur dumasar kana umurna .

Léngkah-léngkah:

• Tuturkeun dua léngkah munggaran tina conto kahiji pikeun muka jandela VBA .
• Lajeng ketik di handap ieu kode di jerona-

1256

• Sanggeus ngaleutikan Jandéla VBA .

Ngarecah Kode

• Di dieu, kuring nyieun Sub prosedur, Filter_Top3_Items() .
• Terus dipake Operator:=xlTop10Items pikeun Filter pikeun tilu luhur data .

• Ayeuna tuturkeun lengkah katilu tina conto kahiji pikeun muka Dialog makro kotak .
• Teras pilih ngaran Makro sakumaha disebutkeun dina kode jeung pencét Run .

Salajengna anjeun bakal nampi kaluaran sapertos gambar di handap ieu-

Baca Selengkapnya: Kumaha Nyaring Dumasar Nilai Sél Ngagunakeun Excel VBA (4 Métode)

Bacaan Sarupa

• Kumaha Nyalin jeung Témpél Nalika Saringan Diterapkeun dina Excel
• Kumaha Nyaring Nilai Unik dina Excel (8 Cara Gampang)
• Saring Sababaraha Kriteria dina Excel nganggo VBA (Duanana AND jeung ATAWA Tipe)
• Kumaha Ngagunakeun Téks Filter dina Excel (5 Conto)
• Kumaha Nyaring dumasar Tanggal dina Excel (4 Gancang Métode)

5. Anggo Kode VBA pikeun Nyaring 50 Persen Pangluhurna dina Excel

Hayu urang nganggo VBA kode pikeun Nyaring lima puluh persén luhur murid dumasar umurna .

Léngkah-léngkah:

• Kahiji, Tuturkeun dua léngkah kahiji tina conto kahiji pikeun muka jandela VBA .
• Engke, ketik di handap ieu kode di jerona-

6268

• Ngaleutikan jandela VBA .

Ngarecah Kode

• Di dieu, kuring nyieun Sub prosedur, Filter_Top50_Percent() .
• Engke, dipaké Operator:=xlTop10Percent ka Nyaring luhureun lima puluh persén ti kolom-4 .

• Dina ayeuna, tuturkeun lengkah katilu tina conto kahiji pikeun muka Kotak dialog Macros.
• Terus pilih nu Ngaran Makro jeung pencét Run .

Jumlahna aya 7 siswa jadi pikeun 50 persén , éta némbongkeun kurang leuwih tilu siswa .

Baca deui: Kumaha Ngagunakeun Rumus Persentase Untung dina Excel (3 Conto)

6 . Larapkeun Kode VBA pikeun Nyaring Data Nganggo Wildcard

Urang tiasa nganggo Karakter Wildcard-* (asterisk) dina Kode VBA pikeun Nyaring data dina Excel. Tina kolom Status , urang ngan ukur nyaring nilai anu ngandung 'Pos' .

Lengkah:

• Tuturkeun dua léngkah munggaran tina conto kahiji pikeun muka jandela VBA .
• Teras tulis kode di handap ieu-

9173

• Engke, ngaleutikan jandela VBA .

Pemecahan Kode

• Di dieu, kuring nyieun Sub prosedur, Filter_with_Wildcard() .
• Terus dipake Rentang ("B4") pikeun nyetel rentang.
• Salajengna , digunakeun Filter Otomatis ka Filter dina Widang:=3 hartosna kolom 3.
• Kriteria1:=”*Pos *” pikeun Saring niléy-niléy anu ngandung 'Pos'.

• Ayeuna tuturkeun lengkah katilu ti kahiji conto pikeun muka dialog Macroskotak.
• Pilih nu Ngaran Makro jeung pencét Run .

Salajengna anjeun bakal nampi kaluaran anu dipikahoyong.

Baca Selengkapnya: Kumaha Nambahkeun Filter dina Excel (4 Métode )

7. Lebetkeun Excel VBA pikeun Nyalin Data Disaring dina Lembar Anyar dina Excel

Tingali aya sababaraha data Disaring dina dataset kuring. Ayeuna kuring bakal nyalin kana lembar anyar nganggo VBA . Konci-kode ieu moal jalan nu bener dina lambaran, anjeun kudu nerapkeunana dina modul.

Léngkah-léngkah:

• Pencét Alt+F11 pikeun muka VBA

• Terus klik Selapkeun > Modul pikeun muka modul .

• Ayeuna tulis di handap ieu kode –

9448

• Terus ngaleutikan VBA

Pecahan Kode

• Di dieu, kuring nyieun Sub prosedur, Copy_Filtered_Data_NewSheet() .
• Sanggeus éta nyatakeun dua-variabel- x Rng Salaku Range sareng xWS Salaku Lembar Kerja.
• Tuluy dipaké hiji pernyataan IF pikeun cék Disaring
• Engké, dipaké MsgBox pikeun mintonkeun kaluaran.
• Lajeng dipaké Lembar Kerja("Salin Data Disaring").AutoFilter .Range pikeun milih rentang Disaring sarta dipaké Tambah pikeun nambahkeun lembar anyar.
• Ahirna, Salin Rentang("G4") bakal nyalin data Disaring kana lambar anyar .

• Engke, tuturkeunléngkah katilu tina conto kahiji pikeun muka kotak dialog Macros .
• Lajeng pilih nu Ngaran Makro jeung pencét Run .

Ayeuna tingali yén Excel geus muka lambaran anyar jeung nyalin baris Disaring.

Baca Selengkapnya: Kompas pikeun Filter Excel (3 Pamakéan Gancang sareng Conto)

8. Larapkeun Kodeu VBA pikeun Nyaring Data Nganggo Daptar Turun Turun

Dina conto terakhir urang, urang bakal ngadamel daptar turun-handap pikeun genders heula teras urang bakal ngagunakeun éta pikeun Nyaring data. Keur kitu, kuring geus nempatkeun kritéria génder di lokasi séjén sarta kami bakal nyieun daptar turun-handap dina Sél D14 .

Lengkah:

• Pilih Sél D14 .
• Lajeng klik sapertos kieu: Data > Parabot Data & GT; Validasi Data > Validasi Data.

Moal lami deui, hiji kotak dialog bakal muka.

Pilih Daptar ti Allow drop-down .

Teras klik ikon Buka tina Kotak Sumber .

Ayeuna pilih rentang kriteria jeung pencét tombol Lebetkeun .

• Dina ayeuna, ngan pencét OK .

Ayeuna daptar turun-handap kami geus siap.

• Ayeuna Tuturkeun dua léngkah munggaran tina conto kahiji pikeun muka jandela VBA .
• Teras tulis di handap ieu kode di jerona-

4882

• Lajeng minimalkeun VBAjandela .

Pemecahan Kode

• Di dieu, kuring nyieun a Sub Pribadi prosedur, Worksheet_Change(ByVal Target Salaku Range).
• Teras, kuring milih Lembar Kerja tina Umum jeung Robah tina Deklarasi .
• Teras setel Alamat pikeun terang lokasina.
• Ahirna dina IF pernyataan nganggo metode Filter Otomatis sareng Lapang jeung Kriteria

• Ayeuna ngan pilih kriteria tina daptar turun-handap jeung Saringan bakal diaktipkeun .

Ieu kaluaran Disaring sanggeus milih Panlalaki tina turun-handap .

Baca Selengkapnya: Kumaha Nyaring dumasar Daptar dina Lembar Lain dina Excel (2 Métode)

Bagéan Praktek

Anjeun bakal nampi lambaran prakték dina file Excel anu dipasihkeun di luhur pikeun latihan cara anu dipedar.

Kacindekan

Mugi prosedur anu didadarkeun di luhur bakal cekap pikeun ngagunakeun VBA kode pikeun Filter data dina Excel. Punten naroskeun patarosan naon waé dina bagian koméntar sareng punten pasihan kuring tanggapan.