تضبيط كود راائع .. من فضلكم

[ناصر سعيد]

هذا ملف به زر شهادات الفصول لايعمل جيدا ..

ارجو من عمالقه المنتدى تضبيطه .. جزاكم الله خيرا

 

شهادات رائعه للمبدعه ساجده.rar

[ناصر سعيد]

'''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''

'   هذا الكود للنابغه ساجده العزاوي
' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه
'تم في 27 يونيو 2016
'كمعطيات المحترم ابو أحمد محمدي

''الفكرة هنا اشرحها باختصار
''ناخذ متغير ونضيف له بعد مليء البيانات 1
''
''  فاذا المتغير زوجي نضع البيانات في الشهادة العلوية بالورقة
''  واذا فردي نضع البيانات في الشهادة السفلية بالورقة
''   وعند امتلاء الشهادتين نطبع الورقة
''  ويتكرر اللوب.... اما اذا كانت فردية بالنهاية
''  نجيك هل خلية ام 19 فارغة معناها فقط الشهادة العلوية ممتلئة
''  وبهذا نعرف انها فردية فنطبعها

Sub كل_الناجحين()
'   هذا الكود للنابغه ساجده العزاوي
' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه
'تم في 27 يونيو 2016
'كمعطيات المحترم ابو أحمد محمدي

' متغيرات يجب تعريفها
Const StudentData As String = "رصد الترم الثانى"
Const Shehada As String = "شهادة"

LR = Sheets(StudentData).Range("C7").End(xlDown).Row
' ايجاد اخر صف موجود به بيانات

c = 2
'فائدتها اذا كانت زوجي يضع البيانات في الشهادة العلوية
'واذا فردي يضع البيانات في الشهادة السفلية بالورقة
'====
'هذه الجزئيه خاصه بجميع الطلاب ( ناجحون ودور تان)
For i = 7 To LR
'====
'هذه الجزئيه خاصه بطباعة شهادات محدده
'For i = Sheets(Shehada).Cells(7, 18).Value _
To Sheets(Shehada).Cells(7, 19).Value
'من الخلية التي تحوي رو الطبع الى الخلية الثانية التي تحوي الى ار 7 و اس 7

            Application.ScreenUpdating = False
'لتسريع الكود وعدم رؤية مايحدث في الشيت وبذلك يتم اخفاء الرجفة

If c Mod 2 = 0 Then
'نقسم السي على 2 اذا الباقي صفر اذن سي رقمها زوجي ...
'اذا كان زوجي نضع البيانات في الشهادة العلوية

 If Sheets(StudentData).Cells(i, 157) Like "*" & "نا*" & "*" Then
'''If Sheets(StudentData).Cells(i, 157) = "ناجح" Or _
Sheets(StudentData).Cells(i, 157) = "ناجحة" Then
'رقم عمود المعيار وكلمه المعيار الذي نبحث عنها
'
Sheets(Shehada).Cells(3, 13) = Sheets(StudentData).Cells(i, 2)
'متغير نضع رقم الجلوس في الخلية ام 3 وعند وضعه
'ستظهر البيانات في الخلايا التي وضعنا فيها المعادله

Sheets(Shehada).Cells(12, 3) = Sheets(StudentData).Cells(i, 157)
Sheets(Shehada).Cells(12, 6) = Sheets(StudentData).Cells(i, 158)
'نضع محتوى الخلايا سواء فيها ناجح ناجحة
'او لها له دور ثاني ومنقول لصف في الخلايا اعلاه
'
'
c = c + 1
'نزيد العداد حتى يصبح فردي
' وفي اللوب الثاني يذهب الى الشهادة التحت لان العليا ملأناها
'
'
End If
GoTo 1
'يذهب الى 1 لاخذ رقم جلوس اخر
Else
'اذا كان رقم السي فردي

 If Sheets(StudentData).Cells(i, 157) Like "*" & "نا*" & "*" Then
'If Sheets(StudentData).Cells(i, 157) = "له دور ثان في" Or _
   Sheets(StudentData).Cells(i, 157) = "لها دور ثان في" Then
'رقم عمود المعيار وكلمه المعيار الذي نبحث عنها

Sheets(Shehada).Cells(19, 13) = Sheets(StudentData).Cells(i, 2)
Sheets(Shehada).Cells(28, 3) = Sheets(StudentData).Cells(i, 157)
Sheets(Shehada).Cells(28, 6) = Sheets(StudentData).Cells(i, 158)
c = c + 1
Sheets(Shehada).Range("a1:p31").PrintOut
'وضعنا الطبع هنا في الاف الثانية وليس الاف الاولى للزوجي
'لان تأكدنا تم مليء الشهادتين بالبيانات
'
'
Sheets(Shehada).Cells(3, 13) = ""
Sheets(Shehada).Cells(19, 13) = ""
'بعد الطبع يجب تفريغ الخليتين ام3 و ام 19
'  التي تحوي ارقام الجلوس
'
'
End If
End If
1:
Next i
If Sheets(Shehada).Cells(19, 13) = "" And Sheets(Shehada).Cells(3, 13) <> "" Then
Sheets(Shehada).Range("a1:p15").PrintOut
End If
'هذه الاف وضعناها في حالة شهادة فردية
' ففي حالة ام 19 فارغة  معناها شهادة فردية فقط
'الشهادة العلوية فيها بينات ونعطيه امر بطبعها

Application.ScreenUpdating = True
End Sub
''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''

انظروا الى روعه الكود .. وشرحه

بارك الله في كل من ساهم في ايجاد هذا الملف

[ناصر سعيد]

تم الحل من المحترم الاستاذ القدير محمد صالح

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

 

 

شهادات رائعه لساجدة.rar