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

الاستاذ // ahmed جزاك الله خيرا على هذه الكلمات الرائعة وشكرا على ملاحظاتك في استخراج الاخطاء كما اشكرك شكر خاص على الامداد بمعلومات عن هذه المرحلة جعله الله في ميزان حسناتك..

الاستاذ الحبيب // حمادة عمر شكر لكم على مجهودكم الموقر..

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

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

الاستاذ الحبيب // حمادة عمر جزاك الله خيرا على تقييمك وفقك الله للخير --------------------- ملحوظة : اتمنى الرجوع للمشاركة رقم 10

الاستاذ الحبيب // أبو حنين جزاك الله خيرا على تقييمك وهذه شهادة معتمدة من خبير معتمد فجزاك الله خيرا وفقك للخير --------------------- ملحوظة : اتمنى الرجوع للمشاركة رقم 10

ahmed // الاستاذ جزاك الله خيرا على هذه الكلمات الرائعة وشكرا على ملاحظاتك في استخراج الاخطاء كما اشكرك شكر خاص على الامداد بمعلومات عن هذه المرحلة جعله الله في ميزان حسناتك --------------------- ملحوظة : اتمنى الرجوع للمشاركة رقم 10

الاستاذ // أبو بهاء المصري جزاك الله خيرا على هذه الكلمات الرائعة وانا في خدمتك ولكن ارى انك استطعت انت بفضل الله التحدي وعمل شيت خاص لك.. --------------------- ملحوظة : اتمنى الرجوع للمشاركة رقم 10

السلام عليكم ورحمة الله وبركاته أخواني ادارة موقعنا الحبيب اتمنى من الادارة رفع هذا الملف في المشاركة الاولى ففيه تعديل بسيط لضبط نتيجة أخر العام والله اسال ان يكون أخر تعديل وبعتذر لاخواني ولعل هذا من ضيق الوقت وارهاق الذهن وكثرة المشاغل .. شيت النقل للصنايع_كل التخصصات 14 مادة تضاف للمجموع + 2 مادة لا تضاف للمجموع 29-3-2014.rar

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

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

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

والدتي الفاضلة الأستاذة // أم عبد الله وعليكم السلام ورحمة الله وبركاته 1 ) شكراً على كلماتكم المشجعة دائماً جعلها الله في ميزان حسناتكم 2 ) واما بالنسبة للتخصصات والدتي الفاضلة فعلى حد علمي وما فهمته من الاستاذ أحمد صاحب طلب هذا الشيت ان التعليم الفني اما انتظام واما عمال او شي مقارب لهذا المسمى اولا الانتظام انهم حوالى 9 تخصصات وعند النظر لهذه التخصصات وجدتها على 3 اجزاء أ ) 12 مادة + 2 مادة لا تضاف ب ) 14 مادة +2 مادة لا تضاف جـ ) 16 مادة + 2 مادة لا تضاف واما النوع الثاني وهو العمال نفس التخصصات ولكن بدون اعمال السنة وياريت تتاكدي منها ثاني 3 ) واما بخصوص طلبكم فوالله بحاول ان اجمل شيت يجمع اكبر تخصص به مواد ويصلح للتحصصات الاقل وان لم يتم تنفيذه الايام المقبلة لارهاق ذهني يصيبني فانا الان على اعتاب اخراج النوع الثاني من التخصصات وهو 16 مادة + 2 مادة لا تضاف

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

