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

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

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

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

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

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

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

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

استاذي الحبيب // أبو حنين شكراً على مروركم الكريم وتشجيعكم الاكثر من رائع جعله الله في ميزان حسناتك

1 ) بارك الله فيك استاذي الحبيب // رجب جاويش 2 ) انا لا نسى دائما انك استاذي الاول في هذا المجال وهذا الكلام بجد وليس كلام يقال هكذا 3 ) شكرا على هذا الكلام الجامد جعله الله في ميزان حسناتك 4 ) شكرا على اسلوبك الراقي في التوجيهات وفي انتظار كثير من التوجيهات بخبراتك

السلام عليكم ورحمة الله وبركاته بعد الحمد لله والصلاة والسلام على رسول الله وبعد احب ان اهدي هذا العمل _ وهو عملي الاول _ لعمالقة منتدى اوفيسنا والذين طالما تعلمت منهم الكثير وبعتذر لعدم تخصيص الاهداء لاحد منهم وكلهم يستحقوا الذكر والثناء الجميل ولكن حتي لا انسى احد احب ان اجعل هذا الاهداء عام وباختصار هذا هو عملي الاول وهو خاص بشيت كنترول الصف الثاني الثانوي الصناعي تخصص ( نجارة اساس) لعام 2013/2014 و جعلته تجريبي لان هذا هو عملي الاول ، وانا اعلم انه و لابد انه سيقع فيه بعض الاخطاء بالاضافة انه يحتاج الى تعليق اساتذتي الافاضل على هذا العمل.. و بإذن الله ستنزل اصدارات اخرى من هذا الشيت بالاضافة الى تنزيل جميع التخصصات للصف الثاني الثانوي الصناعي السلام عليكم ورحمة الله وبركاته نسخة من الشيت 2003 للعلم جميع المعلومات عن هذه المرحلة وما يخصها من درجات والقرارات الوزارية ماخوذة من الاستاذ //ahmed alimer فله الشكر شيت الصف الثاني الثانوي الصناعي_نجارة اساس.rar

السلام عليكم ورحمة الله وبركاته تفضل أخي الفاضل لعله المطلوب Book-braa.rar

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

السلام عليكم ورحمة الله وبركاته 113 معناه رقم العمود الذي به شروط الترحيل في الورقة التى تريد ترحيلها ( ناجح - راسب _ له دور ثان) او ما يسمي عمود حالة الطالب فقم بتغييره على حسب عمود حالة الطالب عندك 115 أخر عمود يتم نسخه وترحيله فقم بتغييره على حسب أخر عمود به بيانات عندك في الورقة التى تريد ترحيلها واي مشاكل اخرى انا في خدمتك..

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

في خدمتك استاذي الحبيب // أبو غريب وشكراً لدعائك

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب //أبو طارق ما زلت اقول لك (ليس هناك مشكلة) ولعلي جربت أخر ملف وضعه استاذنا // الشهابي في المشاركة رقم 15 وهو ليس به اي مشاكل على الاطلاق وقمت بتجريب كل النقاط وهو يعمل بصورة 100 * 100 ولكني اضفت له شي بسيط جدا لعله يكون السبب في المشكلة عندك وهو قمت بعمل تثبيت الادخال لخلايا النوع حتى تتفق الحروف مع حروف المعادلات جرب مرة أخرى واخبرني بالنتيجة.. العمل بكاملهbraa.rar

تفضل هذا الكود ولا اسهل ولا اروع من كده للعلامة عبد الله باقشير وهو مشروح واي مشكلة انا في خدمتك Sub KH_START() ''' متغيرات بعدد الصفحات المطلوب الترحيل اليها Dim R As Integer, M As Integer, N As Integer, O As Integer ''' أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه Sheets("ناجح").Range("A11:DZ1000").ClearContents Sheets("دور ثان في").Range("A11:DZ1000").ClearContents Sheets("رسوب").Range("A11:DZ1000").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات M = 11: N = 11: O = 12 Application.ScreenUpdating = False ''' بداية ونهاية صفوف الورقة المصدر For R = 11 To 1000 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 113) = "ناجح" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf Cells(R, 113) = "رسوب" Then Range("A" & R).Resize(1, 115).Copy Sheets("رسوب").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' لترك صف فارغ اعلا كل صف O = O + 2 End If ''''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''

أخي الحبيب //أبو غريب الحل بإذن الله بسيط فحضرتك عندك 6 شروط فقط بست نسب بمعنى خمس شروط مختلفة النسب بالاضافة الى 4 مسميات هتاخد نفس الشرط وهو 0 يبقي العدد 6 شروط =IF(C8="معلم";D8*0.5;IF(C8="معلم اول ا";D8*1;IF(C8="كبير";D8*1.5;IF(C8="خبير";D8*1.25;IF(C8="معلم اول";D8*0.75;"0"))))) 3دالة IFbraa.rar

السلام عليكم ورحمة الله وبركاته استاذي الفاضل //حسين شاكر تفضل هاتين الطريقتين لعلهما يفيا الغرض بإذن الله تعالى دالة بطريقة جديدة وسهلة لمعرفة حالة الطالب (راسب او ناجح ) [طريقة 2] لمعرفة حالة الطالب [راسب وناجح][اقل من نصف سطر الدالة]

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

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

السلام عليكم ورحمة الله وبركاته أخواني الاحباء مشرفي واعضاء منتدانا الحبيب اوفيسنا وبعد لقد طلب مني احد الاخوة الفضلاء ان اصمم له شيت كنترول للصف الثاني الثانوي الصناعي وكانت الرد في بداية الامر بعدم الموافقة وطلبت منه ان يحمل اى شيت لاحد عمالقة الاكسيل والسبب انني ارى ان شيتات الاساتذة تغني عما يقوم به مثلي ولكن عندما بحثت في المنتدى وفي بعض المنتديات على هذا الشيت لاعطيه اياه لم اجد هذا الشيت متوفر لاحد الاساتذة .. فقررت مستعينا بالله ان اقبل على هذه الخطوة واقوم بعمل هذا الشيت ولكن وللاسف بعدما تجاوزت الاكثر من 95% من عمل الملف واجهتنى مشكلة _ ولله الحمد على ما قدر _ وهي ان الملف لا يريد الفتح وحاولت بكل الطرق ولكن دون جدوى.. الحمد لله تم التوصل للسبب وهو تلف في نسخة الاوفيس على الجهاز عندي بالاضافة الى وجود مشكلة في الاكواد كما تفضلت الاخت الفاضلة ام عبد الله في الاكواد فى المشاركة رقم 2 ولهذا وبعد اذنكم قمت بحذف الملف المرفق في المشاركة لحين الانتهاء من الملف كاملاً قريباً بإن الله تعالى

السلام عليكم ورحمة الله وبركاته أخي الحبيب استاذ // أبو طارق اظن ان معادلة الاستاذ أبو محمد عباس مضبوطة 100 في 100 ولكن لعلنا لم نفهم مقصودك جيداُ! وهنا السؤال ؟! ما العمود التى تريد حساب النقاط عليه؟! اليس هو عمود المعدل السنوي عمود ae ؟!

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