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 
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:
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:
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:
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:
4. Dan kemudian klik OK, semua kriteria telah ditampilkan di sel yang dipilih sebagai berikut:
Catatan:
Dengan kode VBA ini, jika kriteria Anda lebih dari dua dalam satu kolom, kriteria filter mendetail tidak akan ditampilkan, tetapi ditampilkan sebagai berikut:
Tampilkan / Tampilkan kriteria filter otomatis di lembar kerja dengan Kutools for Excel
Jika Anda memiliki Kutools for Excel diinstal, Anda dapat menerapkannya Filter Super berfungsi untuk memfilter data, dan pada saat yang sama Anda dapat melihat kriteria filter kapan saja.
| Kutools for 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:
2. Dalam Filter Super pane, klik 
untuk memilih rentang data yang ingin Anda filter, lalu centang kotak Ditentukan untuk memperbaiki rentang filter. Lihat tangkapan layar:
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:
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:
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.
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.
Menampilkan Filter Ctriteria While Filtering
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
