إستكمال تصميم برنامج كنترول مدرسي

[جمال الحسني]

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

الاخوة الاعزاء

انا بصدد تصميم برنامج كنترول مدرسي

المشكلة التي واجهتني

اريد كود يقوم بتصدير النتائج النصفية والنهائية الى مصنف جديد

ثم يقوم (هذا الكود) بتصدير النتائج الى pdf

علما بأنه في الشيت (بداخل البرنامج) يعرض صفحة واحدة، ولعرض البقية نستخدم زر الزريادة والنقصان

مرفق لكم شيت نتيجة الطلاب

كيف اقوم بالنسخ الى مصنف خارجي

واقوم بعرض بقية النتائج وحسب قيمة معينة(حسب عدد الطلاب في الصف)

الموجود في الخلية R3

ومن ثم استطيع تصديرها الى pdf

ملاحظات

التغيير با يكون في الخلية j5

بحيث انها تكون +3

ليتم عرض الثلاث النتائج الذي بعد 

وهكذا

وانا اقوم بحفظ نسخة اكسل الى خارج البرنامج لنقوم بارسالها للتربية

ونقوم ايضا بحفظ نسخة pdf للطباعة في المدرسة

وجدت كود يقوم بالطباعة بحلقة تكرارية 

اشتي كود مثله للحفظ والتصدير إلى pdf 

والف شكر وتقدير لكم جميعا 

لقد استفدت من أعضاء هذا المنتدى كثييرا في مجال البرمجة

عنوان مخالف جداً ... تــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

تحياتي لكم

جمال الحسني

ريمة- اليمن

0967770801151

نتائج الطلاب نصفي.xlsb

[أبو الخضر البعيثي]

تكتب اسم الصف في الخلية S2 .

وهذا كود معدل ليتماشى مع طلبك إن شاء الله .

طبعا الكود لأحد الأخوة النابغين في هذا المنتدى لا اتذكر اسمه لكثرة الملفات التي استعنت بها ولكن الله يعلمه فنسأله أن يجزيه وكل الأعضاء كل خير وعافية.

()sub pry_pdf_Mrmid_1_class 
Dim i as integer
for i = 1 to gange ("R3")
i= range ("P3")
if i <= range ("R3") then
Application.screenupdating= false
sheets (Array("mrpry")).select
mypath = "D:/control/midterm/"&range ("S2").value
if Dir(mypath , vb Directory) = "" then Mk Dir mypath
activesheet.range ("B3:W52").ExportAsFixedFormat xl TypePDF, mypath & "/"  & range ("P3").value".pdf" xl quality standard
worksheets ("Mrpry").select
Application.screenupdating= true
End if
Next i
Range("P3") =1
End sub

 

[جمال الحسني]

شكرا جزيلا أخي الكريم 

لقد قمت بعمل بعض التعديلات على الكود واشتغل تمام

بس هناك مشكلة واجهتني

هو ان ترتيب الصفحات ظهر معكوس في ملف pdf 

المطلوب

كود لإعادة ترتيب الصفحات في المصنف قبل التصدير إلى pdf

 مرفق الملف للتعديل على الكود

 

[أبو الخضر البعيثي]

الكود عندي شغال تمام على الكشوفات النهائية ولا توجد مشكلة عكس الترتيب . 

فقط عندك في الملف نطاق الطباعة حتى N52 

نتائج الطلاب نصفي١.xlsb