عدد مرات تكرار كلمة من نص في الخلايا

[khalidmoh]

السلام عليكم و رحمة الله و بركاته

لو سمحتم أريد دالة بسيطة لمعرفة عدد الخلايا التي تحوي كلمة ما داخل نص الخلية 

مثال بسيط في المرفق

جزاكم الله خيرا 

Book1.rar

[ياسر خليل أبو البراء]

وعليكم السلام

انسخ الدالة المعرفة التالية (للأخ الحبيب مختار حسين) وضعها في موديول عادي Standard Module (من خلال Insert ثم اختر الأمر Module)

Function MokhtarCountif(MyVal As String, AddressRange As Range) As Long
    Dim C As Range, Total As Long, Arr() As String, J As Integer
    
    Application.Volatile True
    
    For Each C In AddressRange.Cells
        Arr = Split(C, " ")
        For J = LBound(Arr) To UBound(Arr)
            If Arr(J) = MyVal Then
                On Error Resume Next
                Total = Total + 1
                On Error GoTo 0
            End If
        Next J
    Next C
    
    MokhtarCountif = Total
End Function

ثم استخدم المعادلة التالية في ورقة العمل بهذا الشكل

=MokhtarCountif("الله",C2:C5)