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

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 Plus > 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 SARING, 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 super filter 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 super filter 6



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-2019 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (4)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Kode ini sangat bagus dan telah banyak membantu saya. Saya mengalami masalah saat mencoba memilih kriteria filter baru. Sel yang menampilkan kriteria filter yang dipilih tidak disegarkan saat saya memilih kriteria baru. Tolong bantu, Terima kasih, Wendy
Komentar ini diminimalkan oleh moderator di situs
hai, terima kasih atas kodenya, ini berfungsi seperti pesona. Satu hal yang saya punya masalah dengan thouhg - ketika saya memilih kriteria filter sel yang ditunjuk menampilkan mana dua yang saya pilih. Jika kemudian saya memilih dua kriteria berbeda, konten sel yang ditunjuk tidak disegarkan. Tampaknya macet pada pemilihan filter pertama saya. Apakah ada yang bisa saya lakukan? Terima kasih, Wendy
Komentar ini diminimalkan oleh moderator di situs
Hai, Kode untuk menampilkan kriteria filter otomatis di lembar kerja berfungsi dengan baik. Seperti yang disarankan, jika ada lebih dari dua kriteria, saya menampilkan teks yang mengatakan 'beberapa kriteria'. Namun, saya benar-benar ingin dapat membuat daftar beberapa kriteria. Apakah ini mungkin? Selamat, Alex
Komentar ini diminimalkan oleh moderator di situs
Dear Sir, Silakan lihat di sini permintaan yang disebutkan di bawah ini untuk pemahaman Anda yang mudah. Saya ingin melihat hasilnya di kolom E7 ketika saya memfilter data di kolom A3 (Kolom E7) Nama Vendor: (kolom A3) Nama Vendor Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est. Amtar Al-Watan Const. & Dev. Est. Arab Al-Tamuz untuk Lanjutan. Est. Arkal Est. untuk Lanjutan Danat Al-Rayan Grey Falcon
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan