مكتبة الموقع - طبع جوبات

[memo7273]

اعرض الملف

طبع جوبات

---

الاساتذه الكرام والمحترمين اعضاء المنتدي .. السلام عليكم ورحمة الله وبركتاته 

 .. عذرا هذه اول مرة اطلب فيها امرا من هذا المنتدي العظيم واول مره اقوم برفع ملف علي المنتدي 

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

مع مرعاة طباعة عدد 2 جواب في الوررقة الواحدة ... ارجوا المساعدة ولكم جزيل الشكر ..

الفاروق ابتدائي1.rar

---

• صاحب الملف
  memo7273
• تمت الاضافه
  29 ديس, 2016
• الاقسام
  قسم الإكسيل

 

[بن علية حاجي]

السلام عليكم ورحمة الله

تمت بعض التنسيقات وإضافة معادلات لاستدعاء البيانات وكود يقوم بطباعة كافة الجوابات من النموذج مع مراعاة طباعة جوابين في الورقة الواحدة...

بن علية

 

الفاروق ابتدائي1.rar

[ناصر سعيد]

Sub Printing()
  For J = 1 To [I2] Step 2
    If J <= [I2] Then
        [I4] = J
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End If
  Next
    [I4] = 1
End Sub

كود متميز ..جزاك الله الف خير يا اخي الكريم بن عليه

=========================================

قد يكون العدد الاجمالي كبير

ولذلك كرما منك نريد

ان يكون فيه جدول به

من 1 الى ... العدد الذي نبغاه

[ابو عبدالبارى]

1 ساعه مضت, ناصر سعيد said:

Sub Printing()
  For J = 1 To [I2] Step 2
    If J <= [I2] Then
        [I4] = J
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End If
  Next
    [I4] = 1
End Sub

كود متميز ..جزاك الله الف خير يا اخي الكريم بن عليه

=========================================

قد يكون العدد الاجمالي كبير

ولذلك كرما منك نريد

ان يكون فيه جدول به

من 1 الى ... العدد الذي نبغاه

الأخوة الكرام 

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

abo_abary_الفاروق ابتدائي1.zip

[ناصر سعيد]

Sub abo_abary()
[g2] = [e3]
For i = [e3] To [f3] Step 2
[g2] = i
 ActiveWindow.SelectedSheets.PrintOut Copies:=1
  Next
End Sub

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

ارجوكم اشرحو الكود عشان افهمه  وما فائده ال  g2  

[ابو عبدالبارى]

الأخ الكريمناصر سعيد

لشرح الكود

السطر الأول g2   تساوى أول رقم تريد طباعتة وهو فى الخلية E3

السطر الثانى حلقة تكرارية تبدأ من أو رقم تريد طباعتة وهو فى الخلية e3 وتنتهى بآخر رقم تريد طباعتة بالخلية f3 ثم مقدار الزيادة 2

السطر الثالث الخلية  g2 قيمتها تساوى قيمة العداد لأن المعادلة التى فى نص الجواب تبحث عن الرقم الموجود بالخلية فى اسماء الملاحظين

السطر الثالث يطبع الصفحة الحالية

السطر الرابع غلق الحلقة التكرارية

ارجو ان يكون الشرح مفهوم

[ناصر سعيد]

1 ساعه مضت, ابو عبدالبارى said:

السطر الثالث الخلية  g2 قيمتها تساوى قيمة العداد لأن المعادلة التى فى نص الجواب تبحث عن الرقم الموجود بالخلية فى اسماء الملاحظين

حفظك الله ورعاك .. ولكن هذا السطر اريد مزيد من التوضيح

بمعنى اخر لو ازلنا هذا السطر مثلا ماذا يحدث ؟

[ياسر خليل أبو البراء]

اقتباس

لأن المعادلة التى فى نص الجواب تبحث عن الرقم الموجود بالخلية فى اسماء الملاحظين

 

[memo7273]

شكرا  استاذي العزيز  الاساذ /

بن علية حاجي

علي مجهودك وجزاك الله خيرا  وعلما 

هل من الممكن التعديل حتي يمكن اطباعة 3 ثلاث جوبات في الورقة مع اضافة عداد الطباعة 

تم تعديل يناير 10, 2017 بواسطه memo7273