ابن بنها

جزاكم الله خيرا .. كيف يمكن لهذه الداله المفيده ان تحول الرقم 1 الى الأول والرقم 2 الى الثاني وهكذاوان تساووا في الرقم يضيف كلمة مكرر او هل يوجد رابط يفيدني في هذا

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

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

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

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

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

استاذ سعيد اسعدك الله لو سمحت اريد برنامج عمل المرتبات المدرسيه آخر اصدار لكم ولكم جزيل الشكر

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

زر رصد على الجلوس وزر رصد على سري 1 وزر رصد على سري2 المعادلات في الشيت عايزها محميه من العبث ولاترى

السلام عليكم ممتاز اخي ابو حنين بارك الله فيك وامدك بالصحة والعافية شكرا جزيلا لك

للرفع

شكرا شكرا ماتعليقك على المحاوله في المشاركة 33 اكمل الجميل زر رصد على الجلوس وزر رصد على سري 1 وزر رصد على سري2 المعادلات في الشيت عايزها محميه من العبث ولاترى جزاك الله خيرا

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

[/center] Sub اعمال_ترم_2() Application.ScreenUpdating = False ActiveSheet.Unprotect ' اعمدة النوع والفصل والجنسيه والديانه المراد اخفائها Columns("D:G").Select Selection.EntireColumn.Hidden = True ' الاعمده المراد اظهارها Columns("az:bj").Select Selection.EntireColumn.Hidden = False ' الاعمده المراد اخفائهاالموجوده قبل الاعمدة المطلوب اظهارها Columns("j:ay").Select Selection.EntireColumn.Hidden = True ' الاعمده المراد اخفائهاالموجوده بعد الاعمدة المطلوب اظهارها Columns("bk:DA").Select Selection.EntireColumn.Hidden = True ActiveSheet.Protect Application.ScreenUpdating = True End Sub [center] مارأي اخي استاذ رجب ؟ هل يوجد به نقص عن كودك ؟ ما أوجه القصور به ؟ أول محاوله لتفيير كود ليتلاءم معي ؟ وشكرا

البقاء لله انا لله وانا اليه راجعون ندعوا الله أن يجعل مثواها الجنة

شكرا لك اخي استاذ رجب اكمل الجميل زر رصد على الجلوس وزر رصد على سري 1 وزر رصد على سري2 المعادلات في الشيت عايزها محميه من العبث ولاترى جزاك الله خيرا

بارك الله لك فيها ... وجعلها قرة عين لك

للرفع

جزاك الله كل خير استاذنا عبد الله

الاستاذ رجب كل عام وانت طيب وضعت الدرجات ولكن في التعليم الابتدائي لايوجد جبر ولا هندسه وعند ازالة هذين العمودين تم لخبطة اكواد الرصد وخاصة الترم التاني بدايه 2.rar

جزاك الله كل خير وسأوافيك بالتعديل الذي طلبته

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

الأمر لله بارك الله فيك الملف المرفق في صفحة الرصد اريد ربط الزراير بالاكواد مع ملحوظة ازاله الزراير التي عندما اضغط عليها بيمين الماوس لاتعمل وربط صفحة الرصد بالصفحة الاصليه الشيت بدايه.rar

تمام الله يبارك لك ايه كانت المشكله كنت قد وعدتنا بعمل كنترول جيد للابتدائي مثل الاعدادي نستسمحك في البدء به

ملحوظه غريبه في الكود تظهر دائما منطقة سوداء بعد نسخ الصفوف .. اجو الحل سؤال.rar