3 شهادات في صفحه واحده

[ناصر سعيد]

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

اخواني في الله

عمالقه المنتدى

هنا في هذا الملف يوجد كود اكثر من رائع جزى الله صانعه بكل خير واثابه الخير

وهو خاص باتيان الشهادات المحدده للناجحين

ولكنه ياتي بشهادتين في الصفحه الواحده  ... ونريده ياتي ب3 شهادات في الصفحه الواحده كرما منكم تضبيطه

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

 

ثلاث شهادات.rar

تم تعديل يوليو 27, 2017 بواسطه ناصر سعيد

[بن علية حاجي]

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

عند فتح الملف ضاعت الأكواد كلها، هل من الممكن إدراج الأكواد في رد آخر...

بن علية حاجي

تم تعديل يوليو 27, 2017 بواسطه بن علية حاجي

[ناصر سعيد]

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

'   هذا الكود للنابغه ساجده العزاوي
' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه
'تم في 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
''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''

يحفظك الله ويرعاك الاستاذ المحترم بن عليه

=======================

وهذا هو المرفق مره ثانيه

 

شهادات ثلاث 1.rar

[بن علية حاجي]

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

تم عمل المطلوب في الملف المرفق... أرجو أن يفي الغرض...

بن علية حاجي

ثلاث شهادات2.rar

[ناصر سعيد]

اللهم اني اسالك بحق اسمك المبارك

ان تمد اخي المحترم بن عليه الصحه والعافيه وراحه البال ..

امين يارب العالمين

===

الحل متميز كما عهدناك

ليكون الموضوع مكتملا

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

اذا كانت في الصفحه 4 شهادات ماهي الزياده في الكود حتى نزيدها

وكرما منك ارفق ملفا بها جزاك الله كل خير

لان احتمالات الصفحه من شهادتين او ثلاث او 4 فقط

 

[ناصر سعيد]

بعد اجراء التجارب اذا كان عدد الشهادات المطلوبه فردي .. لاتاتي النتائج مضبوطه

 

[بن علية حاجي]

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

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

إن شاء الله أرسل لك لاحقا ملف ثلاث شهادات بهذه التعديلات الجديدة...

وآسف على التأخير في الرد لسبب التفكير في حل مناسب...

بن علية حاجي

أربع شهادات.rar

[بن علية حاجي]

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

وهذا ملف ثلاث شهادات بالتعديلات الجديدة....

بن علية حاجي

ثلاث شهادات.rar

[ناصر سعيد]

الاستاذ الجليل بن عليه

يحفظك ربنا ويرعاك

اكثر من رااائع في علمك وفي كمال اخلاقك ولغتك الراقيه

=====

ولذلك نرجو الشرح للزر المتغير

وكذلك لاسطر الكود ليضاف الى الكنوز

[ناصر سعيد]

يخطر على بالي سوال

كيف يتم تغيير معيار استخراج الشهادات  ؟

حضرتكم عندما استخرجت  ال 3 الشهادات  في الورقه وكذلك ال4

كان المعيار هو ناجح ودور تان والكل .. تمام

طيب لو اردنا ان نغير هذا المعيار مثلا معيار الفصل اين جزئيه التغيير  ؟

هل في المعادله ام جزء اخر من الكود ؟

لكم خالص شكري وتقديري

[بن علية حاجي]

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

52 دقائق مضت, ناصر سعيد said:

يخطر على بالي سوال

كيف يتم تغيير معيار استخراج الشهادات  ؟

حضرتكم عندما استخرجت  ال 3 الشهادات  في الورقه وكذلك ال4

كان المعيار هو ناجح ودور تان والكل .. تمام

طيب لو اردنا ان نغير هذا المعيار مثلا معيار الفصل اين جزئيه التغيير  ؟

هل في المعادله ام جزء اخر من الكود ؟

لكم خالص شكري وتقديري

هذا المعيار نضيفه شرطا في معادلات العمود A من شيت البيانات لترقيم نوع الشهادات المراد استخراجها (مع العلم أن المعايير التي ذكرتها موجودة أيضا في هذه المعادلات)... أما الكود فيقوم فقط بطباعة الشهادات المحددة بهذه المعادلات... سأحاول بإذن الله أن أشرح كود الطباعة خطوة خطوة تبعا لهذه المعادلات...

أخوك بن علية

[ناصر سعيد]

يحفظك الله وبرعاك الاستاذ الجليل بن عليه

[ناصر سعيد]

في ٣١‏/٧‏/٢٠١٧ at 00:35, بن علية حاجي said:

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

هذا المعيار نضيفه شرطا في معادلات العمود A .. سأحاول بإذن الله أن أشرح كود الطباعة خطوة خطوة تبعا لهذه المعادلات...

أخوك بن علية

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

نحن في انتظارك يابطل

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

[قصي]

جزاك الله خيرا استاذ بن عليه

[علي فاهم]

في ٣١‏/٧‏/٢٠١٧ at 00:35, بن علية حاجي said:

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

هذا المعيار نضيفه شرطا في معادلات العمود A من شيت البيانات لترقيم نوع الشهادات المراد استخراجها (مع العلم أن المعايير التي ذكرتها موجودة أيضا في هذه المعادلات)... أما الكود فيقوم فقط بطباعة الشهادات المحددة بهذه المعادلات... سأحاول بإذن الله أن أشرح كود الطباعة خطوة خطوة تبعا لهذه المعادلات...

أخوك بن علية

روعه .. اين الشرح للمعادلات السحريه وكود الطباعه

من فضلك

[ناصر سعيد]

اريد ان اضمها للكنوز فارجو الشرح

بارك الله فيكم وجزاكم ألف خير