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

 Bagaimana cara menerapkan filter yang sama ke beberapa lembar di Excel?

Mungkin mudah bagi kami untuk menerapkan fungsi Filter untuk memfilter data di lembar kerja, tetapi, terkadang, Anda mungkin perlu memfilter di beberapa lembar kerja yang memiliki pemformatan data umum dengan kriteria filter yang sama. Untuk menyaringnya satu per satu akan membuang banyak waktu, berikut saya perkenalkan cara mudah mengatasinya sekaligus.

Terapkan filter yang sama ke beberapa lembar kerja dengan kode VBA


panah gelembung kanan biru Terapkan filter yang sama ke beberapa lembar kerja dengan kode VBA

Misalnya, saya memiliki empat lembar kerja karena tangkapan layar berikut perlu disaring dengan kriteria yang sama dengan Product = KTE sekaligus.

doc memfilter beberapa lembar 1

Tidak ada cara langsung untuk memfilter data dalam beberapa lembar di Excel, tetapi, kode VBA berikut dapat membantu Anda menyelesaikan pekerjaan ini, lakukan hal berikut:

1. Tahan ALT + F11 kunci, lalu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Terapkan filter yang sama ke beberapa lembar kerja:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, semua produk KTE telah difilter di semua lembar kerja sekaligus, lihat tangkapan layar:

doc memfilter beberapa lembar 2

Note: Dalam kode di atas, dalam ini xWs.Range ("A1"). Filter Otomatis 1, "= KTE" naskah, A1 serta = KTE menunjukkan kolom dan kriteria yang ingin Anda filter berdasarkan, nomor 1 adalah nomor kolom yang Anda filter berdasarkan, Anda dapat mengubahnya sesuai kebutuhan Anda. Misalnya, jika Anda ingin memfilter urutan yang lebih besar dari 50, Anda hanya perlu mengubah skrip ini seperti ini: xWs.Range ("B1"). Filter Otomatis 2, "> 50".


Filter data dengan beberapa kriteria atau kondisi khusus lainnya, seperti panjang teks, peka huruf besar / kecil, dll.

Kutools untuk Excel'S Filter Super fitur adalah utilitas yang andal, Anda dapat menerapkan fitur ini untuk menyelesaikan operasi berikut:

  • Filter data dengan beberapa kriteria; Filter data berdasarkan panjang teks;
  • Filter data dengan huruf besar / kecil; Filter tanggal berdasarkan tahun / bulan / Hari / minggu / kuartal

doc-super-filter1

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


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 (41)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
bagaimana Anda menerapkan formula filter ini: ke berbagai lembar? saya memiliki buku kerja yang memiliki data pada 5 lembar pertama, dan buku kerja memiliki 200 lembar saya hanya perlu filter untuk diterapkan pada lembar 6-200. Sub apply_autofilter_across_worksheets() 'Updateby Extendoffice 20160623 Redupkan xWs Sebagai Lembar Kerja Pada Kesalahan Resume Next Untuk Setiap xWs Dalam Lembar Kerja xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Komentar ini diminimalkan oleh moderator di situs
Sub apply_autofilter_across_worksheets() Redupkan J As integer On Error Resume Next For J = 6 to Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Komentar ini diminimalkan oleh moderator di situs
Dear, saya ingin memfilter lebih dari satu nilai, saya menggunakan xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" ini dan berhasil tetapi ketika saya tingkatkan nilai yang diinginkan menjadi> 2 kesalahan terjadi. perintah ini saya menggunakan xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" terima kasih,
Komentar ini diminimalkan oleh moderator di situs
saat memfilter satu kata dalam beberapa lembar, itu tidak menampilkan data yang difilter.... semua data disembunyikan. tolong selesaikan ini.
Komentar ini diminimalkan oleh moderator di situs
Hai,


Data saya ada di Kolom E dan ketika saya menerapkan filter ini dengan Range("E1") masih memfilter kolom A


Bagaimana saya bisa memecahkan masalah?
Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Anda hanya perlu menulis nomor Kolom di AutoFilter, dalam hal ini: xWs.Range("E1").AutoFilter 5,
Komentar ini diminimalkan oleh moderator di situs
TERIMA KASIH!!!!
Komentar ini diminimalkan oleh moderator di situs
HAPUS KOLOM A LOL
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mengeksekusi jika filter berada di kolom yang berbeda di setiap lembar?
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda bisa menggunakan hasil filter otomatis untuk mengatur filter untuk setiap lembar lain alih-alih menggunakan =(nama spesifik)
Komentar ini diminimalkan oleh moderator di situs
Dapatkah saya menggunakan ini untuk memfilter tabel pivot dalam beberapa lembar jika semua tabel pivot berasal dari sumber data yang sama dan disiapkan menggunakan kriteria yang sama?
Komentar ini diminimalkan oleh moderator di situs
Apakah ada opsi untuk memfilter berdasarkan warna?
Komentar ini diminimalkan oleh moderator di situs
Hai, Mahesh,
Jika Anda ingin memfilter data berdasarkan warna, mungkin dua artikel berikut dapat membantu Anda! Silakan lihat mereka, semoga dapat membantu Anda!

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
Komentar ini diminimalkan oleh moderator di situs
Hai,


