zamzam_mah قام بنشر أغسطس 19, 2012 قام بنشر أغسطس 19, 2012 السلام عليكم ورحمة الله وبركاته الرجاء من الأخوة الكرام كود بسيط لعمل شهادات كنترول مع الشرح لا اريد كود كبير اريد فقط عمل كل الشهادات والطباعة بدون اى اضافة يمكن عمل 3 مواد فقط للتسهيل ولكم جزيل الشكر
يوسف عطا قام بنشر أغسطس 19, 2012 قام بنشر أغسطس 19, 2012 عمل الشهادات يعتمد أولاً على المعادلات لجلب البيانات لكل شهادة وهذه لها أكتر من طريقة تعتمد على معادلات متعددة مثل لووك اب و فى لوك اب وغيرها ثم تأتى عملية الطباعة وهى قد تعتمد على الكود أو المعادلات أو انواع من التصفية المتقدمة الرجاء تحديد المطلوب بالضبط وياريت إرفاق ملف للعمل عليه
zamzam_mah قام بنشر أغسطس 19, 2012 الكاتب قام بنشر أغسطس 19, 2012 شكرا اخى الكريم على سرعة الرد ارسلت ملف كنترول اولى ثانوى به شيت شهادة ارجو كتابه الكود الذى يصنع الشهادات كلها مرة واحدة وطباعتها دون أى اضافات مع الشرح حتى استطيع فهمه لانى وجدت على المنتدى اكواد كثيرة وخبرتى بالاكواد قليلة ثم بعد ذلك فى مرحلة اخرى تساعدنى انشاء الله فى طباعة شهادة واحة فقط وطباعة دور ثان وغير ذلك ولكن اولا اريد الكود البسيط لعمل كل الشهادات وطباعتها ولكم جزيل الشكر Control.rar
يوسف عطا قام بنشر أغسطس 20, 2012 قام بنشر أغسطس 20, 2012 (معدل) تفضلى يا أستاذة زمزم لو هذا العمل يؤدى الغرض أنا جاهز للشرح علماً بأن الصفحة تطبع 3 شهادات متتالية وصفحة الشهادات مربوطة بصفحة الشيت كنترول أى أن أى تعديل فى الدرجات فى الشيت يتغير تلقائياً فى صفحة الشهادات أتمنى أن يكون هذا طلبك Control.rar تم تعديل أغسطس 20, 2012 بواسطه يوسف عطا
zamzam_mah قام بنشر أغسطس 20, 2012 الكاتب قام بنشر أغسطس 20, 2012 شكرا اخى الكريم مجهود رائع ولكن لى طلب اخر ان امكن اولا ان يقوم الكود بعرض الشهادات كلها مرة واحدة فى الشيت قبل طباعتها ثانيا اريد توضيح بسيط لكل سطر من الكود حتى استطيع البدء فى فهم الاكوادControl.rar وان كان لديك شرح مبسط فى الاكواد ممكن الاستعانة به فى دراستها ولكم جزيل الشكر
يوسف عطا قام بنشر أغسطس 20, 2012 قام بنشر أغسطس 20, 2012 بالنسبة لعرض جميع الشهادات لمعاينتها قبل الطباعة مرة واحدة هذا غير ممكن بهذه الطريقة ولكن يتم ذلك ببساطة عن طريق إستخدام خاصية البحث بالإسم أو البحث بالمسلسل أو البحث برقم الجلوس فى المكان المخصص للبحث أو ببساطة بكتابة رقم الجلوس مباشرة فى الخلية المدموجة الملونة فوق الشهادة العليا علماً بأن ذلك يتيح معاينة 3 شهادات متتالية فقط كل مرة بالنسبة لشرح الكود جارى شرحه فى المشاركة التالية والله أعلم
يوسف عطا قام بنشر أغسطس 20, 2012 قام بنشر أغسطس 20, 2012 شرح أكواد الطباعة بالملف الكود الأول طبع جميع الشهادات 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 نهاية الكود عشمى أن أكون وفقت فى شرح الكودين والله أعلم
zamzam_mah قام بنشر أغسطس 20, 2012 الكاتب قام بنشر أغسطس 20, 2012 شكرا اخى الكريم على الاهتمام وارجو شرح الكود ان امكن وكيفية عمله ولك جزيل الشكر
يوسف عطا قام بنشر أغسطس 20, 2012 قام بنشر أغسطس 20, 2012 تم شرح الكود سطر سطر بالتفصيل يا أستاذة فى المشاركة السابقة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.