يوسف عطا

الف شكر معلمنا الغالى عادل بك حنفى حفظك الله جارى التجربة بعد التجربة ====== الحل بتاع حضرتك كان بيعتمد على كتابة كل أرقام الجلوس للطلبة فى كل إمتحان من ال 15 امتحان اللى بيمتحنوهم يدوياً و بعد كدة هنطلع الأرقام بتاعة بداية و نهاية كل مظروف يدوياً برضه و المعادلة هتنقلهم فقط من صفحة العد اليدوى لصفحة دليل التظريف وده هيكون موضوع مرهق لما يتعمل فى كل إمتحان على حدة خاصة إن فى ملحوظتين مهمين 1. ارقام الجلوس مش كلها سيريال واحد 2. مش كل الطلبة عندهم جميع المواد وبالتالى يبقى الحل ده مرهق جداً وكمان لن يخلوا من الخطأ لأنه بيعتمد على شغل يدوى ===== الحل من وجهة نظرى إن أمكن ======= كنت أفكر فى الإعتماد على رقم 1 اللى بيكون مكتوب بجوار كل رقم جلوس تحت اسم المواد اللى مقررة على كل طالب وده هيتكتب بمعادلة فنسبة الخطأ فيه تكاد تكون منعدمة فتقوم المعادلات بعد أرقام ال 1 فى عمود كل مادة و لما توصل للرقم الخمسين تستدعى رقم الجلوس المقابل للطالب رقم 50 من صفحة دليل التظريف نفسها ثم هكذا فى المظروف التالى تبدأ بعد الطالب رقم 51 فى العمود على أنه رقم 1 فى المظروف ======== حل آخر لو أمكن ========= بدل إستخدام معادلة لوضع رقم 1 فى عمود المادة للطالب المقررة عليه تلك المادة نشوف معادلة تانية تعد الطلبة اللى عندهم المادة عد عادى 1 2 3 4 5 6 7 8 9 وهكذا حتى آخر العمود المشكلة انى لما استخدمت المعادلة =IF(U2=0;"";RANK(T2;$T$2:$T$2000;1)) كان بيحسب الطلبة اللى معندهمش المادة فى الإحصاء مع أنه ماكانش بيديهم رقم ترتيبهم قصاد رقم الجلوس لكن بيعمل فجوة بين الارقام فهل من تعديل فى المعادلة لنتلافى ذلك يعنى نخلى عداد الترتيب التصاعدى مايعدش اللى معندهمش المادة يعنى مايعدش اللى فى قصاد رقم الجلوس صفر فى عمود المادة هل ده ممكن ؟؟ ثم عن طريق معادلة =SMALL($T$2:$T$2000;1) =SMALL($T$2:$T$2000;50) =SMALL($T$2:$T$2000;51) =SMALL($T$2:$T$2000;100) =SMALL($T$2:$T$2000;101) =SMALL($T$2:$T$2000;150) =SMALL($T$2:$T$2000;151) =SMALL($T$2:$T$2000;200) =SMALL($T$2:$T$2000;201) =SMALL($T$2:$T$2000;217) وهكذا هنقدر نحدد بداية و نهاية كل مظروف بسهولة ===============حل آخر لكنه لازال ينقصه لمسة خبير================== المعادلات دى إشتغلت معايا فى العربى و الدين و القومية فى كل المظاريف ما عدا الأخير لكنها لم تعمل جيداً فى المواد الأخرى =INDEX($T$2:$V$2000;1;1) =INDEX($T$2:$V$2000;50;1) =INDEX($T$2:$V$2000;51;1) =INDEX($T$2:$V$2000;100;1) =INDEX($T$2:$V$2000;101;1) =INDEX($T$2:$V$2000;150;1) =INDEX($T$2:$V$2000;151;1) =INDEX($T$2:$V$2000;200;1) =INDEX($T$2:$V$2000;201;1) =INDEX($T$2:$V$2000;217;1) مش عارف تعبت كتير ومش لاقى حل شكراً لتعبك معايا استاذنا الكبير وكل عام و أنتم بخير بمناسبة عيد الفطر المبارك

انتم الأساتذة و نحن الطلاب يا عم مجدى و ربنا ييسر يارب

الله ينور يا مجدى بك

إستمر جازاك الله خير

استمر يا بطل تستحق 100 نجمة

الملف الذى به دليل التظريف التلقائى الفكرة إن فى كل إمتحان بيتم تظريف كراسات الإجابة خمسينات و مسلسلة حسب ارقام الجلوس لكن ممكن يكون فى طلبة معندهاش المادة فمابتتحسبش فى العدد آخر مظروف فقط هو اللى مسموح فيه بوضع عدد كراسات إجابة أقل من 50 دليل التظريف.xls

الف شكر يا أستاذنا الكبير محمد بك حفظه الله بنسخ كود سيادتكم ظلت المشكلة كما هى لكن بالبحث فى الكود و عمله إكتشفت أن التعديل الذى قمت به و تسبب فى وقف الكود كان ينبغى أن أكرر التعديل فى رؤوس أعمدة الهدف كما غيرته فى رؤوس أعمدة المصدر حيث أن الكود يقوم بعمل فلترة للبيانات وبتغيير رؤوس الأعمدة فى المصدر دون الهدق لا تتم عملية الفلترة كما يجب الف شكر تم حل المشكلةالاولى المشكلة حاليا فى صفحة واحدة ساقوم برفعها مستقلة و احتاج فيها عدة معادلات سأوضحها فى الملف المرفوع

