كود لتصدير كافة الشهادات بصيغة pdf

[الأستاذ / محمد الدسوقى]

أخى الكريم الأستاذ / محمد _ الشريف

أكواد رائعة جدا جدا أثرت الموضوع وجعلت منه موضوعا مميزا متكاملا

جعله الله في ميزان حساناتك

*************************************************

وكان لدى فكرة .... بما أنكم في مرحلة تصميم شيت عام

1ـ الاتجاه حاليا نحو تصميم ورقة الشيت الرئيسى ليضم الفصلين الدراسيين ( نصف العام وآخر العام )

2 ـ وعليه فيوجد عمودين للنتيجة ( نتيجة نصف العام ـ نتيجة آخر العام )

3ـ فكيف يمكن تطويع كود طباعة النتيجة للناجحين أو الراسبين ليناسب ( نصف العام ـ آخر العام )

4ـ في المرفق قد أضفت قائمة منسدلة لـ ( نصف العام ـ آخر العام ) في ورقة الشهادات والخلية A1 تتغير تبعا لتغير القائمة

هذه مجرد فكرة

فجزاكم الله خيرا وجعل ذلك في موازيين حسناتكم إنه ولى ذلك والقادر عليه

All Certificates print_ FORM OR ALL OR PDF _By _MZMELSHRIEF+PR_N_R_22.rar

[محمود_الشريف]

أخى الكريم الأستاذ // محمد الدسوقى

إليكم ما طلبتم توجد معادلة بأول سطر بالشهادة مرتبطه بالدرجات وتم إضافة الطباعه لنصف العام وآخر العام 

وتم ربط المعادلات بالقائمة المنسدلة لتتغير النتائج

تجد عدد الناجحين مختلفين وكذلك الراسبين حتى تشاهد وتتأكد بتغير النتائج

 

 

 

All Certificates print_ FORM OR ALL OR PDF _By _MZMELSHRIEF+PR_N_R_H_L.rar

[الأستاذ / محمد الدسوقى]

أخى الكريم الأستاذ / محمود _ الشريف

أكواد رائعة غاية فى الدقة والخبرة الواسعة

تسلــــــــــــــــــــــــــم

تــمت التجربة والحمد الله الذى بتعمته تتم الصالحات

ملحوظة : رجـــــــــــــــــاء مراجعة كود  طباعة شهادة راسب آخر العام حيتث يعطى شهادات منوعة لراسب وناجح

سواء فى المرفق خاصتكم  الذى سبق فى المشاركة السابقة لسيادتكم أو الملف الخاص بى الذى أعمل عليه

جلعلكم الله و إيــانــا أعوانا دومــا على الخير

*************************************************

تقبل وافر احترامى وتقديرى

 

تم تعديل فبراير 2, 2017 بواسطه الأستاذ / محمد الدسوقى

[محمود_الشريف]

أخى الكريم الأستاذ // محمد الدسوقى

يبدو أنك لم تأخذ بالك من الجملة المذكورة بتعليقى السابق

(((((((((   وتم ربط المعادلات بالقائمة المنسدلة لتتغير النتائج   )))))))))))

يجب تغير القائمة المنسدلة (( نصف العام & آخر العام )) لتغيير النتائج

لأنها تقوم بتبديل صفوف أعمدة المواد المسجلة بالصف الثانى والثالث ( بدءا من F2 & F3 )وتظهر النتائج بالصف الأول بدءا من ( F1 ) كما ذكرت سابقا 

وتم ربط نتيجة المعادلة الموجودة بالصف الأول بمعادلات الشهادة 

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

 

 

 

 

تم تعديل فبراير 2, 2017 بواسطه محمود_الشريف

[الأستاذ / محمد الدسوقى]

أخى الكريم الأستاذ / محمود _ الشريف

                                                                                                                     أشكرك شكرا جزيلا على سعة صدرك

تــمت التجربة والحمد الله الذى بتعمته تتم الصالحات

جلعلكم الله و إيــانــا أعوانا دومــا على الخير

*************************************************

تقبل وافر احترامى وتقديرى

 

[محمود_الشريف]

أخى الكريم الأستاذ // محمد الدسوقى

جزيتم عنى خيرا ، والحمد لله أنه تم المطلوب 

وتقبل منى وافر الاحترام والتقدير 

 

 

 

 

[ناصر سعيد]

في 1/29/2017 at 01:17, ياسر خليل أبو البراء said:

وعليكم السلام أخي العزيز محمد الدسوقي

في الحقيقة سأتناول نقطة واحدة فقط في الموضوع ، وهي تصدير الشهادات كلها إلى ملف PDF

رابط الملف من هنا

اقسم بالله لم استطع تحميله من هذا الرابط السيء

وانا اثق ان الاستاذ المحترم ياسر

قدم هذا العمل ويبتغي وجه الله

ارجو تغيير الرابط

[ناصر سعيد]

للرفع

[علي المصري]

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

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

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

لأني ظللت وقت كبير من اجل تحميل الملف ولم استطع بالاضافة الى المضايقة التي نواجهها من الاعلانات والصور ....

 

جزيت خيرا على ما تقدمه لنا من علم

 

[ناصر سعيد]

للرفع رفع الله مقداركم

[ناصر سعيد]

Option Explicit

Sub ExportCertificatesToPDF()
    Dim lr          As Long
    Dim grade       As String
    Dim wb          As Workbook
    Dim i           As Long

    Application.ScreenUpdating = False
        lr = Sheets("Data").Cells(Rows.Count, 3).End(xlUp).Row - 4
        grade = Sheets("Data").Range("C1").Value    'Grade Title
        Set wb = Workbooks.Add(xlWBATWorksheet)
        i = 1
        
        With ThisWorkbook.Sheets("Certificates")
            Do Until i > lr
                .Range("O1").Value = i
                .Copy After:=wb.Worksheets(wb.Worksheets.Count)
                i = i + 3   '3 Number Of Certificates
            Loop
            .Range("O1").Value = 1
        End With
    
        Application.DisplayAlerts = False
            wb.Worksheets(1).Delete
        Application.DisplayAlerts = True
    
        wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "شهادات " & grade & ".pdf"
        wb.Close SaveChanges:=False
    Application.ScreenUpdating = True

    MsgBox "Done ...", 64
End Sub

 

 Export All Certificates To One PDF YasserKhalil ExcelLover.rar   تحميل rar مرات التحميل :(2)
الحجم :(33.253) KB