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

يمكنك استخدام الأسلوب IsText في VBA للتحقق مما إذا كانت خلية معينة تحتوي على نص.

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

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

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

 SubCheckText ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsText(Range(" A " & i)) = True Then
            Range(" B " & i) = " Cell is Text "
        Else
            Range(" B " & i) = " Cell is Not Text "
        End If
    Next i
    
End Sub

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

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

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

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

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

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

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

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

 SubCheckText ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsText(Range(" A " & i)) = True Then
            Range(" B " & i) = " Cell is Text "
        Else
            Range(" B " & i) = " Cell is Not Text "
        End If
    Next i
    
End Sub

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

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

لاحظ أنه يتم التعرف على الخلايا التي تحتوي على نص وأرقام على أنها نص.

لكي يتم التعرف على الخلية كرقم، يجب أن تحتوي على أرقام فقط.

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

مصادر إضافية

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

كيفية تحويل السلسلة إلى int في VBA
كيفية تحويل سلسلة إلى مضاعفة في VBA
كيفية التحقق مما إذا كانت السلسلة تحتوي على سلسلة أخرى في VBA