عمل كود طباعة .. ناجح .. دور ثاني .. في شيت شهادات آخر العام .. بالملف المرفق

[فايز فراج]

السلام عليكم 

الرجاء من فضلكم عمل كود 

1 . طباعة الناجحين 

2 . طباعة الدور الثاني 

في شيت  .. شهادات آخر العام  ... بالملف المرفق 

[بن علية حاجي]

مكرر

شيت كنترول الصفين الرابع والخامس الإبتدائي.rar

تم تعديل يونيو 11, 2017 بواسطه بن علية حاجي

[ناصر سعيد]

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

Sub Print_All()
'هذا الكود للمحترم  الفذ بن عليه حاجي
'الهدف من الكود هو طباعه  كل الشهادات
'ستكون الصفحه بها 4 شهادات
'تم هذا الكود في 10 /6 /2017
'=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*==*=*=*

  'اسم خليه نهاية الطباعه( إلى )
  '(Step 4)كل 4 شهادات في صفحه
  For I = 1 To [O1] Step 4
  
  'اسم خليه بدايه الطباعه( من )
    [N1] = I
    
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  Next
  [N1] = 1
End Sub

 

=========================

ماهو التغيير اللازم في الكود ليصبح الطباعه من - الى ؟

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

تم تعديل يونيو 11, 2017 بواسطه ناصر سعيد
التنسيق

[بن علية حاجي]

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

أخي الكريم سعيد، إن أمر الطباعة من إلى في الكود موجود في الأمر For I = 1 To [O1] أي من القيمة 1 إلى قيمة الخلية O1 (التي تحوي أكبر قيمة التسلسل) ولجعل الكود يعمل بتخصيص قيمة البداية (من) وقيمة النهاية (إلى) يجب جعل هذه القيم في خلايا أخرى تختارها مثلا الخلية P2 لقيمة البداية (من) والخلية Q2 لقيمة النهاية (إلى) أما قيمة الخلية O1 نجعلها قيمة اختبار حتى لا تتجاوزها قيمة المتغير I في الطباعة فيكون الكود بالتالي كما يلي:

Sub Print_FROM_TO()
  For I = [P2] To [Q2] Step 4
     IF I <= [O1] THEN
       [N1] = I
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
     END IF
  Next
     [N1] = 1
End Sub

أخوك بن علية

[ناصر سعيد]

الاستاذ الكبير بن عليه

من - الى تحتاج الى خليتين  تمام مفهومه دي

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

والخليه الاخيره N1 ... مافائدتها علاقتها ايه بالكود ؟

مجرد سؤال ؟

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

[بن علية حاجي]

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

قيمة الخلية N1 التي تأخذ قيمها من المتغير I في الكود من... إلى... (بالخطوة 4) هي بداية قيم البحث التي تعتمدها معادلات الشهادات، بالنسبة للشهادات فقيم بحثها تجدها في الخلايا N50 ، N37 ، N24 ، N11 التي تحوي على الترتيب المعادلات التالية: N1 = ثم N11 + 1 = ثم N24 + 1 =  ثم N37 + 1 = (أي القيم الموالية لقيمة N1)...

أخوك بن علية

[ناصر سعيد]

اخي الكريم بن عليه

هل يمكن الاعتماد على خليه رقم الجلوس بدل الخليه  N

ام لابد من الاعتماد على الخليه N

=================

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

[بن علية حاجي]

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

في الحقيقة لم لأفهم هذا، ولكن أقول إن قيمة الخلية N تعتمد على تسلسل ما (في المثال هي قيم العمود A) أما إذا كنت تريد أن تكون قيمها "رقم الجلوس" فيمكن ذلك إلا أنه يجب التعديل في معادلات جلب البيانات للشهادات باعتبار أن قيم البحث أصبحت "أرقام الجلوس" وليس قيم عمود التسلسل... والله أعلى وأعلم

أخوك بن علية

[ناصر سعيد]

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

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

[بن علية حاجي]

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

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

اخوك بن علية حاجي

طباعة الشهادات حسب رقم الجلوس.rar

[ناصر سعيد]

المحترم بن عليه

تم نقل الموضوع الى هذا الرابط الموجود ادناه

 

 

[فايز فراج]

22 ساعات مضت, بن علية حاجي said:

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

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

اخوك بن علية حاجي

طباعة الشهادات حسب رقم الجلوس.rar

السلام عليكم  .. بن علية حاجي  ..

كل عام وانت بخير 

ألف شكر جداااا على كود الطباعة المخصص .. الطلاب الناجحين  ... الدور الثاني 

تم تجربة كود الطباعة المخصص ال حضرتك عملته بنجاح على ملف آخر عندى 

علما بأن في شيت  .. شهادات آخر العام  .. كود لوضع الدوائر الحمراء على طلاب الدور الثاني 

لكن ظهرت مشكلة حلها عندك إن شاء الله 

تنحصر المشكلة في  ... 

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

أرجوا من حضرتك العمل على الملف المرفق  بالشرح البسيط حتى أتمكن من العمل على أعمالي الأخرى 

وشكرااااااااا 

الصف الأول الإبتدائي.rar

تم تعديل يونيو 13, 2017 بواسطه فايز فراج