استخراج الشهادات مع اضافة صور للطلبة

[قصي]

السلام عليكم

نفذت المطلوب بالكود بتوفيق من الله بعد جهد متواصل

الان الملف يعمل بسهولة

ولكن لو يتم ابعاد الاعمدة الغير مستخدمة ويعيد تنظيم الورقة

بشكل انيق يامكاننا تحديد المطلوبات في بداية الكود

المهم الان وصلنا الى الحل وابعاد تلك المعادلات الطويلة

وقد استخدمت الاعمدة AA:AD

فارجوا عدم استخدامها

Option Explicit


Sub Kh_Top_ten_students()

Dim R As Integer, RR As Integer, XX As Integer

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Range("D8:J17").ClearContents

With Range("data1")

    For R = 1 To .Rows.Count

        If .Cells(R, 2) <> 0 Then

            If .Cells(R, [R8]) >= 50 Then

                If [K5] = [V9] Then

                    RR = RR + 1

                    KH_Copy_value R, RR

                Else

                    If [K5] = .Cells(R, 13) Then

                        RR = RR + 1

                        KH_Copy_value R, RR

                    End If

                End If

            End If

        End If

    Next R

End With

Range(Range("AA1:AD1"), Range("AA1:AD1").End(xlDown)).Sort Range("AC1"), xlDescending


For XX = 1 To 10

    If Not IsEmpty(Range("AA" & XX)) Then

        Range("D" & XX + 7).Resize(1, 3).Value = Range("AA" & XX).Resize(1, 3).Value

        Range("G" & XX + 7).Formula = "=Kh_RANK(RC6,R8C6:R17C6,""مكرر"")"

        Range("I" & XX + 7) = Range("AD" & XX)

    End If

Next

Range("AA1:AD1000").Clear

Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = True

End Sub

Function KH_Copy_value(iR As Integer, iRR As Integer)

With Range("data1")

    Cells(iRR, "AA") = .Cells(iR, 2)

    Cells(iRR, "AB") = .Cells(iR, 3)

    Cells(iRR, "AC") = .Cells(iR, [R8])

    Cells(iRR, "AD") = "'" & .Cells(iR, 13)

End With

End Function

تفضلوا المرفق

أشكرك كثيرا

وارجو اضافة أوائل الطلاب بطريقتك السهله فقد اعدت تنظيم الورقه من جديد

وألف شكر

[قصي]

الإضافه ان شاء الله ستتم في الملف السابق لنجمع الشهادات مع الاوائل

[خالد القدس]

السلام عليكم أستاذ الأجيال خبور دمت ودام هذا العطاء الرائع الفريد متعك الله بالصحة والعافية وأثابك عليه في الدنيا والآخرة

[منياوى]

رائع رائع رائع رائع

[أم عبد الله]

أستاذنا العلاّمة مبدع الاكسل

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

جزاك الله خيراً على الأعمال التي تفيدنا كثيراً ونتعلم منها كثيراً وهذا المنتدى به عمالقة الأكسيل حفظكم الله وزادكم علماً ورزقنا وإياكم الفردوس الأعلى من الجنة مع حبيبنا ونبينا محمد صلّ الله عليه

وسلم

الأستاذ / جمال دغيدي

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

[حسن الحاوى]

عمل رائع للأستاذ عبد الله باقشير

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

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

أرجو أن تعطينى رأيكم . و إذا كان الكود يحتاج لتعديل أو اختصار عبقرى من عندك فأرجوا أن توافينى به

هذا هو رابط التحميل

http://www.mediafire.com/?5q3x8w33g2230jk

[سمير نجار]

السلام عليكم

أستاذي الكريم عبدالله باقشير

أحتاج إلى طباعة جميع الشهادات في كل صفحة شهادتين

حاولت ولم أفلح

 

والرجاء شرح كيفية طباعة أكثر من شهادة في صفحة واحدة  سواء 3 او 4 ...

 

الرجاء المساعدة

 

طباعة شهادتين.rar

[محمد عبارة]

دائما مميز باعمالك بارك الله فيك 

[سمير نجار]

السادة الكرام أعضاء ومشرفين

 

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

 

         

[أبو أنس80]

باركالله فيك

[سمير نجار]

للرفع بارك الله فيكم

[عبدالله باقشير]

السلام عليكم

 

اخي سمير............هداك الله

 

هذا الكود مخصص لعمل شهادة واحدة لكل صفحة

وليس بالامكان التعديل عليه حاليا ليلائم طلبك فأرجوا المعذرة..

 

تحياتي

[سمير نجار]

السلام عليكم

 

اخي سمير............هداك الله

 

هذا الكود مخصص لعمل شهادة واحدة لكل صفحة

وليس بالامكان التعديل عليه حاليا ليلائم طلبك فأرجوا المعذرة..

 

تحياتي

 

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

بارك الله فيك وهداني الله وإياك لما يحبه ويرضاه

أشكرك على الرد

وأنا بانتظار التعديل عليه متى قدر الله لك ذلك

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

وحينما تسنح  الفرصة أرجو مراستلي على ايميلي  samnaj00@hotmail.com

وعذراً على هذا الطلب

[ابو خالد التقني]

السلام عليكم 

 

اخوتي في الله 

 

احتاج الى شرح كود ومعادلات وماكرو المستخدمة في عمل مثل هذه الشهادات 

 

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

 

صفحة A4 عند الطباعة على اربع بطاقات كل اتنتين بجانب بعضهما البعض 

 

الرجاء شرح طريقة برمجة وتصميم مثل هذه البطاقة او الشهادة ولكم جزيل الشكر