Excel'de otomatik filtre ölçütlerini nasıl görüntüleyebilir / gösterebilirim?

Otomatik Filtre, Excel kullanıcıları için kullanışlı bir özelliktir. Bazen verileri birden fazla ölçütle filtrelemek için Otomatik Filtre uygular ve dosyayı başkalarına göndeririz. Bu durumda, diğer kullanıcılar filtrenizin ölçütlerini öğrenmek isterse, bunu nasıl yapabilirler?

Kullanıcı Tanımlı İşlev ile çalışma sayfasında otomatik filtre ölçütlerini görüntüleme / gösterme

VBA kodu ile çalışma sayfasında otomatik filtre ölçütlerini görüntüleme / gösterme

Kutools for Excel ile çalışma sayfasında otomatik filtre ölçütlerini görüntüleme / gösterme

Kullanıcı Tanımlı İşlev ile çalışma sayfasında otomatik filtre ölçütlerini görüntüleme / gösterme

Aşağıdaki gibi bazı ölçütlerle filtrelenmiş verileriniz olduğunu varsayalım, ekran görüntüsüne bakın:

Şimdi, filtre ölçütlerini hücrelere gösterecek bir Kullanıcı Tanımlı İşlev oluşturabilirim, lütfen aşağıdaki adımları izleyin:

1. Microsoft Visual Basic for Applications Penceresini açmak için ALT + F11 tuşlarını basılı tutun.

2. Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın:

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. Ardından bu kodu kaydedip kapatın, boş bir satırın boş bir hücresinde, örneğin A1 hücresinde şu formülü girin: =AutoFilter_Criteria(A4) (A4, filtrelenmiş verilerin başlık hücresidir), ekran görüntüsüne bakın:

4. Enter tuşuna basın, ardından A1 hücresini seçin, formülü içermesini istediğiniz sağdaki hücrelerin üzerine doldurma tutamacını sürükleyin ve tüm ölçütler hücrelere aktarılacaktır, ekran görüntüsüne bakın:

Not: Bir sütunda iki veya daha fazla ölçüt varsa, bu Kullanıcı Tanımlı İşlev doğru sonucu vermeyecektir.

VBA kodu ile çalışma sayfasında otomatik filtre ölçütlerini görüntüleme / gösterme

Burada ayrıca ilginç bir VBA kodundan bahsedeyim, bu kod size çalışma kitabının bir hücresinde filtre ölçütlerini göstermenize yardımcı olabilir.

1. Microsoft Visual Basic for Applications Penceresini açmak için ALT + F11 tuşlarını basılı tutun.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki makroyu Module Window yapıştırın:

VBA kodu: Çalışma sayfasında otomatik filtre ölçütlerini görüntüleme

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. Bu kodu çalıştırmak için F5 tuşuna basın, ölçütleri yerleştireceğiniz boş bir hücre seçmenizi sağlayan bir uyarı kutusu açılacaktır, ekran görüntüsüne bakın:

4. Tamam'a tıklayın, tüm ölçütler seçilen hücrede aşağıdaki gibi gösterilecektir:

Not:

Bu VBA koduyla, bir sütunda iki veya daha fazla ölçütünüz varsa, detaylı filtre ölçütleri gösterilmeyecek ancak aşağıdaki gibi görüntülenecektir:

Kutools for Excel ile çalışma sayfasında otomatik filtre ölçütlerini görüntüleme / gösterme

Kutools for Excel yüklüyse, verileri filtrelemek için Süper Filtre işlevini kullanabilir ve aynı zamanda filtre ölçütlerini her zaman görüntüleyebilirsiniz.

1. Tıklayın Kutools Plus > Süper Filtre fonksiyonunu görüntülemek için. Süper Filtre Ekran görüntüsüne bakın:

2. Süper Filtre bölmesinde, tıklayın filtrelemek istediğiniz veri aralığını seçin ve ardından filtre aralığını sabitlemek için Belirtilen onay kutusunu işaretleyin. Ekran görüntüsüne bakın:

3. Süper Filtre bölmesinde, bir filtre grubundaki bir satıra tıklayın, ardından açılır listelerden ihtiyacınız olan filtre ölçütlerini belirtin ve Tamam'a tıklayarak ölçüt ayarını tamamlayın. Ekran görüntüsüne bakın:

4. Tıklayın Filtre, ve seçilen veriler ölçütlerle filtrelenmiştir ve aynı zamanda, filtre ölçütlerinin Süper Filtre bölmesinde görüntülendiğini görebilirsiniz. Ekran görüntüsüne bakın:

Not: Süper Filtre yardımcı programıyla filtre ölçütlerini bir senaryo olarak kaydedebilir ve bir dahaki sefere kullanabilirsiniz.

1. Tıklayın Geçerli filtre ayarlarını kaydet düğmesine basın, açılan diyalogda bir filtre adı girin.

2. Bu filtre ayarlarını bir dahaki sefere kullanmak istediğinizde menü düğmesine tıklayın ve ardından Kaydedilmiş filtre ayarları senaryosunu aç.

alt menüsündeki senaryoyu seçin.