Vba: sayı tarihten büyük

Belirli bir tarihten büyük tarihlerin sayısını saymak için VBA’da aşağıdaki temel sözdizimini kullanabilirsiniz:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

Bu özel örnek, A2:A10 aralığındaki C2 hücresindeki tarihten büyük olan tarihlerin sayısını sayar.

Sonuç daha sonra D2 hücresine atanır.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA kullanarak tarihten daha büyük sayın

Excel’de aşağıdaki tarih listesine sahip olduğumuzu ve 25.04.2023’ten büyük tarihlerin sayısını bilmek istediğimizi varsayalım:

Bunun için aşağıdaki makroyu oluşturabiliriz:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

D2 hücresi bize A2:A10 aralığında 04/25/2023 tarihinden büyük 6 tarih olduğunu söylüyor.

C2 hücresindeki değeri değiştirebileceğimizi ve farklı belirli bir tarihten daha büyük tarihleri saymak için makroyu yeniden çalıştırabileceğimizi unutmayın.

Örneğin, C2 hücresindeki tarihi 10/1/2023 olarak değiştirdiğimizi ve makroyu yeniden çalıştırdığımızı varsayalım:

10/1/2023 tarihinden büyük 3 tarih olduğunu görüyoruz.

Not: Belirli bir tarihten büyük veya ona eşit olan tarihlerin sayısını saymak istiyorsanız, CountIf işlevindeki “>” işaretini “>=” ile değiştirmeniz yeterlidir.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA’da tarihe göre sıralama nasıl yapılır
VBA’da iki tarih arasında olup olmadığı nasıl eklenir
VBA’da bugüne kadar günler nasıl eklenir