أبو العقاب قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 أخواني الكرام أن أهدف من دخولي في هذا المنتدى هو أن أفيد وأستفيد فكنت كلما سألت أرفقت ملفا للمشاركة وإذا بعمالقة الاكسيل" كرام كرام" يبذلون بكل ما يملكون من معلومات الافادة فبارك الله بهم . ولكن أخواني لقد سألت عن كود طباعة كافة الشهادات فأُجبت بكود جاهز. فهل يمكن وضع تفسير لهذا الكود عسى أن يمكنني الله من استخدامه في تطبيقات أخرى . الكود هو وهو أيضا في المرفقات فمثلا كيف لنا تحديد b1 أو c1 جزاكم الله خيرا ___.rar
أيسم إبراهيم قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 السلام عليكم أخي أبو العقاب Dim i as integer الأستاذ افترض متغير ( i ) من النوع الرقمي لعدد صحيح For i = Range ("b1") to Range("c1") وحدد لهذا المتغير بداية ونهاية بداية القيمة المطلوبة للطباعة تبدأمن قيمة ما هو مكتوب في الخلية (b1) وحتى قيمة ما هو مكتوب بالخلية (c1) Range("b2") = i وحدد أن قيمة الخلية (b2) تساوي قيمة هذا المتغير If( i <= Range ("c1") Then واشترط أن يكون ناتج هذا المتغير يكون أصغر من أو يساوي قيمة الخلية (c1)آخر رقم مطلوب طباعته لو تحقق الشرط تبدأ عملية الطباعة ملاحظات هامة قيمة الخلية (b1) تساوي ما هو مكتوب في فورم الطباعة .... (((( من )))) قيمة الخلية (c1) تساوي ما هو مكتوب في فورم الطباعة .....(((( إلى )))) أتمنى أن أكون وضحت الأمر على قدر المستطاع تحياتي أيسم إبراهيم
خالد القدس قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 السلام عليكم ما شاء الله تبارك العاطي الوهاب جزاك الله خيرا استاذ ايسم لو كل الأكواد تنشرح بهذه الطريقة تكون جاجة روعة في الحقيقة لقد استفدت كثيرا من شرحك لدالة جلب بيانات الطالب للشهادة زادك الله علما ونورا وعملا صلالحاً متقبلا
أبو العقاب قام بنشر يوليو 10, 2009 الكاتب قام بنشر يوليو 10, 2009 شكرا لك أخي أيسم يا ابن الكنانة وبارك الله فيك
هشام شلبى قام بنشر يوليو 10, 2009 قام بنشر يوليو 10, 2009 Sub printall() On Error GoTo 1 Range("o3").Select ActiveCell.FormulaR1C1 = "1" kh_shap_add ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 kh_shap_add ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value = Range("C1").Value Range("a1").Select 1 End Sub هذا كود اخر لطباعة الشهادات 0 والجديد الذى يتميز به هذا الكود انه يضيف دوائر للشهادات وينطبق عليه الشرح الذى سبق لاخى ايسم + Loop Until ActiveCell.Value = Range("C1").Value ( تعنى تتالى الطباعة حتى المدى المحدد فى C1 ( اى اخر رقم فى الشهادات هو الرقم المكتوب فى C1 ) ) و ايضا O3 تعنى المدى المتغير المرتط بالقائمة المنسدلة 0 الكود للا ستاذ خبور تحياتى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.