السلام عليكم ورحمة الله وبركاتة اخوتي بارك الله فيكم على هذا المنتدى
في الحقيقة مطلوب مني في الجامعه عمل سؤالين ارجو مساعدتي في حلها ولكم جزيل الشكر حيث اني اعاني من مشكله في الاكسل ارجو من الاخوه مساعدتي ولن انساكم من الدعاء باذن الله
السؤال الاول :

السؤال الثاني :

عنوان مخالف جداً ... تــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك
حيث ان تسليم السؤالين يوم الاربعاء باذن الله ارجو من الاخوه والاخوات يساعدوني وانا اشكركم كل الشكر
السلام عليكم ورحمة الله وبركاته
أخي الكريم كان من المفروض أن تعتمد على نفسك قبل طرح الأسئلة في المنتديات و ذلك لترسيخ هذه الأفكار في ذهنك عن طريق المثابرة والمحاولة وإن لم تحصل على نتائج جيدة بادئ ذي بدء
أما وقد طرحت أسئلتك دون ملف محاولة من قبلك فإننا بعد إذن الأساتذة المختصين سنحاول الإجابة عليها لتكون مرجعاً تنمي من خلاله قدراتك.
أجوبة السؤال الأول: - إيجاد المعدل: باستخدام الدالة Average كما يلي:
=AVERAGE(Table2[@[عربي]:[رياضيات]])
- النتيجة ناجح أو راسب باستخدام الدالة IF الشرطية كما يلي:
=IF([@المعدل]>=60;"ناجح";"راسب")
- أعلى معدل :
- أقل معدل:
- عدد الطلبة الكلي:
- عدد الإناث:
=COUNTIF(Table2[الجنس];"أنثى")
- الراسبون الذكور:
=COUNTIF(Table2[النتيجة];"راسب")
- مجموع معدلات الذكور:
=SUMIF(Table2[[الجنس]:[المعدل]];"ذكر";Table2[المعدل])
- لأقرب منزلتين عشريتين:
- الترتيب التصاعدي من A إلى Z
- تصفية متقدمة باستخدام الماكرو كما في الكود التالي حيث تظهر النتائج في ورقة جديدة أسميتها Puple سمها ما شئت مع ملاحظة تغيير اسم الورقة في الكود أما دون كود فلم يقبل Excel وضع النتائج في ورقة جديدة
Sub تصفية_متقدمة()
Sheet1.Range("$A$19:$I$27").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("Sheet1!Criteria"), CopyToRange:=Range("Puple!Extract"), Unique:=False
End Sub
- تم تنسيق الجدول.

عرض الإجابة