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

[الو11111في]

السلام عليكم

حاولت استخدام دالة  countif  لكن تطلب مني تحديد نطاق   وانا لا اريد البحث في نطاق  ,, اريد البحث في خلايا محددة  

مثلا اريد معرفة كم مرة تكرر اسم "جامعة" في الخلايا التالية K308;K343;K377;K412;K445;K481;K516;K550;K585

مع كل الشكر سلفاً

قمت بتعديل الملف 

في حال اريد معرفة كم مرة تكرر اسم "جامعة"  في الخلايا المحددة باللون الأخضر   كيف الطريقة؟؟؟؟

 

countif _.xlsx

[عبدالفتاح في بي اكسيل]

تفضل  اخي لعله يفي بالغرض 

countif 1xlsx.xls

[الو11111في]

اكرر الشكر لك اخي الغالي واعتذر على الازعاج

لكن  انا اريد دالة لاتستخدم النطاقات نهائياً ,   حتى استطيع سحب الدوال لبقية الصفوف اسفل منها   

الملف التالي  يوضح المطلوب بشكل أكبر

ماهي الدالة التي تقوم بحساب تكرار كم مرة تكرر الانتداب الداخلي  او الخارجي لكل شخص

 

اكرر لكم الشكر

عدد التكرار.xlsx

تم تعديل فبراير 20, 2020 بواسطه الو11111في
توضيح اكثر

[عبدالفتاح في بي اكسيل]

انا  لم  افهم  هل  تريد  عد  كلمات جامعة الملونة وغير  الملونة  اما  ماذا 

[الو11111في]

اعتذر منك اخي 

يمكن حصل سوء فهم 

انا لونتها لك من باب التوضيح لا اقل ولا اكثر

 

اكرر العذر

[الو11111في]

الملف هذا يوضح اكثر  

اريد عد كم مرة حصل كل شخص على انتداب سواء داخلي او خارجي

الملف مرفق 

عدد التكرار.xlsx

[سليم حاصبيا]

للمرة الالف اكرر(مع ان المعادلات لحساب التكرارات) يمنع وضع خلايا مدمجة حيث توجد معادلات

تم ازالة دمج الخلايا من خلايلا المعادلات

هذه المعادلة في الخلية D21 واسحب نزولاً

=SUMPRODUCT(--($B$5:$B$18=$B22),--($D$5:$D$18=CHOOSE(COLUMNS($A$1:A1),"داخلي","خارجي")))

الملف مرفق

tekrar.xlsx

[عبدالفتاح في بي اكسيل]

كالعادة استاد  سليم  دائما تبدعنا بحلولك 

[سليم حاصبيا]

هذا الكود يحل المشكلة

Option Explicit
Sub My_sum()
Dim r%, S#
r = 1
With Sheets("ورقة1")
   Do Until r > .Cells(Rows.Count, 1).End(3).Row
     If .Range("A" & r).Interior.ColorIndex <> xlNone And _
     .Range("A" & r) = "جامعة" Then
      S = S + 1
     End If
      r = r + 1
   Loop: .Cells(2, 6) = S
 End With
End Sub

 

[الو11111في]

ماشاء الله تبارك الله 

الله يسعدكم جميعا 

بالضبط هذا هو المطلووووووووووووووووووب

 

الله يعطيك الصحة والعافية ويجعل ماتقدم من خدمه في موازين اعمالك