محمد ابو البـراء

الاستاذ الحبيب // أبو سلمي وعبد الرحمن سعيد بيرم 1 ) منذ فترة قليلة وكان يدور في ذهني هذا الموضوع وكنت ساكتبه ولكن لا اعلم السبب الرئيسي لتركي له اهو الاحباط ام الكسل ام ماذا؟! _ لا اعلم _ ولكن استطيع ان اقول ان من الاسباب القوية لتركي التفكير للموضوع ان العملية التعليمية وخاصة الامتحانات خاضعة لبعض الظروف كوجود طلبة في لجان واولياء امورهم في نفس المدرسة أو وجود بعض من هو غير قادر على السيطرة على الطلبة وخاصة النساء او وجود لجان وخاصة لجان البنين تحتاج الى بعض الملاحظين ذو الطابع الشديد... ألخ.. أوالحجج الفارغة من العقل أو الشرع حتى والتى يثيرها بعض الاشخاص..... الخ وانت فاهم الباقي.. 2 ) الامر الاخر قد يكون المشكلة في عدم وجود برامج مهتمة بهذا الامر صعوبة التنفيذ على الواقع كما اخبرت في النقطة السابقة بعض من الصعوبات. 3 ) من وجهة نظري ان اهم نقطة لا بد ان يهتم بها واضع كشوف اللجان سواء كانت على برامج او على الورق حتي هي التوزيع العادل واقصد بها ( التوزيع المتساوي لدخول اللجان لكل الملاحظين دون اي تفريق) 1 ) ترتيب الملاحظين من حيث السن 2 ) حساب عدد الملاحظين 3 ) حساب اجمالي عدد اللجان التي ستدخل 4 ) ضرب الرقم ×2 5 ) قسمة العدد الذي سيخرج من عدد اللجان في 2 على عدد الملاحظين وبالتالي سيدخل كل شخص عدد لجان متساوي والعدد الباقي من اللجان يوزع على الاحدث سنا او كما ترى الادارة..

أخي محمود الشريف سوف اقتبس هذه الكلمة التي جعلتني اضحك من قلبي وشعرت انها خارجة من القلب بارك الله فيك وفي مجهوداتك وعدم البخل والانانية في حفظ المعلومات اسال الله ان يجزيك خير الجزاء..

السلام عليكم ورحمة الله وبركاته والدي واستاذي // الاستاذ عبد الموجود 1 )تمام وصل اخر ملف وسيتم الاطلاع عليه _ بإذن الله تعالى _ ولكن الملف محمي برقم سري 2 ) ارجوا مراجعة ال 40 % التي اخبرتني بها بالامس والتاكد من المعلومة اهي 40 % أم 50 % ؟! 3 ) ارجوا متابعة هذا الموضوع ومشاركتي رقم 2 و 3 http://www.officena.net/ib/index.php?showtopic=53768#entry338376

السلام عليكم ورحمة الله وبركاته استاذ وليد 1 ) اتمنى الرجوع الى المشاركة السابقة وهي برقم 2 2 ) من النظر الى شيت الصف الثاني الثانوي وبعض معلومات اخبرني بها سابقا احد اعضاء المنتدى وجدت بالفعل ن شيت الصف الثاني الثانوي مقارب لشيت الخدمات للتعليم االصناعي ولهذا قمت بعمل تعديل سريع لشيت الخدمات ليشبه شيت الصف الثاني الثانوي الازهري لتطلع عليه وتخبرني ببعض التساؤلات التى ساطرحها وكذلك وجهة نظرك في ما هي اهم التغيرات التى تريد التعديل فيها وهذا التعديل الذي قمت انا به اعتبره بنسبة 20 % فقط من جملة التعديلات وتم هذا التعديل في ورقة الشيت ولكن واجهتني بعض المعلومات لم افهمها أ ) ارجوا التفصيل في المقصود بمجموعات الرياضة؟! ب ) ارجوا ايضاح معني الصف الاول والصف الثاني ؟! الموجودة في الشيت !!!وكذلك مجموع الصف الاول ومجموع الصف الثاني؟! ج ) اكرر السؤال السابق متي يرسب الطالب ولا يكون ليس له حق في دخول امتحانات الدور الثاني ( الملاحق ) ومتي يكون له حق دخول الدور الثاني ( الملاحق ) ؟!!! بداية عمل _2 ثانوي ازهري.rar

