محمد ابو البـراء قام بنشر يناير 23, 2014 قام بنشر يناير 23, 2014 أخي الفاضل جمال هناك جزئية نسيت ان اضيفها في المعادلة والخاصة بتقدير الغائب ولهذا سوف تصبح المعادلة بهذا الشكل =IF(AM8="غ";"غائب";IF(AM8>=0.9*$AM$6;"ممتاز";IF(AM8>=$AM$6*0.75;"جيد جداً";IF(AM8>=0.65*$AM$6;"جيد";IF(AM8>=0.5*$AM$6;"مقبول";IF(AM8<0.5*$AM$6;"ضعيف";)))))) وهذا الجزء الذي اضفناه IF(AM8="غ";"غائب";
جماااال قام بنشر يناير 23, 2014 الكاتب قام بنشر يناير 23, 2014 شكراً مرة آخرى على اهتمامك أخى محمد أبو البراء
جماااال قام بنشر يناير 28, 2014 الكاتب قام بنشر يناير 28, 2014 مطلوب ترحيل الناجح والراسب لمن لديه معلومة وياريت دالة
محمد ابو البـراء قام بنشر يناير 28, 2014 قام بنشر يناير 28, 2014 في خدمتك استاذ جمااااال ارسل الملف وسارسل لك الترحيل
أبو محمد عباس قام بنشر يناير 29, 2014 قام بنشر يناير 29, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب محمد ابو البراء جزاك الله خيرا جهد كبير ومميز اثابكم الله عليه في الدنيا والاخرة وانعم الله عليكم بالصحة والعافية وغفر لكم تقبلوا فائق احترامي وتقديري 1
جماااال قام بنشر يناير 29, 2014 الكاتب قام بنشر يناير 29, 2014 أخى محمد أبو البراء شاكر اهتمامك الكبير وهذا هو الملف صف أول.rar
محمد ابو البـراء قام بنشر فبراير 3, 2014 قام بنشر فبراير 3, 2014 أخى محمد أبو البراء شاكر اهتمامك الكبير وهذا هو الملف بعتذر أخي الحبيب استاذ جمااااال على التاخير وجاري بإذن الله تنفيذ طلبك ولعلك الغد تجد طلبك محلول بإذن الله تعالى
محمد ابو البـراء قام بنشر فبراير 4, 2014 قام بنشر فبراير 4, 2014 السلام عليكم ورحمة الله وبركاته تفضل أخي الحبيب استاذ جماااال واخبرني بالنتيجة.. ملحوظة تاكد من درجات شيتك انها سليمة لانني كنت بجرب بعض الارقام في بعض الخلايا.. صف أول ----.rar
جماااال قام بنشر فبراير 4, 2014 الكاتب قام بنشر فبراير 4, 2014 هذه الدرجات تقديرية أخى الحبيب محمد أبو البراء وسوف أقوم بوضع درجات الطلاب الحقيقية وأخبرك بما سيتم فشاكر أفضالك وسرعة تلبية طلبى الأخير وأرجو ألا أكون قد أثقلت عليك ولكن هناك طلب فى البداية كنت تقوم بتنفيذ المطلوب عملياً خطوة خطوة ولكن فى الملف الأخير قمت بتنفيذ ذلك على الشيت لعل المانع خيراً وسبق أن قلت لك أريد أن أتعلم كيف تتم هذه العمليات وإلا لكنت أخذت شيت جاهز ووضعت عليه درجات طلابى وقمت بطبعه دون أن أرهق نفسى وغيرى وفى النهاية لك منى ألف شكر على سعة صدرك أخى محمد أبو البراء
محمد ابو البـراء قام بنشر فبراير 4, 2014 قام بنشر فبراير 4, 2014 السلام عليكم ورحمة الله وبركاته 1 ) جزاك الله خيرا على كلامك أخي الحبيب استاذ // جماااال 2 ) ما جعلني سعيد جدا في هذا الموضوع شعوري بانك ترغب في التعلم وهذا شعرت به اول الموضوع ومن خلال استفساراتك 3 ) اما شرح ما قمت به فهو كالتالي اولاً : ما هو طلبك ؟! الاجابة : انك تريد ترحيل بيانات الناجحين لوحدهم والراسبين لوحدهم ماذا يعني هذا الكلام ؟! هذا يعني اننا نريد عملية ترحيل بيانات معينة مشتركة في شي واحد في مكان، وبيانات اخرى في مكان أخر وما المشكلة؟! المشكلة ان هذه البيانات أ _ غير مرتبة _ بمعني اننا نرى طالب مجموعه ناجح ثم راسب ثم راسب ثم ناجح ثم راسب وهكذا ب _ ليس هناك عامل مشترك واحد _ بمعنى انني اعلم ان الطالب الذي تجاوز ال450 ناجح والطالب الذي اقل من 450 راسب وهذا اعرفه بالنظر ولكن ليس عندي في الشيت شي عملي يدل على ذلك. وهذا الكلام يعني ايضا اننا ليس عندنا عامل مشترك لجميع الطلاب سوف نرحل عليه وبعد هذا الكلام الطويل !!! ما العمل ؟! العمل اننا لا بد ان نربط بين التلاميذ بعامل مشترك وطالما انني اريد ان اقسمهم على اساس النجاح والرسوب اذاً هذا هو العامل ترحيل على اساس حالة الطالب كيف اقوم به ؟! _ أو خطوات العمل _ ؟! 1 ) اقوم باضافة عمود لحالة الطالب الناجح او الراسب 2 ) اما الخطوة الثانية وهي الاصعب معرفة شروط نجاح الطالب ورسوبه وسوف اقسم شرح هذه الخطوة على جزئين أ ) جزء نظري ب ) تحويل الكلام النظري الى عملي أ ) الكلام النظري لمعرفة الطالب الناجح _ او ما اسميه بالقرارات الوزرارية _ او بمعنى اخر!! من هو الطالب اناجح ومن هو الطالب الراسب؟! الاجابة : الطالب الناجح أ - من تجاوز مجموع كل مادة عن نصف الدرجة ولكن بشرط ان لا يقل الطالب عن 15 درجة في اختبار التحريري للنصف الثاني الطالب الذي له دور ثان هو الطالب الذي لم يتجاوز مجموعه نصف المادة او تجاوز نصف المادة واقل من 15 درجة وركز في هذه الجزئية لاننا سوف ننتقل الى القسم الثاني وهو العملي يلا نحول هذا الكلام الى معادلات لمادة واحدة فقط وقبل ان ابدئ في المعادلات علينا ان نراجع قاعدة مهمة (and ) و (or) الاثنين بمعني او ولكن بينها فرق عند التنفيذ كيف هذا؟! مثال ( رسوب الطالب في المادة به شرطين الاول اقل من النصف و الثاني اقل من 15 درجة ) فــــ (and ) تستخدم عند وجوب تحقق الشرطين بمعني ( اعلى من النصف ;اعلى من 15 درجة ) ; ناجح ; راسب النتيجة التى ستخرج ناجح (لتحقق الشرطين) اما اذا كانت ( اعلى من النصف ;اقل من 15 درجة ) ; ناجح ; راسب النتيجة سيكون راسب ( والسبب عدم تحقق الشرطين ) اما or يتم عند تحقق شرط واحد نفس المثال السابق ولكن ب or ( اعلى من النصف ;اقل من 15 درجة ) ; ناجح ; راسب النتيجة ناجح ( والسبب هو تحقق شرط واحد وهو اعلى من النصف ) . اتمنى ان تكون وصلت الفكرة قبل السير في تكملة الموضوع والسير في الجزء العملي لاننا الان بالفعل في الجزء العملي وهذه الفكرة التى استخدمتها لحل مشكلة تقسيم الطلبة بعامل مشترك ( النجاح والرسوب ) طيب الان قربنا من الحل وعندنا حلول لتنفيذ المعادلة على الشيت اما ان اقوم في هذا العمود الذي اضفته واستخدم قواعد or و and لكل المواد حتي الموجودة على الشيت مباشرةً لاخرج بهذه الكلمة اما الطالب ناجح او راسب اوالطريقة الثانية التى استخمدتها هنا في الشيت حيث اعتمدت على مواد الرسوب الموجودة في اخر اشيت واشترطت عند وجود ( خلية العربي فيها كلمة عربي ) الطالب راسب وهكذا في الانجليزي وهكذا في باقي المواد يتحقق الشرط الاول وهو الرسوب اما عند عدم التحقق فتخرج النتيجة الطالب ناجح مثال ذلك =if(or( خلية العربي = عربي ; خلية الانجليزى = انجليزي.....وهكذا في باقي المواد) "راسب" ; "ناجح" وهذه المعادلة تعني عند وجود اي خلية من خلايا مواد الرسوب فيها مادة فالطالب له دور ثان اما اذا كانت جميع الخلايا في مواد الرسوب فارغة فالطالب ناجح اتمنى ان تكون وصلت الفكرة وارجع للمعادلة لتربط المعادلة الموجودة في العمود الذي اضفته بالكلام النظري وانا في انتظار اي استفسار لتكملة الجزء الترحيل والسلام عليكم ورحمة الله وبركاته 1
محمد ابو البـراء قام بنشر فبراير 4, 2014 قام بنشر فبراير 4, 2014 الجزء الاخير والمرتبط بعملية الترحيل وهو خاص بكود الترحيل وهو كود للاستاذ عبد الله باقشير يوضع هذا الكود في مديول جديد وهذا الكود فيه شرح لعله وافي Sub KH_START() متغيرات بعدد الصفحات المطلوب الترحيل اليها Dim R As Integer, M As Integer, N As Integer ''' أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه Sheets("ناجح").Range("A9:Dp1000").ClearContents Sheets("دور ثان في").Range("A11:DZ1000").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات M = 9: N = 9 Application.ScreenUpdating = False ''' بداية ونهاية صفوف الورقة المصدر For R = 9 To 1000 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 119) = "ناجح" Then Range("A" & R).Resize(1, 119).Copy ''' سيتم اللصق في هذا الشيت Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 119) = "دور ثان في" Then Range("A" & R).Resize(1, 132).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 End If ''''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''' واذا لم تفهم فيه شئ فاخبرني والسلام عليكم ورحمة الله وبركاته
جماااال قام بنشر فبراير 12, 2014 الكاتب قام بنشر فبراير 12, 2014 أخى محمد أبو البراء هذا هو الملف بعد وضع درجات الفصل الدراسى الأول فقط أرجو وضع كود للدوائر الحمراء صف أول ----.rar
جماااال قام بنشر فبراير 13, 2014 الكاتب قام بنشر فبراير 13, 2014 أخى محمد أبو البراء ضع الدوائر فى شيت الدور الثانى والإدارة وأكون شاكر لكل مجهوداتك معى وتحملك الكثير معى وألف شكر
محمد ابو البـراء قام بنشر فبراير 13, 2014 قام بنشر فبراير 13, 2014 السلام عليكم ورحمة الله وبركاته أخي استاذ // جمااااال خذ هذا الملف لعله المطلوب جربه وأخبرني صف أول ----ma.rar
جماااال قام بنشر فبراير 14, 2014 الكاتب قام بنشر فبراير 14, 2014 إبداع أخى العزيز محمد أبوالبراء ما أروعك
جماااال قام بنشر مايو 4, 2014 الكاتب قام بنشر مايو 4, 2014 أين أنت أخى محمد أبو البراء طولت الغيبة والله لعل المانع خيراً أريد فقط التواصل معك ومعذرة على إنشغالى عنك
محمد ابو البـراء قام بنشر مايو 4, 2014 قام بنشر مايو 4, 2014 أستاذي الحبيب // جماااااااال انا الحمد لله بخير !!! ولعلك انت استاذي الحبيب بخير!!! وااتمنى ان يكون كله على ما يرام معك وفي انتظار اي جديد لديكم وانا في خدمتكم..
الردود الموصى بها