اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب بسيط جدا فى الشهادات للكنترول


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

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

يمكن عمل 3 مواد فقط للتسهيل

ولكم جزيل الشكر

رابط هذا التعليق
شارك

عمل الشهادات يعتمد أولاً على المعادلات لجلب البيانات لكل شهادة وهذه لها أكتر من طريقة تعتمد على معادلات متعددة مثل لووك اب و فى لوك اب وغيرها

ثم تأتى عملية الطباعة وهى قد تعتمد على الكود أو المعادلات أو انواع من التصفية المتقدمة

الرجاء تحديد المطلوب بالضبط وياريت إرفاق ملف للعمل عليه

رابط هذا التعليق
شارك

شكرا اخى الكريم على سرعة الرد

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

ولكم جزيل الشكر

Control.rar

رابط هذا التعليق
شارك

تفضلى يا أستاذة زمزم

لو هذا العمل يؤدى الغرض أنا جاهز للشرح

علماً بأن الصفحة تطبع 3 شهادات متتالية

وصفحة الشهادات مربوطة بصفحة الشيت كنترول أى أن أى تعديل فى الدرجات فى الشيت يتغير تلقائياً فى صفحة الشهادات

أتمنى أن يكون هذا طلبك

Control.rar

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

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

ثانيا اريد توضيح بسيط لكل سطر من الكود حتى استطيع البدء فى فهم الاكوادControl.rar

وان كان لديك شرح مبسط فى الاكواد ممكن الاستعانة به فى دراستها

ولكم جزيل الشكر

رابط هذا التعليق
شارك

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

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

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

علماً بأن ذلك يتيح معاينة 3 شهادات متتالية فقط كل مرة

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

والله أعلم

رابط هذا التعليق
شارك

شرح أكواد الطباعة بالملف

الكود الأول

طبع جميع الشهادات


Sub printall()إسم الكود

Range("I5").Selectإسم الخلية التى بها الرقم المسلسل لأول شهادة

ActiveCell.FormulaR1C1 = "1" التسلسل المستخدم

Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True إطبع إطار الطباعة الذى أمامك نسخة واحدة

Do بعد ذلك قم بالتالى

ActiveCell = ActiveCell + 3 الرقم المسلسل التالى هو الرقم الحالى + 3 وهو عدد الشهادات فى الصفحة عند الطباعة

Activewindow.SelectedSheets.PrintOut إطبع إطار الطباعة المحدد بالتتالى

Loop Until ActiveCell.Value >= Range("c1").Value إستمر فى الطباعة المتتالية حتى تصل لرقم مسلسل أكبر من أو يساوى الرقم الموجودج فى الخلية سى 1

Range("a1").Select قف بالمؤشر فى الخلية A1 بعد إنهاء المهمة

End Sub نهاية الكود

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

Sub اطبع() إسم الكود

    Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  إطبع إطار الطباعة الذى أمامك نسخة واحدة

End Sub نهاية الكود

عشمى أن أكون وفقت فى شرح الكودين

والله أعلم

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information