Excel'de bugünden önceki veya sonraki tüm tarih hücrelerini nasıl filtreleyebilirim?
Bu yazımda, Excel çalışma sayfasında bugünden önceki veya sonraki tüm tarih hücrelerini nasıl filtreleyeceğimizden bahsedeceğim.
Filtre işlevi ile bugünden önceki veya sonraki tüm tarih hücrelerini filtreleyin
VBA kodu ile bugünden önceki veya sonraki tüm tarih hücrelerini filtreleyin
Filtre işlevi ile bugünden önceki veya sonraki tüm tarih hücrelerini filtreleyin
Aslında, Excel'deki Filtre özelliği bu görevi olabildiğince çabuk çözmenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Filtrelemek istediğiniz tarih sütununu seçin ve ardından Veri > filtre, ekran görüntüsüne bakın:
2. Ardından aşağı açılır oka tıklayın ve ardından Tarih Filtreleri > önce / Sonra ihtiyacınız olan ekran görüntüsüne bakın:
3. In Özel Otomatik Filtre iletişim kutusunu tıklayın Tarih Seçici düğmesini tıklatın ve sonra Tamam'ı tıklatın. Bugün tarih seçici takvimde düğmesi, bkz. screesnhot:
4. Sonra tıklayın OK iletişim kutusunu kapatmak için ve bugünden önceki veya sonraki tüm tarihler aşağıda gösterilen ekran görüntüsü gibi filtrelenmiştir:
VBA kodu ile bugünden önceki veya sonraki tüm tarih hücrelerini filtreleyin
Aşağıdaki VBA kodları, bir çalışma sayfasında geçerli günden önceki veya sonraki tüm tarihleri filtrelemenize de yardımcı olabilir. 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 pencere.
2. tıklayın Ekle > modülve aşağıdaki kodlardan birini modül Pencere.
VBA kodu: Bugünden önceki tüm tarih hücrelerini filtreleyin:
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ünden sonraki tüm tarih hücrelerini filtreleyin:
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, F5 Bu kodu çalıştırmak için tuşuna basın ve filtrelemek istediğiniz tarih sütununu seçtiğinizi hatırlatmak için bir komut kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, bugünden önceki veya sonraki tüm tarih hücreleri hemen filtrelenecek.
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!