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

استاذ // عبد الموجود بدر بارك الله فيك وجزاك الله خيراً وتقبل الله منا ومنكم صالح الاعمال واما بالنسبة لشيت الازهر يا ريت تبعتلي رسالة على الخاص باهم التعديلات..

السلام عليكم ورحمة الله وبركانه تم بحمد الله تنزيل [ الاصدار الخامس ٍ] بمميزاته الجديدة على هذا الرابط http://www.officena.net/ib/index.php?showtopic=54385&hl=

الاستاذ الكبير // عبد الله باقشير 1 ) لي كبير الشرف ان اتقيم من مثلكم 2 ) واما التقيم ب 5 درجات فهي ان كانت من مثلكم فهي عندي بمثابة 5 مليون 3 ) بالنسبة لعدم استخدام الحدث المناسب فجزاك الله خيرا هذا هو الخيط الثاني لي لتعلم الاكواد وهو تعلم ( الاحداث المناسبة ) 4 ) اما بالنسبة للنقطة رقم 2 وهي لم تقيد عمل الكود على نطاق معين فهو يعمل على جميع خلايا الورقة فسامحني استاذي فهي تعمل عل نطاق معين وانا محدده وهو من الخلية a1 الى الخلية a100 For m = 1 To 100 5 ) 3- استخدام الحلقة التكرارية بدون داعي طيب استاذي ممكن تعطيني اي الاكواد المفضلة لعمل هذا غير الحلقات التكرارية لاتعلم كيفية تنفيذها _ بارك الله فيك_

الاستاذ // أبو صلاح 1 ) لم افهم ماذا تقصد فهل تقصد طباعة الطلاب المسلمين لوحدهم مع اخفاء عمود الدين المسيحي والعكس..

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

السلام عليكم ورحمة الله وبركاته أخواني الفضلاء يسعدني ان اقدم لكم [الاصدار الخامس] من شيت التعليم الفني اهم المميزات 1 ) اضافة ورقتان وهما راسب وليس له حق الاعادة راسب وله الحق الاعادة يتم الترحيل لهم بواسطة زر الترحيل في ورقة الشيت لتصبح الورقات المرحلة 4 بدلاً من 3 2 ) تم اضافة عمود بجوار المادة رقم 20 وفائدة هذا العمود هو ادخال النتيجة يدوي بمعني ان المعادلة ستنفذ كما كانت من قبل بالشكل الطبيعي ان كانت الخلية فارغة في العمود المضاف جديد اما اذا تم وضع كلمة له دور ثان للمادة في الخلية في العمود المضاف جديد سيتم رسوب الطالب في المادة وقمت بعمل ذلك نظرا للخلاف الذي تم في مادة العملي!!! 3 ) اضافة عمود حالة الطالب يدوي في ورقة الشيت وقمت بعمله بسبب الخلاف ايضاً الذي تم في كيفية رسوب الطالب ونجاحه وهذا العموود يساعد في تنفيذ حالة الطالب كما يتراى لك 4 ) تغيير المعادلات الموجودة في حالة الطالب لتقسم الطلبة اربع حالات وهي ناجح راسب له حق راسب ليس له حق له دور ثان بدلا مما كانت عليه سابقا حيث كان التقسيم الى ثلاث حالات فقط 5 ) اضافة ثلاث تقسيمات في ورقة نتيجة الدور الثاني في عمود حالة الطالب وهما ناجح وراسب له حق وراسب ليس له حق بدلا من اثنين فقط تنويه : 1 ) احب ان اكرر الشكر للاستاذ // أحمد ايمن لمجهوداته في معرفة قوانين التعليم الفني 2 ) للعلم انا لا اعتبر هذا الاصدار اصدار بالمعنى ولكني اعتبره ملحق للاصدار الرابع 3 ) عند وجد اي خطا انا في انتظاركم لتعديله والسلام عليكم ورحمة الله وبركاته.. التحميل http://www.gulfup.com/?ft36DG

