Loncat ke daftar isi utama

Bagaimana cara menampilkan / menampilkan kriteria filter otomatis di Excel?

Filter Otomatis adalah fitur yang berguna untuk pengguna Excel, terkadang, kami menerapkan Filter Otomatis untuk memfilter data dengan beberapa kriteria dan mengirimkan file ke orang lain. Dalam situasi ini, jika pengguna lain ingin mengetahui kriteria Anda yang difilter, bagaimana mereka bisa melakukannya?

Tampilkan / Tampilkan kriteria filter otomatis di lembar kerja dengan Fungsi Buatan Pengguna

Tampilkan / Tampilkan kriteria filter otomatis di lembar kerja dengan kode VBA

Tampilkan / Tampilkan kriteria filter otomatis di lembar kerja dengan Kutools for Excel ide bagus3


Tampilkan / Tampilkan kriteria filter otomatis di lembar kerja dengan Fungsi Buatan Pengguna

Misalkan Anda memiliki data berikut yang telah difilter oleh beberapa kriteria, lihat tangkapan layar:

doc-show-filter-kriteria1

Dan sekarang saya dapat membuat User Defined Function untuk menampilkan kriteria filter ke dalam sel, lakukan dengan langkah-langkah berikut:

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic untuk Aplikasi.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela Modul:

Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
    With .Filters(Rng.Column - .Range.Column + 1)
        If Not .On Then Exit Function
            str1 = .Criteria1
        If .Operator = xlAnd Then
            str2 = " AND " & .Criteria2
        ElseIf .Operator = xlOr Then
            str2 = " OR " & .Criteria2
        End If
    End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function

3. Kemudian simpan dan tutup kode ini, di sel kosong dari baris kosong, misalnya sel A1, masukkan rumus ini = AutoFilter_Criteria (A4) (A4 adalah sel header dari data yang difilter), lihat tangkapan layar:

doc-show-filter-kriteria1

4. Lalu tekan Enter kunci, lalu pilih sel A1, seret gagang isian ke sel kanan yang Anda perlukan untuk memuat rumus ini, dan semua kriteria telah ditampilkan ke dalam sel, lihat tangkapan layar:

doc-show-filter-kriteria1

Note: Jika ada lebih dari dua kriteria dalam satu kolom, maka User Defined Function tidak akan memberikan hasil yang benar.


Tampilkan / Tampilkan kriteria filter otomatis di lembar kerja dengan kode VBA

Di sini, saya juga dapat berbicara tentang kode VBA yang menarik, ini dapat membantu Anda menampilkan kriteria filter dalam sel buku kerja.

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic untuk Aplikasi.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela Modul:

Kode VBA: Menampilkan kriteria filter otomatis di lembar kerja

Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
    Application.StatusBar = False
    Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
   TargetField = xFilter.Range.Cells(1, i).Value
   Set TargetFilter = xFilter.Filters(i)
   If TargetFilter.On Then
        On Error GoTo OutNext
        xOut = xOut & TargetField & TargetFilter.Criteria1
        Select Case TargetFilter.Operator
            Case xlAnd
            xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
            Case xlOr
            xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
            Case xlBottom10Items
            xOut = xOut & " (bottom 10 items)"
            Case xlBottom10Percent
            xOut = xOut & " (bottom 10%)"
            Case xlTop10Items
            xOut = xOut & " (top 10 items)"
            Case xlTop10Percent
            xOut = xOut & " (top 10%)"
        End Select
    End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, kotak prompt akan muncul untuk membiarkan Anda memilih sel kosong untuk meletakkan kriteria, lihat tangkapan layar:

doc-show-filter-kriteria1

4. Dan kemudian klik OK, semua kriteria telah ditampilkan di sel yang dipilih sebagai berikut:

doc-show-filter-kriteria1

Catatan:

Dengan kode VBA ini, jika kriteria Anda lebih dari dua dalam satu kolom, kriteria filter mendetail tidak akan ditampilkan, tetapi ditampilkan sebagai berikut:

doc-show-filter-kriteria1


Tampilkan / Tampilkan kriteria filter otomatis di lembar kerja dengan Kutools for Excel

Jika Anda memiliki Kutools untuk Excel diinstal, Anda dapat menerapkannya Filter Super berfungsi untuk memfilter data, dan pada saat yang sama Anda dapat melihat kriteria filter kapan saja.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. klik Kutools Ditambah > Filter Super untuk menampilkan Filter Super fungsi. Lihat tangkapan layar:
doc filter super 1

2. Dalam Filter Super pane, klik tombol pilih doc untuk memilih rentang data yang ingin Anda filter, lalu centang kotak Ditentukan untuk memperbaiki rentang filter. Lihat tangkapan layar:
doc filter super 2

3. Dalam Filter Super panel, klik satu baris di grup filter, lalu tentukan kriteria filter di daftar drop-down yang Anda butuhkan, lalu klik Oke untuk menyelesaikan pengaturan kriteria. Lihat tangkapan layar:
doc filter super 2

4. klik Filter, dan data yang dipilih telah difilter oleh kriteria, dan sementara itu, Anda dapat melihat kriteria filter yang ditampilkan di Filter Super panel. Lihat tangkapan layar:
doc filter super 3

Catatan: Anda dapat menyimpan kriteria filter sebagai skenario untuk penggunaan berikutnya dengan utilitas Super Filter.

1. klik Simpan pengaturan filter saat ini tombol, di dialog popping, ketikkan nama filter.
doc kutools filter super 5

2. Jika Anda ingin menggunakan pengaturan filer ini di lain waktu, klik tombol menu, lalu pilih skenario di sub menu Buka skenario pengaturan filter yang disimpan.
doc kutools filter super 6


Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Sir, Please see here below mentioned query for your easy understanding. I want to see the result in column E7 when i filter data in column A3 (Column E7) Vendor Name: (column A3) Vendor Name Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est. Amtar Al-Watan Const. & Dev. Est. Arab Al-Tamuz for Cont. Est. Arkal Est. for Cont. Danat Al-Rayan Gray Falcon
This comment was minimized by the moderator on the site
Hi, The code for show auto filter criteria in the worksheet works great. As suggested, if there are more than two criteria, I output text saying 'multiple criteria'. However, I'd really like to be able to generate a list of what the multiple criteria are. Is this at all possible? Cheers, Alex
This comment was minimized by the moderator on the site
hi there, thank you for the code, it works like a charm. One thing I have trouble with thouhg - when I select filter criteria the designated cell displays whichever two I had selected. If then I select two different criteria the designated cell content doesn't refresh. It seems stuck at my first filter selection. Is there anythig I can do? Thank you, Wendy
This comment was minimized by the moderator on the site
This code is great and has helped me a lot. I ran into a problem when I tried to select new filter criteria. The cell that displays the filter criteria selected doesnt refresh when I am selecting new criteria. Please help, Thank you, Wendy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations