عد تكرار أسم معين داخل الخلية

[ghobashi]

السلام عليكم

 

اريد المساعدة فى كود vba او معادلة تمكن من عمل count

 

لقيمة معينة داخل خلية 

 

بمعنى ان الخلية a1 تحتوى على اسم "احمد على

 

عثمان" والخلية a2 تحتوى على "هشام مؤمن احمد" 

 

وانا اريد عمل count للقيمة "احمد" فقط 

 

ارجوا المساعدة 

[عبدالله المجرب]

تم فصل الموضوع 

=================

السلام عليكم 

اليك المرفق فيه دالة معرفة

Function MyCount(MyRng As Range, MyVal As Range)
For Each cl In MyRng
For Each R In Split(cl.Value, " ")
If R = MyVal Then conter = conter + 1
Next
Next
MyCount = conter
End Function

شاهد المرفق

عد تكرار اسم معين.rar

[جمال عبد السميع]

بعد إذن أستاذى ( عبد الله المجرب ) وبعد هذا الكود الرائع وزيادة لإثراء الموضوع

هذا حل أخر بمعادلة صفيف

=SUM(INDEX((LEN(A2:A20)-LEN(SUBSTITUTE(A2:A20;D2:D2;"")))/LEN(D2:D2);0;0))

ولابد من وضع المؤشر فى نهاية المعادلة بعد الإنتهاء من كتابتها والضغط على ( ctrl+shift+enter )

 

تقبل تحياتى

[إبراهيم ابوليله]

الاخوه الافاضل

الاخ عبدالله

الاخ جمال بارك الله فيكم

كود رائع للاخ عبدالله

ومعادله فى غاية الجمال للاخ جمال

بارك الله فيكم

[رجب جاويش]

يوجد أيضا ثلاث اجابات على نفس السؤال فى الرابط التالى

http://www.officena.net/ib/index.php?showtopic=47562