lordring قام بنشر أغسطس 28, 2012 قام بنشر أغسطس 28, 2012 السلام عليكم في المرفق التالي المطلوب وكما موضح حساب عدد المكررين في الشهرين لكل فئة كما في الصورة المرفقة بمعنى جساب عدد الأشخاص فئة أ المتكررين في الشهر 5 و6 وهكذا بالنسبة الى فئة ب و كذلك ج ويكون الاعتماد بمعرفة المكررين على رقمهم الرمزي 1.rar
lordring قام بنشر أغسطس 28, 2012 الكاتب قام بنشر أغسطس 28, 2012 شكرا اخي الكريم بارك الله بيك .. تمت الفائدة تقبل احترامي
lordring قام بنشر أغسطس 28, 2012 الكاتب قام بنشر أغسطس 28, 2012 اخي الكريم لااعرف اين الخلل عندما حاولت التطبيق في ملف اخر لكن برغم وجود 6 اشخاص مكررين للفئة ج المجموع يظهر لدي 5 ؟؟؟ ايضا هل لتسلسل الاشخاص المتكررين علاقة بعمل الدالة بمعنى هل يشترط ان يكون المكررين بنفس التسلسل بين الشهرين لتعمل الدالة بشكل صحيح ؟!! 2.rar
عبدالله المجرب قام بنشر أغسطس 28, 2012 قام بنشر أغسطس 28, 2012 السلام عليكم حاولت مع المعادلة السابقة دون نتيجة فقمت بعمل دالة معرفة هي هذه 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 قام بنشر أغسطس 28, 2012 الكاتب قام بنشر أغسطس 28, 2012 شكرا اخي اتعبتك معي قمت بحذف بعض السجلات من احد الاشهر ومن ثم قمت بالغاء الفئة أ من احد الاشهر اي انه المفروض لايوجد تكرار لهذه الفئة لكن المجموع لايزال يقراء وجود تكرار بهذه الفئة كما في المرفق 43.rar
عبدالله المجرب قام بنشر أغسطس 31, 2012 قام بنشر أغسطس 31, 2012 السلام عليكم اليك هذا التعديل للدالة 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 قام بنشر سبتمبر 7, 2012 الكاتب قام بنشر سبتمبر 7, 2012 اخي لم ينفع التعديل قمت بنقل الكود الى ورقة العمل قمت فقط بتغيير احدى الفئات تظهر كالتالي لدي لااعرف اين الاشكال ؟؟؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.