حساب عدد المكررين

[lordring]

السلام عليكم

في المرفق التالي المطلوب وكما موضح حساب عدد المكررين في الشهرين لكل فئة كما في الصورة المرفقة

بمعنى جساب عدد الأشخاص فئة أ المتكررين في الشهر 5 و6

وهكذا بالنسبة الى فئة ب و كذلك ج ويكون الاعتماد بمعرفة المكررين على رقمهم الرمزي

1.rar

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

السلام عليكم

تفضل المرفق

1.rar

[lordring]

شكرا اخي الكريم بارك الله بيك .. تمت الفائدة تقبل احترامي

[lordring]

اخي الكريم لااعرف اين الخلل عندما حاولت التطبيق في ملف اخر لكن برغم وجود 6 اشخاص مكررين للفئة ج المجموع يظهر لدي 5 ؟؟؟

ايضا هل لتسلسل الاشخاص المتكررين علاقة بعمل الدالة بمعنى هل يشترط ان يكون المكررين بنفس التسلسل بين الشهرين لتعمل الدالة بشكل صحيح ؟!!

2.rar

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

السلام عليكم

حاولت مع المعادلة السابقة دون نتيجة فقمت بعمل دالة معرفة هي هذه

Function Cont_Same(MyRng1 As Range, MyRng2 As Range, MyRng3 As Range, T As String)

Dim cl As Range, R As Integer

For Each cl In MyRng1

If Application.CountIf(MyRng2, cl) >= 1 And Sheets(MyRng1.Worksheet.Name).Cells(cl.Row, MyRng3.Column()) = T Then R = R + 1

Next

Cont_Same = R

End Function

هذه الدالة بها اربعة متغيرات

هي :

1. MyRng1 (هو المدى الذي به الارقام في الورقة الأولى)

2. MyRng2 (هو المدى الذي به الارقام في الورقة الثانية)

3. MyRng3 (هو مدى الفئة في الورقة الأولى)

4. T (هو أسم الفئة)

شاهد المرفق

2.rar

[lordring]

شكرا اخي اتعبتك معي

قمت بحذف بعض السجلات من احد الاشهر ومن ثم قمت بالغاء الفئة أ من احد الاشهر اي انه المفروض لايوجد تكرار لهذه الفئة

لكن المجموع لايزال يقراء وجود تكرار بهذه الفئة

كما في المرفق

43.rar

[lordring]

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

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

السلام عليكم

اليك هذا التعديل للدالة

Function Cont_Same(MyRng1 As Range, MyRng2 As Range, MyRng3 As Range, MyRng4 As Range, T As String)

Dim cl As Range, cel As Range, R As Integer

For Each cl In MyRng1

If Application.CountIf(MyRng2, cl) >= 1 And Sheets(MyRng1.Worksheet.Name).Cells(cl.Row, MyRng3.Column()) = T Then

For Each cel In MyRng2

If cel = cl And Sheets(MyRng2.Worksheet.Name).Cells(cel.Row, MyRng4.Column()) = T Then R = R + 1

Next

End If

Next

Cont_Same = R

End Function

المدى

MyRng4 (هو مدى الفئة في الورقة الثانية )

* ملاحظة هامة

يجب التأكد من تنسيق ومساواة الارقام في الورقتين

[lordring]

اخي لم ينفع التعديل

قمت بنقل الكود الى ورقة العمل

قمت فقط بتغيير احدى الفئات تظهر كالتالي لدي

لااعرف اين الاشكال ؟؟؟