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

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


إذهب إلى أفضل إجابة Solved by أبو الخضر البعيثي,

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

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

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

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

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

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

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

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

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

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

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

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

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

ملاحظات

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

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

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

وهكذا

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

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

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

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

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

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

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

تحياتي لكم

جمال الحسني

ريمة- اليمن

0967770801151

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

تكتب اسم الصف في الخلية 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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information