الاستاذ الفاضل والعلامة الكبير // عبد الله باقشير 1 ) اعتذر قبل اي شي ان وصلك عني سوء للفهم 2 ) ما يتضح من مشاركتي انني اريد التعلم 3 ) سامحني أخي الفاضل فانا لم افهم الفروق بين الاكواد واحاول الان ان اسلك طريق الاكود وكل ما تعلمته هو الحلقات التكرارية ونفذت بها بعض الاكواد من عقلي وهي كود التقديرات للطلاب وكود اخفاء صف بشرط معين وهذا الكود في المشاركة رقم 7 4 ) هل معنى كلامك هذا ان الكود في المشاكة رقم 7 فيه خطأ انتظر الرد بشغف علامتنا الكبير وسامحنا ان كان منا اي تقصير...

استاذي الفاضل // أبو صلاح جزاك الله خيراً ولكن ممكن استفسر اين معادلة تحقق من الصحة التي تقصد؟! لان 1 ) التنسيق الشرطي ليس له دخل ولا تاثير بالمعادلات الموجودة!! 2 ) نطاق عمل الكود بعيد تماما عن اي معادلات!!

الاستاذ الحبيب // أبو صلاح تفضل ما تريد ولا تنسى ان تمكن المكرو تنسيق شرطي +كود للكتابة1.rar

السلام عليكم ورحمة الله وبركاته استاذنا الكبير // عبد الله شكرا جزيلا لك وللعلم ما كان هذا قصدي معناها لكن قصدي فائدتها الاستاذ الفاضل الحبيب // ابراهيم أبو ليلة شكرا جزيلا لك لقد استفدت من كلمتك ( الجمل التكرارية ) وتعلمت ما فائدتها والحمد لله تم التنفيذ عملي على ما اردته وحاولت ان اصل الى الكود بابسط الطرق واسرعها فكان الناتج هذا الكود اتمنى التقييم Private Sub Worksheet_SelectionChange(ByVal Target As Range) For m = 1 To 100 If Cells(m, 1) = 9 Then Cells(m, 1).Font.Color = -16776961 If Cells(m, 1) <> 9 Then Cells(m, 1).Font.Color = fff Next m End Sub الحلقات التكرارية - تلوين الخلية بشرطbraa.rar

الوالدة الفاضلة // أم عبد الله بعتذر فقمت برفع الملف قبل ان ارى حلك الرائع والاسهل فيارك الله فيك.

تفضل أخي اتمنى ان يكون المطلوب واعتقد ان حضرتك اخطات في القيمة28.25 حيث ان معنى كلامك يدل على انها ستصبح 28.5 وليس كما كتبت انت 28.على العموكم تفضل المطلوب المنازل العشرية.rar

بارك الله فيك استاذ عبد الله باقشير حل رائع وفكرة ممتازة ولكنها لم تودي الغرض فهي تشترط ان يكون الخلية a1 = 9 ليتم التنفيذ وهذا ما لا اقصده 2 ) ما المقصود بهذا السطر If Target.Address = [A1].Address Then وخصووصا هذه الكلمة Address

السلام عليكم ورحمة الله وبركاته استاذ // أبو هجران رغم انك لم تفعل ما طلبته منك لاعرف مطلوبك ورغم انني لم افهم ما تريده جيدا الى الان ولكن هذه محاولة مني لعلها ما تريده وما فهمته هو انك تريد معرفة كم طالب سيستمتع بدرجات الرفع وهي من 1 درجة الى 10 درجات رفع ثم حساب النسبة المئوية بعد الرفع وانا نفذت ذلك في اول مادة وهي الفزياء فان كان هذا ما تريده فتفضل والا ارفق ملف كما قلت لك يوضح اكثر به الحل ويكان فيه معادلات معدلات الطلاب-braa.rar

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

