هشام شلبى

السلام عليكم =========== فى المرفق اريد السطر الملون باللون الاصفر ان يتكرر فى كل الصفحات وخاصة فى الطباعة مثلما بالاكسيل New مستند Microsoft Word.rar

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

السلام عليكم =========== بارك الله فيك اخى الحبيب عماد

السلام عليكم =========== شاهد المرفق ولو ان الموضوع مكانه فى قسم الوورد كتابة على الوورد.rar

السلام عليكم =========== ماشاء الله اخى الحبيب هشام "ابو عبدالله" لا حرمنا الله من جواهرك

السلام عليكم =========== شكرا لك اخى كيماس اتمنى ان تكمل لنا مشاركة كتابة المعادلات بالاكواد وفى كل مرة تختار انت معادلة مختلفة الاخ oawam يمكن تعديل الكود لحماية مجموعة من الخلايا وليس الشيت كله باستخدام الكود Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Selection.Locked = False Range("E7:E1000").Select Selection.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ElseIf CheckBox1.Value = False Then ActiveSheet.Unprotect End If End Sub لتتم الحماية على المدى من E7:E1000 مثلا

السلام عليكم =========== المشكلة الاولى فى طريقها للحل ان شاء الله اما بخصوص المرفق شاهد جزء واحد فقط الان على CheckBox1 اذا كان هو طلبك نكمل او تكمل انت او كما تشاء الكود المستخدم هو Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Selection.Locked = False Range("E7:E1000").Select Selection.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ElseIf CheckBox1.Value = False Then ActiveSheet.Unprotect End If End Sub رصد نصف العام.rar

السلام عليكم ========== ماشاء الله اخى احمد عبقرية فى الاداء بارك الله فيك

السلام عليكم =========== اذا كان هذا ما تريده فهناك حلول افضل استدعاء بيان من صفحة معينة أخرى.rar

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

السلام عليكم =========== تحياتى لاخوانى ابو البراء والحسامى واستاذى احمد يعقوب ولا ارى مكان وسط هذه الافكار الهائلة اخى ولد طيبة اليك فكرتى التى لا تناطح الافكار السابقة فى قوتها ولكنها بسيطة ان شاء الله اعتمدت الفكرة على تكوين معادلات فى الصفحة "اليومية" واستخدام الدالة "VLOOKUP" لنقل البانات المطلوبة HH.rar

السلام عليكم ============ الاخ مصطفى عذرا على التاخير جرب كويس جدا قبل الاعتماد على هذا الشيت به الكثير من المشاكل وحتى الان اعانى من الفتح والقفل له الفيومى.rar

السلام عليكم =========== الاخ oawam شاهد المرفق New ورقة عمل Microsoft Excel (2).rar

السلام عليكم =========== الاخ ابن النيل يجب ان تكون المعادلة فى الخلية DV13 على الصورة =IF(AND(AR13>=$AR$11;AR12>=$AR$11;AP13>=$AP$11);0;1) قمت بتصليح الطالب الاول فقط وعليك بالباقى ابن النيل.rar

السلام عليكم =========== اخى الحبيب يحيى اخى الحبيب "الحسامى بيسك" حلول رائعة للتعلم وهذا حل اخر لاثراء الموضوع ولكنه يوجد الناتج على حسب العدد المفقود فى التسلسل New ورقة عمل Microsoft Excel (2).rar

السلام عليكم =========== بارك الله فيك اخى كيماس على الشرح الوافى وعلى ما تقدمة لخدمة الاعضاء

السلام عليكم =========== الاخ مصطفى ملفك عامل عندى مشسكلة انظر المرفق حاول تعمل له حفظ باسم وارسالة مرة اخرى مشكلة الفيومى.rar

السلام عليكم =========== عذذرا اخى abo_alaa لم ارى مشاركتك بارك الله فيك وهذا حل اخر لاثراء الموضوع عكس دالة فصل اسم ولى الامر 1.rar

السلام عليكم =========== شاهد المرفق عكس دالة فصل اسم ولى الامر.rar

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

السلام عليكم =========== بارك الله فيك اخى الحبيب عماد

السلام عليكم =========== اخى مصطفى الخطأ فى التوزيع سببه ظاهر هو انك فى كل مرة ترسل ملف مختلف عن الذى قبله ففى هذه المرة كتبت داخل الكود ورقة 34 وهى اساسا ورقة 3 عدلت لك على ملفك اذا ظهر خطأ اخر ارسل لى ملفك كامل للعمل عليه بدون اسماء مثلا اذا كنت تخاف على بياناتك اما غير ذلك فسيظل الخطأ " رايح جاى " لاختلاف البيانت بالنسبة لكود المسح سهل بس جرب الاول الملف المرفق

السلام عليكم =========== استخدم هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Locked = False Then Me.Unprotect Password:="123" Target.Locked = True Me.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub حماية بعد الكتابة مباشرة.rar

السلام عليكم ========== استاذ احمد يعقوب رائع كعادتك الحل جميل

السلام عليكم =========== الاخ مصطفى مرفق صورة مع المرفق القادم توضح لك الخطأ فى جزئية النطاقات المعرفة والرسالة التى تظهر لك لانك تختار فى الخلية E عدد اقل من 5 هذا مع التعديل على بعض الارقام التى تخص الصفوف الخارجة فى الكود كنترول جديد.rar مصطفى.rar