Vba: كيفية حساب الخلايا التي تحتوي على نص معين

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

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

يقوم هذا المثال تحديدًا بحساب عدد الخلايا في النطاق A2:A13 التي تحتوي على “avs”، ثم يقوم بتعيين النتيجة للخلية D2 .

ملاحظة : يتم استخدام العلامات النجمية ( * ) كأحرف بدل في الدالة Countif .

إذا كنت تريد بدلاً من ذلك عرض عدد الخلايا في مربع رسالة، فيمكنك استخدام بناء الجملة التالي:

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
    cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), "* avs* ")
    
    'Display the result
    MsgBox "Cells that contain avs : " & cellCount
End Sub

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا مع مجموعة البيانات التالية في Excel والتي تحتوي على معلومات حول لاعبي كرة السلة المختلفين:

مثال 1: عد الخلايا التي تحتوي على نص محدد باستخدام VBA وعرض النتائج في الخلية

لنفترض أننا نريد حساب عدد الخلايا التي تحتوي على “avs” في اسم الفريق وعرض النتائج في خلية معينة.

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

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

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

لاحظ أن الخلية D2 تحتوي على القيمة 5 .

يخبرنا هذا بوجود 5 خلايا في النطاق A2:A13 تحتوي على “avs” في اسم الفريق.

المثال 2: حساب الخلايا التي تحتوي على نص محدد باستخدام VBA وعرض النتائج في مربع الرسالة

لنفترض بدلاً من ذلك أننا نريد حساب عدد الخلايا التي تحتوي على “avs” وعرض النتائج في مربع رسالة.

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

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
    
    'Display the result
MsgBox "Cells that contain avs : " & cellCount
End Sub

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

يخبرنا مربع الرسالة بوجود 5 خلايا تحتوي على “avs” في اسم الفريق.

مصادر إضافية

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

VBA: صيغة بسيطة لـ “إذا كانت الخلية تحتوي على”
فبا: كيفية حساب تكرارات الأحرف في سلسلة
VBA: كيفية التحقق مما إذا كانت السلسلة تحتوي على سلسلة أخرى