Vba: angka lebih besar dari tanggal

Anda dapat menggunakan sintaks dasar berikut di VBA untuk menghitung jumlah tanggal yang lebih besar dari tanggal tertentu:

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

Contoh khusus ini menghitung jumlah tanggal dalam rentang A2:A10 yang lebih besar dari tanggal di sel C2 .

Hasilnya kemudian ditugaskan ke sel D2 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Hitung lebih besar dari tanggal menggunakan VBA

Misalkan kita memiliki daftar tanggal berikut di Excel dan kita ingin mengetahui jumlah tanggal yang lebih besar dari 25/04/2023 :

Kita dapat membuat makro berikut untuk melakukan ini:

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Sel D2 memberi tahu kita bahwa ada 6 tanggal dalam rentang A2:A10 lebih besar dari 25/04/2023 .

Perhatikan bahwa kita dapat mengubah nilai di sel C2 dan menjalankan kembali makro untuk menghitung jumlah tanggal yang lebih besar dari tanggal tertentu yang berbeda.

Misalnya, kita mengubah tanggal di sel C2 menjadi 10/1/2023 dan menjalankan makro lagi:

Kita melihat ada 3 tanggal yang lebih besar dari 10/1/2023 .

Catatan: Jika Anda ingin menghitung jumlah tanggal yang lebih besar atau sama dengan tanggal tertentu, cukup ganti “>” di fungsi CountIf dengan “>=” .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara mengurutkan berdasarkan tanggal di VBA
Bagaimana cara menambahkan if antara dua tanggal di VBA
Bagaimana cara menambahkan hari hingga saat ini di VBA