السلام عليكم ورحمة الله وبركاته بعد الحمد لله والصلاة والسلام على رسول الله وبعد وبعد نزول الاصدارالاول من شيت كنترول النقل(للتعليم الفني) صنايع [انتظام][جميع التخصصات 14 مادة +2 لا تضاف][الاصدار الأول] ظهرت فيه بعض المشاكل البسيطة واهم هذه المشاكل هي 1 ) تاخر فتح الملف 2 ) لم يكن هناك اصدار 2003 3 ) عدم ظهور الطالب الاول في شهادة نصف العام وبعض المشاكل البسيطة الاخرى ولله الحمد تم حل هذه المشاكل في الاصدار الثاني وهذه النسخة اصدار 2003 ليستطيع الجميع استخدامها والان اترككم للتصفح وانا في انتظار ارائكم والسلام عليكم ورحمة الله وبركاته للعلم جميع المعلومات عن هذه المرحلة وما يخصها من درجات والقرارات الوزارية ماخوذة من الاستاذ //ahmed alimer فله الشكر وعند وجود اي أخطاء ارجو الابلاغ لتعديلها والسلام عليكم ورحمة الله وبركاته.. شيت النقل للصنايع_كل التخصصات 14 مادة تضاف للمجموع + 2 مادة لا تضاف للمجموع 29-3-2014.rar

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

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

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

وهذا تعديل بسيط على الكود ليجعل الخلية فارغة بدلا من الصفر Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate Range("h6").Value = "" End Sub مسح خلية_w2.rar

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

السلام عليكم ورحمة الله وبركاته الاخ الحبيب أبو اياد وبصراحة قرات الملف بسرعة وطبعا زي ما انت عارف اخوك.... النتيجة {لم افهم شئ} اضغط ctrl + sheft+ enter وروح على النقطة اللي بعديها ورغم اني وبصراحة لي تحفظ على ارجو ان يحوز الملف على اعجابكم طبعا هو من اعمالى ههههههههههههههههه = {( طبعا انا كداب )} ولكن اضحك الله سنك كما اضحكتني وخليتني افكر طيب لو دست دلوقت ctrl + sheft+ enter بعد {( طبعا انا كداب )} الناتج هيكون ايه ههههههههه

كود رائع الاخ الحبيب الفاضل // أبو حنين جعله الله في ميزان حسناتك وبعد اذنك استاذي الحبيب أبو حنين الاستاذ // صلاح الصغير هذا ما تريد Sub sClear() Dim cel As Range For Each cel In Range("DM6:PC1500") Range(Cells(cel.Row, 1), Cells(cel.Row, 2)).ClearContents Next End Sub Sub AAAAAA() If Range("E1") = "" Or Not IsNumeric(Range("E1")) Then Exit Sub RR = Now() + TimeValue("00:00:" & Range("E1").Value & "") Application.OnTime RR, "sClear" End Sub

السلام عليكم ورحمة الله وبركاته وبعد اذن الاخ الحبيب// وليد فتحي هذا عبارة عن دمج كود الاستاذ وليد مع كود معاينة الطباعة والطباعة Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate Range("h6").Value = 0 End Sub مسح خلية_w1.rar

السلام عليكم ورحمة الله وبركاته احب اشكر اولا الاستاذ الحبيب والاخ العزيز الفاضل // وليد فتحي على الحلول المميزة كما اشكر الاستاذ الفاضل // أحمد أبو زيزو صاحب الشروحات البسيطة المفيدة وبعد اذنهم هذا العمل عبارة عن دمج الاكواد السابقة المميزة مع بعضها والذي تفضل بها الاخ الحبيب وليد فتحي ولهذا فسيكون الناتج كالتالي 1 ) يعطي خاصية الوقوف على الخلية المحمية 2 ) ثم اعطاء الرسالة التحذيرية 3 ) وعند الضغط على ok ينتقل الى الخلية المجاورة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Not Intersect(Target, [a1:iv36536]) Is Nothing Then If Target.HasFormula Then MsgBox "عفوا ليس لديك الصلاحية للتعديل" If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End If End Sub ملحوظة : اذا كان الاكسيل لديكم اصدار اعلى من 2003 يمكن استبدال هذا الجزء في الكود [a1:iv36536] بهذا الجزء ليشمل جميع خلايا الورقة [a1:xfd1048576]

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب // وليد فتحي جزاك الله خيراً على سرعة تلبيتك المعهودة واستاذنك أخي الحبيب في اثرء الموضوع بهذا الحل =IF(B3+B4<1000;1000;IF(B3+A9<2000;B3+B4;2000)) خارج محصور بين عددين_w1.rar