بطاقات العلامات المدرسية للتلاميذ

[abou_stef]

صباح الخير للجميع

ارفق لكم ملف اكسل لعلامات التلاميذ الشهرية 

بحاجة لتعديل في الكود الخاص بطباعة كل الشهادات بحيث بطبع ان امكن كل الشهادات في ملف pdf واحد

وليس كل شهادة بملف مفرد.

واذا كان لديكم اي اقتراح للتعديل والتحسين

او ان كان لديكم ملف مختلف يؤدي نفس المهمة

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

صفحات الملف المرفق محمية بدون كلمة مرور يكفي عمل unprotect لتفتح كل الخلايا

مع الشكر

Grade 01 A 2024-2025.xlsm

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

السلام عليكم

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

كذلك تحويل الشهادات في ملف واحد

تحويل الشهادات الى PDF قي ملف واحد.xlsm

[بلانك]

في الملف المرفق ارجو عتد تصدير الشهادات بكود الاستاذ / عبدالله بشير ان ترسم الدوائر الحمراء لكل طالب كما بالملف لانه ترسم للطالب الاول وتبقى كما هي للطلاب الباقين حتى لو الطالب اكبر من 10 وهي درجة النجاح ..........وشكرا مقدما على تعب حضرتك

 

•  

تحويل الشهادات الى PDF قي ملف واحد.xlsm

[ابو عارف]

8 ساعات مضت, بلانك said:

لو الطالب اكبر من 10 وهي درجة النجاح

تفضل اليك التعيل

تحويل الشهادات الى PDF قي ملف واحد.xlsm

[بلانك]

بارك الله فيك/ ابو عارف وجعله الله في ميزان حسناتك

[بلانك]

عفوا في تكرار السؤال لان عند التجريب تظهر الملاحظات عندي بالملف 3 شهادات يتم وضع الدوائر الحمراء بالكود لجمبع الشهادات وتصدر على هيئة بي دي اف تمام ..... ولكن!!! (3شهادات الاخير) من مثلا 33 اسم  لايتم وضع الدوائر الحمراء عليها واحيانا يضع دائرة حمراء على طالب ناجح مالسبب؟؟؟؟؟؟؟؟؟؟؟

test.rar

[ابو عارف]

7 ساعات مضت, بلانك said:

ولكن!!! (3شهادات الاخير) من مثلا 33 اسم  لايتم وضع الدوائر الحمراء عليها

تم تعديل انظر المرفق

test.xlsb

[محمد هشام.]

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

جرب هدا

Sub ExportPDF_Circles()
    Dim WS As Worksheet, c As Range, MyRng As Range, V As Shape, pdfPath As String
    Dim x As Integer, r As Integer, lr As Long, wb As Workbook, i As Long, shp As Shape
    Set WS = Sheets("شهادةنصف")
    
    lr = WS.Range("U1").Value: r = 12: x = ActiveWindow.Zoom
    Application.ScreenUpdating = False: Application.EnableEvents = False: Application.DisplayAlerts = False
    Set wb = Workbooks.Add(xlWBATWorksheet): WS.Activate: Set MyRng = WS.Range("D13:P13,D30:P30,D47:P47")
    
    On Error Resume Next
    For Each shp In WS.Shapes
    If shp.AutoShapeType = msoShapeOval Then shp.Delete
    Next shp
    On Error GoTo 0
    For Each c In MyRng
        If c.Value <> "" And IsNumeric(WS.Cells(r, c.Column)) And _
           Not IsEmpty(WS.Cells(r, c.Column)) And (c.Value < WS.Cells(r, c.Column) Or c.Value = "U" Or _
           c.Value = "UU" Or c.Value = "غ") Then
            Set V = WS.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 2, c.Height - 2)
            V.Fill.Visible = msoFalse: V.Line.ForeColor.SchemeColor = 10: V.Line.Weight = 1.5
        End If
    Next c
    
    For i = 1 To lr Step 3
        WS.Range("H1").Value = i: WS.Copy After:=wb.Worksheets(wb.Worksheets.Count)
    Next i
    
    wb.Worksheets(1).Delete
    pdfPath = ThisWorkbook.Path & "\" & "الشهادات" & ".pdf"
    wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
    wb.Close SaveChanges:=False

    Application.ScreenUpdating = True: Application.EnableEvents = True: Application.DisplayAlerts = True
    MsgBox "تم تصدير الشهادات إلى PDF" & vbCrLf & "المسار: " & pdfPath, vbInformation, "تم التصدير"
End Sub

 

[بلانك]

عزيزي الاستاذ الكبير / محمد هشام تلاحظ لي وجود دوائر حمراء على درجات اكبر من 50 وهي درجة النجاح من 100 والطالب ناجح انظر للشهادة المرفقة فما الحل؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ لازم توضع الوائر الحمراء على الاقل من 50 فقط

[بلانك]

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

السلام عليكم

عذرا اخونا بلانك 

صاحب الموضوع الرئيسي  abou_stef وضع سؤاله وتم الاجابه عليه

فلماذا لم تدرج سؤالك في موضوع جديد باسمك بدل من ادراجه مع موضوع لعضو اخر

الا اذا كنتما تفس الشخص

عذرا مرة اخرى ولك كل الاحترام والتقدير

 

[ابو عارف]

 

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

ثانيا هل جربت تعديل الاخير !! لا يوجد دوائر على درجات اللي اشرت في الصور

الشهادات.pdf

test.zip

 

تم تعديل فبراير 6 بواسطه ابو عارف
ضعط المرفق

[بلانك]

لكما كل الحق فيما قلتم ولكن عند تجربة الملف تظهر اشياء مثل هذة وبالتالي نلجأ لكم وزيادة في اثراء الموضوع ......فعفوا واقبلوا عذري ولكم الشكر مقدما

[abou_stef]

أخ عبدالله شكرا لك

وقد حصل تداخل بالمواضيع، لا علاقة لي به

بالعودة للملف الذي أرسلته أولا، حضرتك قمت بتعديل الكود في العمود الأول للشهادة

=@IF($B$8="","",INDEX(بيانات1,$B$8,3))

ولكن لم اعرف كيف حدد بيانات1 في الكود حتى أقوم بتعميمه على باقي الأعمدة.

أخوكم مصطفى سكرية من لبنان

تحويل الشهادات الى PDF قي ملف واحد.xlsm

تم تعديل فبراير 6 بواسطه abou_stef