Bagaimana ini bekerja jika kolom Produk disajikan di tempat yang berbeda di lembar lain?


Di sheet1, itu A1 di sheet2 itu di B1 dan di sheet3 itu A1 lagi?

Terima kasih,
Monika
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk mengubah bagian "= KTE" untuk setiap lembar dengan filter berisi yang didasarkan pada nama lembar?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas kodenya!! apakah ada cara untuk mengubah "= KTE" untuk menggunakan nilai dari Daftar atau daftar Drop down?
Komentar ini diminimalkan oleh moderator di situs
HI, apakah filter super di seluruh buku kerja secara otomatis diterapkan kembali setiap kali ada pembaruan file?
Komentar ini diminimalkan oleh moderator di situs
Bisakah kita menggunakan nama sel seperti Produk daripada A1 di : xWs.Range("A1").AutoFilter 1, "=KTE"
Saya memiliki kolom yang berbeda dan beberapa nama muncul di kolom yang berbeda.
Komentar ini diminimalkan oleh moderator di situs
Saya telah menggunakan filter di setiap lembar. Dan saya ingin mengubah s.no dari 1 2 3 secara serial di setiap lembar setelah filter.


Tolong beri tahu saya jika Anda memiliki kode vba untuk itu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menggunakan Fungsi "Filter Antara", untuk beberapa lembar yang sama?

(Contoh: Rentang waktu)
Komentar ini diminimalkan oleh moderator di situs
bagaimana cara menghilangkan baris yang difilter?
Komentar ini diminimalkan oleh moderator di situs
Sayang,

Bagaimana cara memfilter dengan beberapa kondisi?
Misalnya saya ingin memfilter agar di atas 50 tetapi hanya produk KTE.

Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Halo, Pedjaa,
Untuk memfilter beberapa lembar berdasarkan dua kondisi, harap terapkan kode berikut:
Sub apply_autofilter_across_worksheets()

'Perbarui oleh Extendoffice

Redupkan xWs Sebagai Lembar Kerja

On Error Resume Next

Untuk Setiap xWs Dalam Lembar Kerja

Dengan xWs.Range("A1")

Bidang FilterOtomatis:=1, Kriteria1:="KTE" 'Kolom A sama dengan "KTE"

Bidang FilterOtomatis:=2, Kriteria1:=">500" 'Kolom B lebih besar dari 500

Berakhir dengan

Next

End Sub

Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
bahkan jika saya mengganti A1 dengan G1, filternya masuk ke kolom A1
Komentar ini diminimalkan oleh moderator di situs
Halo, Tan,
Anda tinggal mengganti A1 dengan G1, pada saat yang sama, Anda harus mengubah kolom nomor 1 menjadi kolom nomor 7, seperti kode di bawah ini:
xWs.Range("G1").Filter Otomatis 7, "=KTE"
Silakan coba, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Halo,
apakah mungkin untuk memfilter berdasarkan Nama Kolom, daripada nomor (karena data saya ada di kolom yang berbeda di lembar kerja yang berbeda)?
Terima kasihManuela
Komentar ini diminimalkan oleh moderator di situs
Saya ingin memfilter dengan kondisi yang sama "KTE", tetapi jika tidak muncul di lembar untuk tidak menunjukkan data apa pun.
Komentar ini diminimalkan oleh moderator di situs
Hi,
Saya ingin kriteria filter berdasarkan nilai sel alih-alih "KTE" apakah mungkin ???
Komentar ini diminimalkan oleh moderator di situs
Halo, Hemraj,Untuk memfilter data berdasarkan nilai sel tertentu alih-alih teks tetap, harap terapkan kode di bawah ini: Sub apply_autofilter_across_worksheets()
'Perbarui oleh Extendoffice
Redupkan xWs Sebagai Lembar Kerja
On Error Resume Next
Untuk Setiap xWs Dalam Lembar Kerja
xWs.Range("A1").AutoFilter 1, Sheet1.Range("E2")
Next
End SubNote: Silakan ubah Sheet1 serta E2 dengan ini Sheet1.Range("E2") skrip ke lembar dan nilai sel Anda sendiri. Silakan coba, semoga dapat membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Hai Skyyang,
Terima kasih atas dukungan Anda yang berharga dan luar biasa , saya mencoba menggunakan formula yang sama tetapi tidak berhasil karena apa yang mungkin menjadi alasannya . Berikut ini adalah kode yang saya gunakan untuk lembar excel saya.
Sub apply_autofilter_across_worksheets()
'Perbarui oleh Extendoffice
Redupkan xWs Sebagai Lembar Kerja
On Error Resume Next
Untuk Setiap xWs Dalam Lembar Kerja
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Next
End Sub
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