المساعدة بكود وبمعادلة لمعرفة عدد الناجحين والراسبين ودو رثان فى مدى محدد

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

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

مرفق ملف موضح به المطلوب وجزاكم الله كل خير وشكرا

فضل

New ورقة عمل Microsoft Excel.rar

[رجب جاويش]

أخى فضل

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

تفضل أخى ما تريد

وكل عام وأنتم بخير

Sub ragab()

For Each cl In [b2:b32]

If [h6].Value = cl Then r1 = cl.Row

If [i6].Value = cl Then r2 = cl.Row

Next

Range("G10").Value = WorksheetFunction.CountIf(Range("C" & r1 & ":C" & r2), "ناجح")

Range("H10").Value = WorksheetFunction.CountIf(Range("C" & r1 & ":C" & r2), "دور ثان")

Range("I10").Value = WorksheetFunction.CountIf(Range("C" & r1 & ":C" & r2), "راسب")

End Sub

New ورقة عمل Microsoft Excel.rar

[فضل حسين]

الاستاذ الفاضل / نجم الاكسل

رجب جاويش

ملك الملوك اذا وهب لاتسألنا عن السبب

أولا :- نسأل الله ملك الملوك ان يزيدك علما على علم ويزيدك فضلا على فضل . حل ابداعى يانجم ومفيش اجمل من كده .

ثانيا :- وبعدين يانجم انت بتفتح شهيتى للاسئلة والاستمتاع بهذا الجمال فى الحلول والاجابات .

ثالثا :- الظاهر انى هارفعلك القبعة كثيرا .

تسلم الايادى والعقول التى سطرت هذا الحل الرائع يانجم . جزاك الله كل خير

وكل عام وانت بخير يانجم على امل ان نتقابل قريبا ان شاء الله فى مشاركات اخرى ان شاء الله .

تم تعديل يوليو 14, 2012 بواسطه فضل 1

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

أستاذي ومعلمي الجميل ( رجب جاويش ) بصراحة شئ خرافي وأتقان وتمكن بصراحة يدعو للأعجاب

ولكني في عجالة فكرت صعب تنفيذها كود وأستاذي الرائع موجود ولكني فكرت فيها معادلات لآضيفة بجوار هذا العمل الجميل

طبعا ليس هناك مقارنة بين سماء وأرض ولكنها محاولة أثمرت عن عمل لو وظف جيدا ممكن أن يكون مفيدا للكنترولات المدرسية

3 New ورقة عمل Microsoft Excel.rar

[رجب جاويش]

أخى الحبيب / فضل

أخى الحبيب / محمود

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