Excel'de bugünün öncesindeki veya sonrasındaki tüm tarih hücrelerini nasıl filtreleyebilirim?

Bu makalede, Excel çalışma sayfasında bugünün öncesindeki veya sonrasındaki tüm tarih hücrelerini nasıl filtreleyeceğimden bahsedeceğim.

Filtre işleviyle bugünün öncesindeki veya sonrasındaki tüm tarih hücrelerini filtreleme

VBA koduyla bugünün öncesindeki veya sonrasındaki tüm tarih hücrelerini filtreleme

Filtre işleviyle bugünün öncesindeki veya sonrasındaki tüm tarih hücrelerini filtreleme

Aslında, Excel'deki Filtre özelliği bu görevi mümkün olduğunca hızlı bir şekilde çözmenize yardımcı olabilir, lütfen şu adımları izleyin:

1. Filtrelemek istediğiniz tarih sütununu seçin ve ardından Veri > Filtre'ye tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Ardından açılır oku tıklayın ve ihtiyaçlarınıza göre Tarih Filtreleri > Önceki / Sonraki seçeneklerinden birini seçin, aşağıdaki ekran görüntüsüne bakın:

3. İçinde Özel Otomatik Filtre diyalog kutusunda tıklayın Tarih Seçici düğmesine basın ve ardından tıklayın Bugün tarih seçici takvimindeki düğmeye basın, aşağıdaki ekran görüntüsüne bakın:

4. Ardından diyalog kutusunu kapatmak için Tamam'a tıklayın ve aşağıdaki ekran görüntüsünde gösterildiği gibi bugünün öncesindeki veya sonrasındaki tüm tarihler filtrelenir:

VBA koduyla bugünün öncesindeki veya sonrasındaki tüm tarih hücrelerini filtreleme

Aşağıdaki VBA kodları da bir çalışma sayfasındaki bugünün öncesindeki veya sonrasındaki tüm tarihleri filtrelemenize yardımcı olabilir. Lütfen aşağıdaki adımları izleyin:

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

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

VBA kodu: Bugünün öncesindeki tüm tarih hücrelerini filtrele:

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, "<" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

VBA kodu: Bugünün sonrasındaki tüm tarih hücrelerini filtrele:

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, ">" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

3. Yukarıdaki kodlardan birini kopyalayıp yapıştırdıktan sonra, bu kodu çalıştırmak için F5 tuşuna basın ve size filtrelemek istediğiniz tarih sütununu seçmenizi hatırlatmak için bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

4. Ve ardından Tamam düğmesine tıklayın, bugünün öncesindeki veya sonrasındaki tüm tarih hücreleri hemen filtrelenir.