ناصر سعيد

السلام عليكم ورحمة الله يوجد خطوط جميله وسليمه املائيا ولكن اسماءها غير محفوظه هل استطيع تغيير اسمها حتى استطيع ان اجدها اثناء الكتابه

قم بإدراج موديول جديد ثم أضف الكود التالي : ***** معذره اين الكود الذي تقصده

جزاكم الله خيرا

جزاك الله كل خير وبارك فيكم جميعا اخي الكريم لو تم اضافة بيانات التلاميذ اوتوماتيكيا في هذا الملف سيكون معجزة

وعليكم السلام ورحمة الله وبركاته وكل عام وانت واهل المنتدى الكرام بخير وبعد فكره تجمبع الملفات التي وضعها اخي المحترم الاستاذ محمدي عبد السميع قكره مفيده ولكن نطلب من احد المشرفين الكبار ان يضيف هذا الملف في المشاركات الاولى ويكتب تجميع الملفات لغايه تاريخ 25/7/2014 ستكون اكثر فائده من فنح موضوع جديد

جزاكم الله خيرا وبارك لكم

كود التنقل لأعمده معينه للاستاذ الكبير ين عليه جزاه الله خيرا Sub hben() Application.ScreenUpdating = False Range("IT11").Select Range("5:5").EntireRow.Hidden = True If ActiveCell = 1 Then Columns("A:DJ").EntireColumn.Hidden = False If ActiveCell = 2 Then Columns("C").EntireColumn.Hidden = False If ActiveCell = 3 Then Columns("C").EntireColumn.Hidden = True If ActiveCell = 4 Then Columns("R:DJ").EntireColumn.Hidden = False If ActiveCell = 5 Then Columns("R:DJ").EntireColumn.Hidden = True If ActiveCell = 6 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,AA:DJ").EntireColumn.Hidden = True If ActiveCell = 7 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:Z,AJ:DJ").EntireColumn.Hidden = True If ActiveCell = 8 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:AI,AS:DJ").EntireColumn.Hidden = True If ActiveCell = 9 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:AR,BB:DJ").EntireColumn.Hidden = True If ActiveCell = 10 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:BA,BM:DJ").EntireColumn.Hidden = True If ActiveCell = 11 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:BN,BR:DJ").EntireColumn.Hidden = True If ActiveCell = 12 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:BQ,BU:DJ").EntireColumn.Hidden = True If ActiveCell = 13 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:BU,CE:DJ").EntireColumn.Hidden = True If ActiveCell = 14 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:CD,CN:DJ").EntireColumn.Hidden = True If ActiveCell = 15 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:CM,CW:DJ").EntireColumn.Hidden = True If ActiveCell = 16 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:CV,DG:DJ").EntireColumn.Hidden = True Range("A5").Select Application.ScreenUpdating = True End Sub كود التنقل لأعمده معينه.rar

اخي الكريم بن عليه كافأك الله بكل خير يارب تمام

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

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

للرفع

أخي الكريم ناصر سعيد، في الحقيقة الكود بسيط جدا ولا روعة فيه إذ يقوم بإخفاء أو إظهار أعمدة معينة حسب شروط معينة... مع قليل من الشرح على ما تريده لتطبيق الكود على ملفك يمكن تكييف هذا الكود على ملفك... ننتظر شرحك وطلبك... أخوك بن علية شكرا لرقة اسلوبك هذا هو الملف المطلوب في صفحة الشيت نظهر الرقم السري مع الجميع واعمدة الماده فقط كود الدوائر الحمراء على الشهادات.rar

اخي الكريم بن عليه كل عام وانت بخير حلك رااااائع ولذا اريد ان اتعلم كيف افعله في ملف اخر عندي حلك رااااائع ولذا اريد ان اتعلم كيف افعله في ملف اخر

اخي الكريم بن عليه كل عام وانت بخير حلك رااااائع ولذا اريد ان اتعلم كيف افعله في ملف اخر عندي

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

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

بارك الله لك اخي الكريم ابو براء ونحن في انتظار اصدارك الجديد ** نرجو في المشاره 38 و المشاركه 25 نرجو منها نسخه محميه المعادلات لعدم العبث بها

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

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

ماشاء الله ربنا يكرمك ويرضى علينا وعليك معادلات رقم الجلوس ايضا نرجو تغيرها

جزاك اله كل خير وبعد اي اصدار قديم ؟ اصدار الاوفيس ام اصدار نسخة البرنامج فاذا كانت المشكله من اصدار فديم للاوفيس فنرجو تفيير المعادلات بمعادلات اخرى تؤدي الغرض ولاتحدث المشكله نرجو تفيير المعادلات بمعادلات اخرى تؤدي الغرض ولاتحدث المشكله

جزاكم الله خيرا

في كشوف مناداه الدور التاني الخاص بحضرتك تظهر هذا الخطأ

اخي الكريم محمد ابو براء بارك الله لك وحفظك من كل سوء

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