للرفع رفع الله قدركم

هبعت لحضرتك نشخة شغالة من الشيت قبل التعديل و للتوضيح الشيت بيتكون من عدة صفحات الأولى صفحة البيانات الاساسية للطلبة وفيها بنعمل نسخة من الكشوف اللى جاية من الكنترول و بنضيف بعض المعادلات بتساعدنا فى شغلنا بعد كدة التانية فيها دليل اللجان بنحدد فيها كل لجنة فيها كام طالب و أرقام جلوسهم و و إحصائيات المواد التالتة فيها إحصائيات عامة لكل لجان اللجنة الفرعية و إحصاء عام الرابعة فيها كشف التوقيعات الأوتوماتيكية وده اللى بيتنفذ فيه الكود اللى اتلخبط لما عملت تعديل على المواد المشتركة اللى بتتغير من سنة لسنة الخامسة دى فيها مشكلة كبيرة ومش عارف أحلها و محتاجة خبير معادلات كدة زى حضرتك وهى خاصة بدليل التظريف المفروض كل إمتحان كراسات إجابته بتتظرف خمسينات خمسينات و آخر مظروف فقط هو اللى بيكون اقل من 50 فالمفروض الدليل ده بيطلعلى من واقع البيانات فى الملف عدد المظاريف لكل امتحان و بداية و نهاية كل مظروف من حيث أرقام الجلوس وغالبا بتكون مختلفة فى كل امتحان عن التانى و بيحددلى عدد الكراسات فى المظروف الأخير اللى بتكون مختلفة فى كل مادة عن التانية النسخة الشغالة مرفقة المفروض فى صفحة التوقيعات بنحدد رقم اللجنة فوق و أسماء مواد الإمتحان فالكود بيجيب اسماء الطلاب فى كل لجنة وبعض بياناتهم اعداد لجنة ث ع شغال قديم.rar

الله ينور عمل رائع

حالا يا استاذنا سيتم التحميل إن شاء الله الكود فى شيت كشوف التوقيعات برنامج إعداد لجنة ثانوية عامة 1.rar

الأستاذ عادل حنفى حفظه الله رجل المهام الصعبة

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

الف شكر شرح ولا أروع ننتظر طريقة البرمجة لتشغيل الأزرار ووضع البيانات

الرجاء ارسال نسخة ب اوفيس 2003 لمحاولة المساعدة

هذا الكود كان يعمل جيداً Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Set MyRng1 = [F1:AK2] Set MyRng2 = [D10:AJ2000] If MsgBox("هل تريد الترحيل حسب الشروط", vbYesNo, "تنبيه") = vbYes Then Sheets("1").Range("C10:AH2000").AdvancedFilter xlFilterCopy, MyRng1, MyRng2 MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه" End If Set MyRng1 = Nothing Set MyRng2 = Nothing ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub وبعد تعديل بعض البيانات اصبح لا يعمل الرجاء المساعدة فى تحديد سبب الخطأ و العمل على تصحيحه علماً بأن العلامة الصفراء تظهر على السطر التالى Sheets("1").Range("C10:AH2000").AdvancedFilter xlFilterCopy, MyRng1, MyRng2 MyRng1, MyRng2ولا أعرف ما المقصود ب

الف شكر يا استاذنا الغالى المحترم

الأستاذ الكبير أحمد بك حفظه الله عندما أدرجت الصفحة فى الملف يبدو أنه حدث تضارب بين البيانات الصفحة تعمل جيداً بمفردها لكن بوضعها فى الملف اصبحت الدرجات مش مظبوطة المهم هذا لينك للملف كامل الرجاء عمل اللازم فيه لكى تعمل الدوائر فى الشهادات جيداً و الف شكر مقدماً الملف المطلوب تظبيطه

جازاك الله خيراً

الف شكر أستاذنا الكبير بالفعل الملف المرسل يعمل جيداً جارى إستبدال الصفحة بصفحة مماثلة لكن إسمح لى بسؤال الخطأ كان فين ؟؟

هجرب تانى الف شكر جارى التغيير الف شكر

أخونا الغالى أحمد بدرة بعد التحية عند محاولة فك الضغط عن الملف تظهر الرسالة التالية ولا يتم فك ضغط الملف

الف شكر استاذنا الفاضل أحمد بدرة جارى التحميل و التجربة

الأخ الغالى بن علية حاجى حفظه الله بخصوص وضع الدوائر من الخطأ أن يكون وضع الدائرة مرتبط فقط بالدرجة لأن فى بعض الحالات تكون الطالبة راسبة فى المادة رغم أن درجتها أعلى من درجة النجاح لأنها لم تستوف شرط تلت درجة التحريرى و جازاكم الله خير و تقبل تحياتى

الأستاذ الغالى أحمد بك بدرة للأسف الكود اللى حضرتك أرفقته لا يلبى إحتياجاتى لأنه يضع الدوائر إعتماداً على درجة النجاح و ربما تكون الطالبة حصلت على درجة النجاح أو أعلى لكنها راسبة لأنها لم تحصل على تلت درجة التحريرى فى المادة وبالتالى فتكون راسبة فى المادة رغم أن درجتها أعلى من درجة النجاح الف شكر لك تحياتى