الاستاذ // أبو بهاء 1 ) المشكلة ظهرت لما حضرتك طبعا نقلت الاوراق التى عدلتها لحضرتك في الشيت الى شيت أخر فتم نقل الورق ببعض الامتدادات وبيانات مخزنة وكان حلها سيتم ببساطة _ بإذن الله _ عن طريق ضبط هذه المعادلات مرة اخرى وحذف بعض الامتدادت التى اضيفت لها ولكن للاسف !!! حضرتك ارسلت الشيت في المرفق الاخير بدون الاوراق المعدلة لك بعدما قمت انت بحذف الورقات !! التي عدلتها لحضرتك دون قصد منك !! ومع عدم احتفاظك بنسخة اخرى!! فلهذا اظن ان الحل الامثل الان كما قلت لك هو نقل البيانات من الشيت الاصلي الى اخر شيت عدلته لك.. 2 ) وفي هذا المقام اذكر اخواني ببعض الامور اهمها أ ) الحفظ المستمر للملف الذي يتم العمل عليه كما نقوم بحفظ نسخة باسم جديد كل فترة متقاربة وليكن 1 ثم 2 ثم 3 ...الخ حتى وان حدث شي للملف ( كتلفه او خطا ) يتم الرجوع الى النسخة التى كانت قبل التي حدث فيها هذا التلف او الخطأ وبالتالي ستكون التغييرات بسيطة.. ب ) انصح جميع اخواني ممن يريدون التعديل على الملف في هذا المنتدى الكبير بارسال النسخة كاملة التى يريدون التعديل عليها دون حذف ملفات منها او غيره وذلك حتي لايحدث للملف شي وكذلك لتفادي المشكلات..

السلام عليكم ورحمة الله وبركاته أستاذ// وليد مرحباً بك مجدداً واسأل الله أن يشفي والدتك ولا باس طهور_بإذن الله تعالى _ والان نرجع لموضوع الشيتات ولكن لي بعض الأسئلة أولا : إي هذه الشيتات ستحتاجه الآن ثانياً : ممكن استفسر عن معلومة وهي هل الطالب لو رسب في جميع المواد في الدور الأول له الحق في دخول امتحانات الدور الثاني أو بطريقة أخرى من هو الطالب الذي ليس له الحق في دخول الدور الثاني!!

جزاك الله خيراً وانا في خدمتك وجزاك الله بمثل ما دعوت لي..

السلام عليكم ورحمة الله وبركاته والدي واستاذي الاستاذ // عبد الموجود 1 ) اما بالنسبة لمشكلة 40 % لقد سألت عليها مرة اخرى الاستاذ أحمد وهو سال مستشار المادة على ما اظن وقال لي ان هذا الامر كان قديما واتلغى واصبح الرسوب من 50 % وليس 40 % والدليل على ذلك ارجع للشيت الورقي ستجد ان الدرجة الصغرى 50 % 2 ) لا زال الى الان الروابط التى ترفعها فيها مشكلة

السلام عليكم ورحمة الله وبركاته اولا باشكر الجميع على المشاركة الاستاذ الحبيب// أبو ايمان والاستاذ الحبيب // زمزم بعتذر استاذ وليد على التاخير نظر لعطل النت عندى وخرجت خارج المنزل على جهاز خارجي حتى لا اتأخر عليك ولله الحمد تم الانتهاء من الملف بنجاح _ بإذن الله تعالى _ تفضل وأخبرني بالنتيجة الملف الاخير باذن الله_braa1.rar

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

جزاك الله خيرا الاستاذ القدير الاستاذ // عبد الله باقشير بحق ملك الاكواد.. ولاثراء الموضوع وتنوع الحلول هذا كود للعملاق الاستاذ الحبيب // رجب جاويش Private Sub Worksheet_Change(ByVal Target As Range) Static x If Target.Address = [A1].Address Then Application.EnableEvents = False x = x + Target.Value Target = x Application.EnableEvents = True End If End Sub والتنفيذ سبكون في a1

