اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

وخير الناس انفعهم للناس لم اجد منتدى سريع التجاوب مع اعضائه مثلكم

قام بنشر

[size=

4]انا اسف على ازعاجكم وتعبكم معى لى ملاحظة صغيرة عند الطباعة تظهر الصفحة المجاورة للشهادة التى بها امر الطباعةاريد طبع تسلسلى

للشهاداتاو يكون العيب عندىواشكركم كثيرا

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

قام بنشر

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

والرجا منكم متابعة مشاركتى فى هذا الرابط http://www.officena.net/ib/index.php?showtopic=36826&pid=195937&st=0&#entry195937 وهل ترحيل الناجحين والراسبين يعمل بكفاءة ام لا وأرجو الرد ما تيسر لك

مع تحياتى أخ

وك فى الله

أشرف أبو محمد

طباعة الشهادات ABUMODE753.rar

قام بنشر

[size=

4]انا اسف على ازعاجكم وتعبكم معى لى ملاحظة صغيرة عند الطباعة تظهر الصفحة المجاورة للشهادة التى بها امر الطباعةاريد طبع تسلسلى

للشهاداتاو يكون العيب عندىواشكركم كثيرا

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

هذا الملف الخاص بالأخ hben وقد قمت بالشرح بداخله لكيفية الطباعة التسلسلية

والسلام عليكم أشرف أبو محمد

طباعة تسلسلى.rar

قام بنشر (معدل)

السلام عليكم ورحمة الله

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

أخوك بن علية

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

4.rar

تم تعديل بواسطه hben
قام بنشر

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

قام بنشر

السلام عليكم ورحمة الله

أخي الكريم، يمكن أيضا إضافة الكود البسيط التالي إلى كود الورقة 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

قام بنشر

الأخ نور أنور

أو الأخت نورا نور

حسب ما قرأت الإسم

هل حصلت على مرادك أم أدلى بدلوى فى الموضوع ؟

بالطبع الأخوة جازاهم الله خير فيهم الخير والبركة ونا كمان تحت أمرك

ولكن لى سؤال

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

فى الواقع ستختلف طريقة التعامل مع الملف حسب ردك وطريقة غستخدامك للملف المطلوب

فى إنتظار ردك يا غالى

قام بنشر

السلام عليكم ورحمة الله

أخي الكريم، يمكن أيضا إضافة الكود البسيط التالي إلى كود الورقة 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 ؟ لو تكرمت علينا

قام بنشر (معدل)

الأخ الفاضل / abumode75

سامحكم الله

أنا أريد طباعة صفحة بصفحك

أخى الكريم جمال دغيدى لم أقصد شيئا والله سوى الاستفسار وجرب بنفسك فقد جربت ولم يطبع شيئا إلا بعد تعديل الكود وما أقصده أن ننهل من علمك وخبرتكم فى الإكسل وحضرتك نسيت أن تقول رايك فى زر الترحيل ناجح وراسب فى المشاركة وهل يعمل أم لا http://www.officena.net/ib/index.php?showtopic=36826&st=0&gopid=195948&#entry195948

وليكن صدركم رحب لمثلى ولا تغضب منى فنحن أخوة فى الله

تم تعديل بواسطه abumode75
قام بنشر (معدل)

السلام عليكم ورحمة الله

أرجو منك أخى الكريم شرح هذا الكود وماذا يعنى رقما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

(وهذه المعادلات كلها مهمة فلا ينبغي مسحها)

أخوك بن علية

تم تعديل بواسطه hben
قام بنشر

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

قام بنشر

السلام عليكم ورحمة الله

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

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

أخوك بن علية

hben2.rar

قام بنشر

الأخ الكريم والرائع حقا hben انت رائع حقا جزاك الله خيرا والرجا لو فيه شروحات أخرى لأزرار أخرى تتحفنا بها ومعلش لو أثقلت عليك بس ده من عشمنا فى أخونا من بلاد الرافدين حفظها الله وشائر بلاد المسلمين

ودمتم فى رعاية الله

قام بنشر

الأخ العزيز نور أنور

غالباً إنت كنت زميلى حيث أننى عملت بمدرسة إمبابة الثانوية العسكرية بنين عدة سنوات فى الفترة من 1993 إلى 2002

كما أننى من سكان أرض الجمعية إمبابة وقد نكون جيران

نيجى بقى للمهم

أرجو أن يكون الملف المرفق هو طلبك ويحتوى على الآتى

إمكانية بحث عن الشهادة بالإسم أو برقم الجلوس

إمكانية طبع جميع الشهادات بضغطة زر

إمكانية طبع شهادة محددة بضغطة زر

إمكانية طبع مجموعة محددة من الشهادات المتتالية من إلى

يمكنك أن تنسخ وتلصق الداتا التى تريد إظهارها بالشهادات بمكانها المحدد بشيت الشهادة

أو يمكنك عمل ربط بين مكان هذه الداتا بشيت الشهادة والشيت الأصلى الموجودة به الداتا ولكنى شخصياً أفضل الإختيار الأول

أتمنى أن يحوز المرفق على رضاك

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

دمتم جميعاً بود

شهادات إمبابة الثانوية بنين يوسف.rar

  • Like 1
قام بنشر (معدل)

انااسمى (أنور ) بصراحة مش عارف اشكركم ازاى لسعة صدوركم ولا بيدى شىء اقدمه لكم غير الدعوات الصالحة لكم والله شهيد على كلامى

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

تم تعديل بواسطه نورانور
قام بنشر

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

شهادات إمبابة الثانوية بنين 2يوسف.rar

قام بنشر (معدل)

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

لا شكر على واجب أستاذ أنور

وتحياتى للأستاذ صبرى هيكل وإن شاء الله ربنا يوفقه فى إنتخابات رئاسة النقابة

بالنسبة للملف جارى العمل عليه وهارفعهولك خلال نصف ساعة إن شاء الله

وأنصح بالعمل مباشرة على صفحة الشهادات سواء الناجح أو الدور الثانى وسوف أضع معادلة نتيجة الطالب ليتم العمل منها مباشرة بمجرد وضع الدرجات

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

تم تعديل بواسطه يوسف عطا
قام بنشر

تفضل أستاذ أنور الملف مرفق

شهادات ناجح وشهادات من له دور ثان منفصلين

وتم تظليل درجات مواد الدور الثانى لمن له حق دخوله

وتم عمل معادلة نتيجة الطالب

ولا تنسى توصيل تحياتى للزملاء فى إمبابة الثانوية

أخيك يوسف عطا يوسف

مدرس تاريخ

شهادات إمبابة ناجح ودورثان الثانوية بنين يوسف.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information