السلام عليكم ورحمة الله وبركاته مما لا شك فيه انني ادين الى هذا المنتدى بالشكر والعرفان ان ساعدني ان اصل الى ما انا فيه في مجال المعادلات وانا الان احاول ان اتعلم الاكواد وها انا ابدء معكم وها محاولة بسيطة مني لتعلم الاكواد قمت بعمل كود يتم تغيير اللون في الخلية اذا تم تنفيذ الشرط وانا وضعت الشرط مثلا رقم 9 اذا تم كتابته في الخلية رقم a1 يتغير لن الخط الى الاحمر ولكن واجهتني مشكلة وهي كيف يتم تنفيذ هذا الكود على عمود كامل او مجموعة خلايا محددة؟! '==================== 'هذا الكود يوضع في حدث الصفحة وسينفذ في خلية 'a1 'محمد أبو البراء 16/6/2014 '==================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'هذا السطر يجعل كل ما يكتب في الخلية بالون الاسود Range("A1").Font.Color = fff 'هذا السطر يجعل الخلية باللون الاحمر اذا تم الشرط وهو رقم 9 If Range("A1") = "9" Then Range("A1").Font.Color = -16776961 End Sub تلوين خلية اذا نفذ الشرط.rar

السلام عليكم ورحمة الله وبركاته أخي الفاضل// أبو صلاح فلعلك تباغتنا بابن مركزنا رغم اننا نفتخر بكل رجل عمل خيراً او نشره وان كان من اي مكان ونبغض كل رجل عمل شرا او نشره وان كان من الاخوان (اقصد اخواني المقربين ) شكراً على معلوماتك القيمة ..

بعد اذن الاستاذ الفاضل والاخ المعلم الحبيب // رجب جاويش وبعد اذن الاستاذ الفاضل //أبوســـارة لا يزال الامر غامضاً أخي أبو هجران ارسل ملف اكسيل به ما تريد وفيه الحلول يدوي ويكانه فيه معادلات ليتضح المطلوب

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

استاذي الحبيب // أحمد النجار بجد وحشنا ولعل المانع خير!! وسامحنا على تقصيرنا في السوال ولكن كنت من فترة لاخري تاتي على خاطري وجزاك الله خيرا على حلولك..

1 ) ساحاول بإذن الله تعالى لانني ليس عندي الخبرة الكافية في مجال الاكواد 2 ) بالنسبة للملف الذي ارفقته والخاص بي فهو عمل شخصي على السريع لمتطلبات المدرسة فقط ليس فيه امكانيات فهو يتناسب مع ما نحتاجه في المدرسة فقط ولذلك غالب الزارير انا لم افعلها اصلاُ لعدم احتياجها..

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

السلام عليكم ورحمة الله وبركاته هذه حيلة من الحيل قم باستخدامها بإذن الله تعالى ستنفع ولكن انا لم اتم تنفيذ المعادلة كاملة بل قمت بتنفيذها على اول 3 مواد في الشهادة فقط فان اعجبتك سيتم تطويرها لما يتلائم معكم.. =IF(OR(AND(E16>=E15;E17="دون المستوى";E16<>"غ");AND(F16>=F15;F17="دون المستوى";F15<>"غ");AND(G16>=G15;G17="دون المستوى";G16<>"غ"));"راسب بالقانون";"") نظرا لضيق الوقت ضع هذه المعادلة في الخلية f11 وطبعا انا غيرت المكان لانني عند وضعها في الخلية j12 يتم حذف المعادلة وفي انتظار استفساراتك

السلام عليكم ورحمة الله وبركاته الاستاذ الحبيب // أبو انس 1 ) ممكن اعرف اين الكود الذي قمت بعمله ليخرج لك كلمة راسب بالقانون وسانفذ لك ما تريد بإذن الله تعالى 2 ) اما الشيت بتاعي فكل اكواده مفتوحة..!!

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