السلام عليكم ورحمة الله وبركاته الحمد لله اولا واخرا.. تم بحمد الله تنفيذ جزء من مطلوبك الى ان تشير حضرتكم بالتكملة وما قمت به كالتالي 1 ) قمت بالتنفيذ على صفحة كشوف تبييض الناجحين للعلمي فقط لحين التجربة 2 ) قمت بعمل صفحة واحدة وعن طريق زر التنقل سيقوم بجلب باقي البيانات وهذه الطريقة افضل من عمل اكثر من صفحة _ في وجهة نظري _ قم بالتجربة وفي انتظارك... الملف الاخير باذن الله_braa.rar

تم تعديل المشاركة والتنفيذ في المشاركة التالية رقم 6

الاستاذ الفاضل // عبد الموجود ولا يهمك اي شي ان في خدمتك ولكن الروابط جميعها لا تعمل..

تفضل استاذ // عمرو لعله المطلوب 125_braa2.rar

أخي الحبيب هذه الدوال دوال استبدال نص بدلا من أخر واليك مثال لذلك braa.rar

استاذي الحبيب // رجب جاويش قمة الابداع باقصر الطرق.. 10/10

بعد اذن الاستاذ الفاضل // أبو إيمان اذا اردنا مثلا ان نجمع القيمة الموجودة في a1 + القيمة الموجودة في b1 ويكون النتاتج في c1 1 ) نقف في الخلية c1 المراد الجمع فيها 2 ) نذهب لشريط الصيغة الموضح في الصورة ونضع فيه هذه المعادلة..

الاستاذ // ريان أحمد تفضل هذا الكود لعله ما تريد.. Sub braa_Filter_if() ActiveSheet.Range("$A$12:$H$25").AutoFilter Field:=7, Criteria1:=Range("f1") Range("A6:G7").Select ActiveCell.FormulaR1C1 = _ "=IF(R[-5]C[12]=5,""المؤسسة الشمالية"",IF(R[-5]C[12]=9,""المؤسسة الجنوبية"",IF(R[-5]C[12]=3,""المؤسسة الغربية"",IF(R[-5]C[12]=2,""المؤسسة الشرقية"",""الرقم غير موجود""))))" Range("f1").Select End Sub Nouveau Microsoft Office Excel 97-2003 Worksheet_braa 2.rar

وخيراً جزاك استاذي الحبيب // رجب جاويش والله واحشني..

رائع استاذ // احمد مرجان دائما موفق بإذن الله تعالى

أخي الحبيب // الاستاذ ناصر سوف اخبرك باهم اسطر في الكود G = 2 ' عمود رقم الجلوس هذا السطر تحتاج ان تضع رقم العمود الموجود فيه رقم الجلوس بمعنى انك اذا كان عمود رقم الجلوس b فان الرقم هو 2 واذا كان c فيكون 3 وهكذا R = 10 اما هذا السطر فقد بينت مراده في المشاركة رقم 11 o11:dn500 هذا السطر خاص بنطاق الذي تريد وضع الدوائر الحمراء فيه Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 2, c.Height - 2 وهذا الجزء خاص بضبط حدود الدائرة الحمراء V.Line.ForeColor.SchemeColor = 10 وهذا الجزء خاص بلون الدائرة فاذا قمت بتغيير اللون الى رقم اخر سيتغير لون الدائرة الحمراء الى لون اخر V.Line.Weight = 3 وهذا الجزء خاص بسمك الدائرة فاذا قمت بتغيير الرقم تغير سمك الدائرة حسب ما تريد رقيعة او سميكة.

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // زمزم سوف اغامر!! في الرد.. واقول ان هذه العملية لا تصلح في عالم الدوال لان الاكسيل يعتبر هذا الامر مرجع دائري..

وخيراً جزاك حبيبي الفاضل // أبو حنين

بعد اذن الوالدة الكريمة // أم عبد الله الاستاذ الكريم // أبو عمرو اليك الملف على حسب فهمي ولي سؤال ان امكن هو الرقم الذى تريد خروجه في العمود H بالايام ؟! 125_braa.rar