Excel'de otomatik filtre kriterleri nasıl görüntülenir / gösterilir?
Otomatik Filtre, Excel kullanıcıları için yararlı bir özelliktir, bazen verileri birden çok kritere göre filtrelemek ve dosyayı başkalarına göndermek için Otomatik Filtre uyguluyoruz. Bu durumda, diğer kullanıcılar filtrelenmiş kriterinizi bilmek isterse, bunu nasıl yapabilirler?
Kullanıcı Tanımlı İşleviyle çalışma sayfasında otomatik filtre kriterlerini Göster / Göster
VBA kodu ile çalışma sayfasında otomatik filtre kriterlerini göster / göster
Kutools for Excel ile çalışma sayfasında otomatik filtre kriterlerini görüntüleyin / gösterin
Kullanıcı Tanımlı İşleviyle çalışma sayfasında otomatik filtre kriterlerini Göster / Göster
Bazı kriterlere göre filtrelenmiş aşağıdaki verilere sahip olduğunuzu varsayarsak, ekran görüntüsüne bakın:
Ve şimdi filtre kriterini hücrelere görüntülemek için bir Kullanıcı Tanımlı İşlev oluşturabilirim, lütfen aşağıdaki adımları uygulayın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic Penceresi.
2. tıklayın Ekle > modülve aşağıdaki makroyu Modül Penceresi:
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. Sonra bu kodu kaydedin ve kapatın, boş bir satırın boş bir hücresine, örneğin A1 hücresine, bu formülü girin = Otomatik Filtre_Kriterleri (A4) (A4 filtrelenmiş verilerin başlık hücresidir), ekran görüntüsüne bakın:
4. Daha sonra tuşuna basın. Keşfet tuşuna basın ve ardından A1 hücresini seçin, doldurma tutamacını bu formülü içermeniz gereken sağ hücrelere sürükleyin ve tüm kriter hücrelere görüntülendi, ekran görüntüsüne bakın:
not: Bir sütunda ikiden fazla kriter varsa, bu Kullanıcı Tanımlı İşlev doğru sonucu vermeyecektir.
VBA kodu ile çalışma sayfasında otomatik filtre kriterlerini göster / göster
Burada ilginç bir VBA kodundan da bahsedebilirim, filtre kriterlerini çalışma kitabının bir hücresinde görüntülemenize yardımcı olabilir.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic Penceresi.
2. tıklayın Ekle > modülve aşağıdaki makroyu Modül Penceresi:
VBA kodu: Çalışma sayfasında otomatik filtre kriterlerini görüntüleyin
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın, kriteri koymak için boş bir hücre seçmenize izin veren bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OKseçili hücrede aşağıdaki gibi tüm ölçüt gösterildi:
Not:
Bu VBA kodu ile kriteriniz bir sütunda ikiden fazlaysa, detaylı filtre kriteri gösterilmeyecek ancak aşağıdaki gibi görüntülenecektir:
Kutools for Excel ile çalışma sayfasında otomatik filtre kriterlerini görüntüleyin / gösterin
Eğer varsa Kutools for Excel yüklü, uygulayabilirsiniz Süper Filtre verileri filtrelemek için işlev görür ve aynı zamanda filtre kriterlerini istediğiniz zaman görüntüleyebilirsiniz.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. tık Kutools Artı > Süper Filtre görüntülemek için Süper Filtre işlevi. Ekran görüntüsüne bakın:
2. içinde Süper Filtre bölme, tıkla Filtrelemek istediğiniz veri aralığını seçmek için, ardından filtre aralığını düzeltmek için Belirtilen onay kutusunu işaretleyin. Ekran görüntüsüne bakın:
3. içinde Süper Filtre bölmesinde bir filtre grubundaki bir satırı tıklayın, ardından açılır listelerde ihtiyaç duyduğunuz filtre kriterlerini belirtin, ardından kriter ayarını tamamlamak için Tamam'ı tıklayın. Ekran görüntüsüne bakın:
4. tık filtreve seçilen veriler kriterlere göre filtrelenmiştir ve bu arada, filtre kriterlerinin Süper Filtre bölme. Ekran görüntüsüne bakın:
Not: Filtre kriterlerini Süper Filtre yardımcı programıyla bir sonraki kullanım için senaryo olarak kaydedebilirsiniz.
1. simgesini tıklayın. Mevcut filtre ayarlarını kaydet düğmesi, açılan iletişim kutusuna bir filtre adı yazın.
2. Bu filtreleme ayarlarını bir dahaki sefere kullanmak istediğinizde, menü düğmesine tıklayın, ardından alt menüden senaryoyu seçin. Kaydedilmiş filtre ayarları senaryosunu aç.
Filtreleme Sırasında Filtre Kriterlerini Görüntüle
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!