ما تفسير هذا الجزء من الكود

[أبو العقاب]

أخواني الكرام

أن أهدف من دخولي في هذا المنتدى هو أن أفيد وأستفيد

فكنت كلما سألت أرفقت ملفا للمشاركة وإذا بعمالقة الاكسيل" كرام كرام" يبذلون بكل ما يملكون من معلومات الافادة فبارك الله بهم .

ولكن أخواني

لقد سألت عن كود طباعة كافة الشهادات فأُجبت بكود جاهز.

فهل يمكن وضع تفسير لهذا الكود عسى أن يمكنني الله من استخدامه في تطبيقات أخرى .

الكود هو

وهو أيضا في المرفقات

فمثلا كيف لنا تحديد b1 أو c1

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

___.rar

[أيسم إبراهيم]

السلام عليكم

أخي أبو العقاب

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) تساوي ما هو مكتوب في فورم الطباعة .....(((( إلى ))))

أتمنى أن أكون وضحت الأمر على قدر المستطاع

تحياتي

أيسم إبراهيم

[خالد القدس]

السلام عليكم

ما شاء الله تبارك العاطي الوهاب

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

في الحقيقة لقد استفدت كثيرا من شرحك لدالة جلب بيانات الطالب للشهادة

زادك الله علما ونورا وعملا صلالحاً متقبلا

[أبو العقاب]

شكرا لك أخي أيسم يا ابن الكنانة

وبارك الله فيك

[يوسف عطا]

الله ينور عليك ايسم بك

[هشام شلبى]

 

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 الكود للا ستاذ خبور

تحياتى