نورانور قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 طلب هام جدا ومحتاج له ضرورى فى عمل الشهادات المدرسية وكيفية طباعتها كلها اوعدد منهابارك الله فيكم مرفق الشيت والشهادة 2.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 السلام عليكم ورحمة الله أخي الكريم، هذه محاولة في الملف المرفق. تم تغيير بعض التنسيقات ومسح معلومات من الملف.... أرجو أن يكون هذا المطلوب.. أخوك بن علية 2_hben.rar رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 السلام عليكم ورحمة الله تفضل 3.rar رابط هذا التعليق شارك More sharing options...
نورانور قام بنشر مايو 25, 2011 الكاتب مشاركة قام بنشر مايو 25, 2011 بصراحة لم اجد كلمات شكر اعبر بها عن شكرى لكم وسرعة الرد فعلا انكم خبراء وبارك الله فيكم وخير الناس انفعهم للناس لم اجد منتدى سريع التجاوب مع اعضائه مثلكم رابط هذا التعليق شارك More sharing options...
نورانور قام بنشر مايو 25, 2011 الكاتب مشاركة قام بنشر مايو 25, 2011 [size= 4]انا اسف على ازعاجكم وتعبكم معى لى ملاحظة صغيرة عند الطباعة تظهر الصفحة المجاورة للشهادة التى بها امر الطباعةاريد طبع تسلسلى للشهاداتاو يكون العيب عندىواشكركم كثيرا وإذا كان ممكن كيف يمكن عمل هذا الشيت بالبحث برقم الجلوس تعطى شهادة الطالب بصراحة فتحتم نفسى للعمل على هذه البرامج لأننى وجدت من يساعدنى بعد الله سبحانه وتعالى رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 الأخ الكريم جمال دغيدى بعد إذنكم لقد اطلعت على الملف وإنه لرائع حقا ولكن كود الطباعة قمت بالتعديل لأن فيه خطأ وأرجو منكم مراجعة هذا الكود لأن حضرتك وضعته فى مشاركات كثيرة وبه نفس الخطأ والرجا منكم متابعة مشاركتى فى هذا الرابط http://www.officena.net/ib/index.php?showtopic=36826&pid=195937&st=0&#entry195937 وهل ترحيل الناجحين والراسبين يعمل بكفاءة ام لا وأرجو الرد ما تيسر لك مع تحياتى أخ وك فى الله أشرف أبو محمد طباعة الشهادات ABUMODE753.rar رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 [size= 4]انا اسف على ازعاجكم وتعبكم معى لى ملاحظة صغيرة عند الطباعة تظهر الصفحة المجاورة للشهادة التى بها امر الطباعةاريد طبع تسلسلى للشهاداتاو يكون العيب عندىواشكركم كثيرا وإذا كان ممكن كيف يمكن عمل هذا الشيت بالبحث برقم الجلوس تعطى شهادة الطالب بصراحة فتحتم نفسى للعمل على هذه البرامج لأننى وجدت من يساعدنى بعد الله سبحانه وتعالى هذا الملف الخاص بالأخ hben وقد قمت بالشرح بداخله لكيفية الطباعة التسلسلية والسلام عليكم أشرف أبو محمد طباعة تسلسلى.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 (معدل) السلام عليكم ورحمة الله أخي الكريم، ومواصلة على عمل أخي الحبيب جمال جزاه الله عنا خير الجزاء، أضفت لك أمرين للطباعة : طباعة الكل وطباعة حسب رقم الجلوس... إن شاء الله يكون هذا جزء من المطلوب.... أخوك بن علية ملاحظة: بالنسبة للطباعة التسلسلية (أو الطباعة المنفردة أو الطباعة الكلية) فيمكنك استعمال الملف والعمل الذي أرفقته في رد سابق وقد شرحه أخي الكريم أشرف أبو محمد بارك الله فيه وجزاه الله خير الجزاء.... 4.rar تم تعديل مايو 25, 2011 بواسطه hben رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 السلام عليكم الأخ الكريم hben مش قلك إيه سوى جزاك الله خيرا ودائما أنت متفوق ورائع حقا وكم أتحفتنا برائعك سلام الله عليكم أخى فى الله رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 السلام عليكم ورحمة الله أخي الكريم، يمكن أيضا إضافة الكود البسيط التالي إلى كود الورقة Sheet2 حتى يتم تحديث الشهادة تلقائيا حسب رقم الجلوس الذي تم إدخاله في الخلية J7... Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 7 And Target.Column = 10 Then Range("M1") = Range("J6") End Sub وقد وضعته في الملف المرفق... أخوك بن علية 5.rar رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 الأخ الفاضل / abumode75 سامحكم الله أنا أريد طباعة صفحة بصفحك رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 الأخ نور أنور أو الأخت نورا نور حسب ما قرأت الإسم هل حصلت على مرادك أم أدلى بدلوى فى الموضوع ؟ بالطبع الأخوة جازاهم الله خير فيهم الخير والبركة ونا كمان تحت أمرك ولكن لى سؤال هل ستقوم بإستخدام الملف الذى نعمل عليه بحيث ستقوم بعملية لصق للدرجات فيه ثم تطبع الشهادات ؟؟ أم ستقوم بأخذ الأكواد والمعادلات من الملف المرفق لملفكم الخاص الذى تعمل عليه ؟؟ فى الواقع ستختلف طريقة التعامل مع الملف حسب ردك وطريقة غستخدامك للملف المطلوب فى إنتظار ردك يا غالى رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 السلام عليكم ورحمة الله أخي الكريم، يمكن أيضا إضافة الكود البسيط التالي إلى كود الورقة Sheet2 حتى يتم تحديث الشهادة تلقائيا حسب رقم الجلوس الذي تم إدخاله في الخلية J7... Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 7 And Target.Column = 10 Then Range("M1") = Range("J6") End Sub وقد وضعته في الملف المرفق... أخوك بن علية 5.rar أرجو منك أخى الكريم شرح هذا الكود وماذا يعنى رقماRow = 7 وColumn = 10 ؟ لو تكرمت علينا رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 (معدل) الأخ الفاضل / abumode75 سامحكم الله أنا أريد طباعة صفحة بصفحك أخى الكريم جمال دغيدى لم أقصد شيئا والله سوى الاستفسار وجرب بنفسك فقد جربت ولم يطبع شيئا إلا بعد تعديل الكود وما أقصده أن ننهل من علمك وخبرتكم فى الإكسل وحضرتك نسيت أن تقول رايك فى زر الترحيل ناجح وراسب فى المشاركة وهل يعمل أم لا http://www.officena.net/ib/index.php?showtopic=36826&st=0&gopid=195948&#entry195948 وليكن صدركم رحب لمثلى ولا تغضب منى فنحن أخوة فى الله تم تعديل مايو 25, 2011 بواسطه abumode75 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 (معدل) السلام عليكم ورحمة الله أرجو منك أخى الكريم شرح هذا الكود وماذا يعنى رقماRow = 7 وColumn = 10 ؟ لو تكرمت علينا أخي الكريم، هذا الكود يسمح بتغيير قيمة الخلية M1 بقيمة الخلية J6 إذا تم تغيير مضمون الخلية الموجودة في تقاطع السطر (ROW) رقم 7 والعمود (COLUMN) رقم 10 وأقصد بها الخلية J7 (الخلية التي تحوي رقم الجلوس). بالنسبة للكود يمكن أن يكون من الشكل: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = Cells(7, 10) Then Range("M1") = Range("J6") End Sub أو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = ٌRange("J7") Then Range("M1") = Range("J6") End Sub أو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = [J7] Then [M1] = [J6] End Sub ملاحظات (نسيت أن أذكرها في الملفات المرفقة السابقة): 1- تم إضافة معادلات في العمود الأول من الشيت الأول Sheet1 تقوم بتغيير الرقم التسلسلي تلقائيا حسب مضمون الخلية في العمود B المقابلة لها في كل سطر (صف)... 2- تم إضافة معادلات في الخلايا الموجودة تحت زر "طباعة الكل" واحدة مضمونها 1 والأخرى القيمة الكبرى Max للعمود A من Sheet1 ومعادلة أخرى تحت زر "طباعة رقم الجلوس" تقوم بجلب الرقم التسلسلي من العمود A في Sheet1 حسب "رقم الجلوس" في الخلية J7 (وهذه المعادلات كلها مهمة فلا ينبغي مسحها) أخوك بن علية تم تعديل مايو 25, 2011 بواسطه hben رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 جزاك خير الجزاء على هذا الشرح وعلى فكرة انا لاحظت المعادلات اللى حضرتك قلتها بس أرجو من سيادتك توضيح بسيط هو الزر sppiner اللى بجوار زر طباعة الصفحة الحالية كيف يتم تفعليه لو حبات أعمله شيت آخر فى عمل آخر وجزاكم الله خيرا أخى الحبيب المتألق دائما وأنعم الله عليكم بنعمة الأمن والأمان فى بلدكم العراق الشقيق رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 الاخوة الاعزاء / الاساتذة : ابن علية , دغيدي جهود تستحق القدر وفقكم الله ياسر الحافظ رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 السلام عليكم ورحمة الله جزاك خير الجزاء على هذا الشرح وعلى فكرة انا لاحظت المعادلات اللى حضرتك قلتها بس أرجو من سيادتك توضيح بسيط هو الزر sppiner اللى بجوار زر طباعة الصفحة الحالية كيف يتم تفعليه لو حبات أعمله شيت آخر فى عمل آخر وجزاكم الله خيرا أخى الحبيب المتألق دائما وأنعم الله عليكم بنعمة الأمن والأمان فى بلدكم العراق الشقيق أخي الكريم لم أجد طريقة للشرح إلا بملف فلاشي (والنسخة المستعملة هي أوفيس 2003 بالعربية)، أتركك مع الملف وخطوات إنشاء هذا النوع من الأزرار... أخوك بن علية hben2.rar رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 الأخ الكريم والرائع حقا hben انت رائع حقا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 الأخ الكريم والرائع حقا hben انت رائع حقا جزاك الله خيرا والرجا لو فيه شروحات أخرى لأزرار أخرى تتحفنا بها ومعلش لو أثقلت عليك بس ده من عشمنا فى أخونا من بلاد الرافدين حفظها الله وشائر بلاد المسلمين ودمتم فى رعاية الله رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر مايو 25, 2011 مشاركة قام بنشر مايو 25, 2011 الأخ العزيز نور أنور غالباً إنت كنت زميلى حيث أننى عملت بمدرسة إمبابة الثانوية العسكرية بنين عدة سنوات فى الفترة من 1993 إلى 2002 كما أننى من سكان أرض الجمعية إمبابة وقد نكون جيران نيجى بقى للمهم أرجو أن يكون الملف المرفق هو طلبك ويحتوى على الآتى إمكانية بحث عن الشهادة بالإسم أو برقم الجلوس إمكانية طبع جميع الشهادات بضغطة زر إمكانية طبع شهادة محددة بضغطة زر إمكانية طبع مجموعة محددة من الشهادات المتتالية من إلى يمكنك أن تنسخ وتلصق الداتا التى تريد إظهارها بالشهادات بمكانها المحدد بشيت الشهادة أو يمكنك عمل ربط بين مكان هذه الداتا بشيت الشهادة والشيت الأصلى الموجودة به الداتا ولكنى شخصياً أفضل الإختيار الأول أتمنى أن يحوز المرفق على رضاك واشكر الأخوة أساتذتى الأفاضل على الجهود التى بذلوها وكلها طرق صحيحة لتحقيق المطلوب فلهم الشكر الجزيل خاصة أخويا العزيز إبن علية وأخى الكبير دغيدى دمتم جميعاً بود شهادات إمبابة الثانوية بنين يوسف.rar 1 رابط هذا التعليق شارك More sharing options...
نورانور قام بنشر مايو 25, 2011 الكاتب مشاركة قام بنشر مايو 25, 2011 (معدل) انااسمى (أنور ) بصراحة مش عارف اشكركم ازاى لسعة صدوركم ولا بيدى شىء اقدمه لكم غير الدعوات الصالحة لكم والله شهيد على كلامى بالنسبة للشهادة والشيت سوف استخدمهم مباشرة وكمان اعرف منهم المعادلات للتدريب عليها وجزاكم الله خيرا بجد امبابة الثانوية اثبت ان كل اولادها رجالة ويسعدنى ان اتشرف بيك فى اى وقت بالمدرسة وانا مدرس فيزياءوهذا شرف كبير ان نكون زملاء وان اسكن فى شارع المطار تم تعديل مايو 25, 2011 بواسطه نورانور رابط هذا التعليق شارك More sharing options...
نورانور قام بنشر مايو 25, 2011 الكاتب مشاركة قام بنشر مايو 25, 2011 اشكرك جدا يا أستاذ يوسف وطالما طلعنا زملاء اطمع شوية مرفق الملف مرة اخرى به شهادة ناجح وراسب ارجو التصميم على ذلك مع تظليل الطالب الراسب الذى هو اقل من النهاية الصغرى كما بالشهادة لأن الراسب له شهادة مفصلة والناجح له شهادة أنا هتعبك معايا وانا سعادتى كبية اننا طلعنا زملاء بس انت اثبت انك اخ فعلا لأن نادرا ما أحد يفعل ذلك كما فعلته معى لأنى مجرب كثير والله يوسع رزقك ويرزقك من حيث لا تحتسب شهادات إمبابة الثانوية بنين 2يوسف.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر مايو 26, 2011 مشاركة قام بنشر مايو 26, 2011 (معدل) اشكرك جدا يا أستاذ يوسف وطالما طلعنا زملاء اطمع شوية مرفق الملف مرة اخرى به شهادة ناجح وراسب ارجو التصميم على ذلك مع تظليل الطالب الراسب الذى هو اقل من النهاية الصغرى كما بالشهادة لأن الراسب له شهادة مفصلة والناجح له شهادة أنا هتعبك معايا وانا سعادتى كبية اننا طلعنا زملاء بس انت اثبت انك اخ فعلا لأن نادرا ما أحد يفعل ذلك كما فعلته معى لأنى مجرب كثير والله يوسع رزقك ويرزقك من حيث لا تحتسب لا شكر على واجب أستاذ أنور وتحياتى للأستاذ صبرى هيكل وإن شاء الله ربنا يوفقه فى إنتخابات رئاسة النقابة بالنسبة للملف جارى العمل عليه وهارفعهولك خلال نصف ساعة إن شاء الله وأنصح بالعمل مباشرة على صفحة الشهادات سواء الناجح أو الدور الثانى وسوف أضع معادلة نتيجة الطالب ليتم العمل منها مباشرة بمجرد وضع الدرجات وأى خدمة أخرى أنا فى الخدمة وكذلك جميع أعضاء منتدانا الأفاضل فكلهم يقدمون كل مساعدة ممكنة لإخوانهم جعلها الله فى موازين حسناتهم تم تعديل مايو 26, 2011 بواسطه يوسف عطا رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر مايو 26, 2011 مشاركة قام بنشر مايو 26, 2011 تفضل أستاذ أنور الملف مرفق شهادات ناجح وشهادات من له دور ثان منفصلين وتم تظليل درجات مواد الدور الثانى لمن له حق دخوله وتم عمل معادلة نتيجة الطالب ولا تنسى توصيل تحياتى للزملاء فى إمبابة الثانوية أخيك يوسف عطا يوسف مدرس تاريخ شهادات إمبابة ناجح ودورثان الثانوية بنين يوسف.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.