فبا: رقم أكبر من التاريخ

يمكنك استخدام بناء الجملة الأساسي التالي في VBA لحساب عدد التواريخ الأكبر من تاريخ محدد:

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

يحسب هذا المثال تحديدًا عدد التواريخ الموجودة في النطاق A2:A10 والتي تكون أكبر من التاريخ الموجود في الخلية C2 .

ثم يتم تعيين النتيجة إلى الخلية D2 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: حساب أكبر من التاريخ باستخدام VBA

لنفترض أن لدينا قائمة التواريخ التالية في برنامج Excel ونرغب في معرفة عدد التواريخ الأكبر من 25/04/2023 :

يمكننا إنشاء الماكرو التالي للقيام بذلك:

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

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

تخبرنا الخلية D2 بوجود 6 تواريخ في النطاق A2:A10 أكبر من 25/04/2023 .

لاحظ أنه يمكننا تغيير القيمة في الخلية C2 وإعادة تشغيل الماكرو لحساب عدد التواريخ الأكبر من تاريخ محدد مختلف.

على سبيل المثال، لنفترض أننا قمنا بتغيير التاريخ في الخلية C2 إلى 10/1/2023 وقمنا بتشغيل الماكرو مرة أخرى:

نرى أن هناك 3 تواريخ أكبر من 10/1/2023 .

ملاحظة: إذا كنت تريد حساب عدد التواريخ الأكبر من أو تساوي تاريخًا محددًا، فما عليك سوى استبدال “>” في الدالة CountIf بـ “>=” .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية الفرز حسب التاريخ في VBA
كيفية إضافة إذا كان بين تاريخين في VBA
كيفية إضافة أيام حتى الآن في VBA