أيسم إبراهيم

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

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

السلام عليكم تفضل أستاذنا المرفق به حل المشكل _ إن شاء الله _ دمت بخير أيسم إبراهيم الدور الثانى2009 أيسم ابراهيم.rar

<P> Private Sub CommandButton1_Click()<BR>Range("A3").Select&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'اختيار الخلية A3<BR>&nbsp;&nbsp;&nbsp; ActiveCell.FormulaR1C1 = "1"&nbsp;&nbsp;&nbsp;&nbsp; ' الخلية الاختارة سابقا قيمتها تساوي 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' بداية الطباعة<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Do&nbsp;&nbsp;&nbsp;&nbsp; ' نفذ الطباعة<BR>&nbsp;&nbsp;&nbsp; ActiveCell = ActiveCell + 1&nbsp;&nbsp;&nbsp; ' بداية الإنتقال لطباعة الورقة الثانية بمقدار زيادة يساوي 1<BR>&nbsp;&nbsp;&nbsp; ActiveWindow.SelectedSheets.PrintOut&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' تنفيذ طباعة الورقة التالية<BR>&nbsp;&nbsp;&nbsp; Loop Until ActiveCell.Value = Range("B3").Value&nbsp;&nbsp;&nbsp;&nbsp; 'الإستمرار في تنفيذ طباعة الورقة الثالثة ثم الرابعة ثم ....إلخ<BR>Range("A3").Select&nbsp;&nbsp; ' اختيار الخلية بعد الانتهاء<BR>End Sub</P> <P> <BR><FONT color=#9932cc size=5>الكود المستخدم و شرح مبسط له</FONT></P>

السلام عليكم عذرا أخي الأستاذ بن علية يبدو أننا كنا نجهز المطلوب في نفس الوقت لكن زيادة في الخير و لإثراء الموضوع دمت بخير أيسم إبراهيم

السلام عليكم الأخ الكريم جرب المرفق - إن شاء الله - به ما طلبت دمت بخير أيسم إبراهيم gfshsh.rar

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

السلام عليكم الأستاذ الكريم الأستاذ : عابدين كيف حالك ؟ أتمنى أن تكون بألف خير و صحة هل ما قاله الأخ كيماس صحيح؟؟؟؟؟؟؟؟؟؟

السلام عليكم أخي الكريم في أي فورم يحدث ما ذكرت أرجو التوضيح للتعديل دمت بخير أيسم إبراهيم

السلام عليكم الأخ الكريم تفضل المرفق به فورم حذف بيانات موظف جرب و قوللي ما رأيك دمت بخير أيسم إبراهيم emp.rar

السلام عليكم الأخ الكريم عذرا على التأخير لكن إن شاء الله سنكمل ما بدأنا دمت بخير أيسم إبراهيم

جزاك الله كل خير و شكرا على مرورك الطيب أستاذ أحمد السلام عليكم ور حمة الله

السلام عليكم جميعا الأساتذة : مصطفى الفيومي , حسين 2222 , محمدي عبدالسميع شكرا على مروركم الطيب و جزاكم الله كل خير و إيانا منتظر تعليقاتكم بعد التجربة دمتم بخير أيسم إبراهيم

السلام عليكم جميعا تفضلوا برنامج كنترول الدور الثاني ( للمدارس الإعدادية المصرية )طبقا للقرار 219 مميزات البرنامج 1-يصلح لكل المدارس ( بنين-بنات-مطبق لغة فرنسية-غير مطبق لغة فرنسية-صف أول -صف ثاني)كل في برنامج واحد ما هي إلا كلمة تكتبها 2-به كل ما تريد القيام به من أعمال الكنترول( طباعة أرقام جلوس-طباعة لجان-طباعة شهادات-طباعة أسماء ناجحين وراسبين و مسار-طباعة إحصائيات.......إلخ(جاري تجهيز طباعة الشيتات ) 3-رصد الدرجات بالشكل الأفقي ( درجات الدور الثاني فوق درجات الدور الأول ) 4- حماية كل صفحة شيت الدور الثاني ما عدا الخلايا المطلوب الرصد فيها وزيادة في التوضيح خلايا الرصد مميزة بخطين بلون أزرق. 5-ترحيل الناجحين والراسبين و المسار الخاص بضغطة زر واحدة عيوب البرنامج مسئولية إكتشاف الأخطاء و العيوب و السهو تقع على كاهلكم إخواني الأعزاء ولكم كل الشكر و الدعاء( رحم الله رجلا أهدى إلي عيوبي) أترككم مع البرنامج . أرجو التجريب و موافاتي بآرائكم و تعليقاتكم ثمن البرنامج دعوة خالصة بظهر الغيب لكل من شارك في هذا العمل شكر واجب لكل الأساتذة الكبار في الإكسيل الذين ساعدونا و علمونا و نقلنا عنهم دمتم بكل الخير أيسم إبراهيم روابط تنزيل البرنامج كنترول الدور الثاني كنترول الدور الثاني2

السلام عليكم الأخ الكريم تفضل أخي الكريم الطلب الثاني و هو فورم لإضافة بيانات موظف أما الإزالة فسنجعلها في فورم التعديل إن شاء الله إلق نظرة و قل ما رأيك دمت بخير أيسم إبراهيم emp.rar

السلام عليكم جزاك الله كل خير أخي الأستاذ هشام شكرا على مرورك العطر ياريت تلقي نظرة على الطلب الآخر لأخينا obad65 دمت بخير أيسم إبراهيم

السلام عليكم تفضل أخي الكريم طلبك الأول بالمرفق ألق نظرة و قل ما رأيك دمت بخير أيسم إبراهيم emp.rar

السلام عليكم فعلا عمل رائع و مفيد جزاك الله خير أيسم إبراهيم

<P><FONT color=#9932cc size=5 face="Times New Roman">السلام عليكم جميعا<BR>شكرا لكم على الرد و النصيحة أستاذ محمد و أستاذ كيماس<BR>جاري التجربة<BR>دمتم بخير<BR>أيسم إبراهيم</FONT></P>

السلام عليكم جميعا غالبيتنا مركب على جهازه نسخة أوفيس 2003 وأخرى 2007ور بما 2010 السؤال هو كيف نجعل نسخة 2003 هي الديفولت لبرنامج الإكسيل بمعنى أننا عندما نريد أن نفتح ملفا أول ما يفتح يكون على 2003 دمتم بخير أيسم إبراهيم

السلام عليكم الأخ الكريم ممكن ترفق ملفك بتنسيق 2003 و ربنا يسهل الحال منتظر ردك دمت بخير أيسم إبراهيم

السلام عليكم الأخ الكريم ما بعد حل يقدمه الأستاذ العالم خبور حل آخر يجدي لكن كنت قد جهزت هذه المحاوله يمكن تفيد تفضل المرفق AYSAM.rar

السلام عليكم أستاذنا الفاضل : أستاذ عادل أنا اللي آسف أني سبقت على أستاذي و إلا حرمنا من إبداعاتك دمت بخير أيسم إبراهيم

السلام عليكم الأخ الكريم هل تسأل عن كيفية كتابة كود برمجي ؟؟؟؟ تابع شروحات الأساتذة فهي كثير في المنتدى و خطوة خطوة و بالمثابرة ستتعلم و تكتب كودك بنفسك. أم تسأل عن أن لديك كود و لا تعرف كيف تربطه بزر؟؟ الرجاء التوضيح دمت بخير أيسم إبراهيم

السلام عليكم الأخ الفاضل تفضل المرفق به _ إن شاء الله _ ما طلبت دمت بخير أيسم إبراهيم print.rar