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

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


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

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

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

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

ولكن أخواني

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

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

الكود هو

80963726.png

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

فمثلا كيف لنا تحديد 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 الكود للا ستاذ خبور

تحياتى

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

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

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



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

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

Important Information