Vba: كيفية استخدام isdate للتحقق مما إذا كانت الخلية عبارة عن تاريخ

يمكنك استخدام الدالة IsDate في VBA للتحقق مما إذا كانت الخلية المحددة عبارة عن تاريخ.

ستعيد هذه الدالة True إذا تم التعرف على القيمة الموجودة في خلية معينة كتاريخ.

وإلا فإن الدالة سترجع False .

إليك طريقة شائعة لاستخدام هذه الوظيفة عمليًا:

 SubCheckDate ()
    
Dim i As Integer

For i = 1 To 9
    
    If IsDate(Range(" A " & i)) = True Then
        Range(" B " & i) = " Is a Date "
    Else
        Range(" B " & i) = " Is Not a Date "
    End If
Next i
    
End Sub

سيتحقق هذا الماكرو المحدد مما إذا كانت كل خلية في النطاق A1:A9 عبارة عن تاريخ.

إذا كانت الخلية عبارة عن تاريخ، فسيتم إرجاع “هل تاريخ” في الخلية المقابلة في النطاق B1:B9 .

إذا لم تكن الخلية عبارة عن تاريخ، فسيتم إرجاع “ليس تاريخًا” بدلاً من ذلك.

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

مثال: كيفية استخدام IsDate في VBA

لنفترض أن لدينا عمود القيم التالي في Excel:

لنفترض أننا نريد التحقق مما إذا كانت كل خلية في العمود A عبارة عن تاريخ.

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

 SubCheckDate ()
    
Dim i As Integer

For i = 1 To 9
    
    If IsDate(Range(" A " & i)) = True Then
        Range(" B " & i) = " Is a Date "
    Else
        Range(" B " & i) = " Is Not a Date "
    End If
Next i
    
End Sub

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

يخبرنا العمود B ما إذا كان قد تم التعرف على كل خلية مطابقة في العمود A كتاريخ أم لا.

لاحظ أننا نختار إرجاع “هل تاريخ” أو “ليس تاريخًا”، ولكن يمكنك إرجاع ما تريد باستخدام عبارة If Else .

ملاحظة : يمكنك العثور على الوثائق الكاملة لوظيفة VBA IsDate هنا .

مصادر إضافية

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

VBA: كيفية الحصول على اسم الشهر من التاريخ
فبا: كيفية استخدام وظيفة DateValue
فبا: رقم أكبر من التاريخ