ناصر سعيد

نسخه ولا اروع الجديد فيها في الشهادات انها تستيطيع ان تستخرج الناجح والناجحه او الراسب والراسبه If .Cells(R, 1) Like "*" & Nd & "*" Then أوائــــــل الطلبه والشهادات وشهادة التقدير.rar ========== هذا السطر البرمجي خاص بالمحترم الاستاذ ياسر خليل جزاه الله خيرا

الاستاذ المحترم ياسر خليل جزاك الله الف الف خير نحن عندما نضغط على زر الناجحين تظهر الشهادات بشرط ان يكونو ناجحين وعندما نضغط على زر الدور التاني تظهر الشهادات ولكن بشرط ان يكونوا لهم دور تان طيب عايزين الشهادات تطلع بشرط الفصول يعني عايز شهادات فصل 5/1 مثلا وهكذا

الفيديو يعمل .. جزاك الله كل خير استاذ ياسر خليل

ربنا يبارك لك استاذ ياسر خليل == الفيديو لايعمل في المشاركه الاولى هل يمكن طباعه الشهادات بدل كلمه ناجح نكتب فصل ونطلع الشهادات بمعيه الفصول ربنا يبارك لك استاذ ياسر خليل == الفيديو لايعمل في المشاركه الاولى هل يمكن طباعه الشهادات بدل كلمه ناجح نكتب فصل ونطلع الشهادات بمعيه الفصول

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

الان ارفع لك القبعه .. جزاك الله كل خير وبارك لك استاذ ياسر خليل اكمل جميلك في جزئيه اخرى تعجبني بدايه هذا الكود بمعنى انه يضع كل المتغيرات في اول الكود اتعشم منكم ان تجعل هذا الكود في الملف المرفق في هذه المشاركه ان يتميز بهذه الميزه ( ان تكون المتغيرات في اول الكود ) شهادات رائعه لساجدة.rar

لاساتذه المنتدى وعمالقته ربنا يبارك فيكم هذا ملف للاستاذ المحترم محمود الشريف يستخرج به الناجحين والراسبين ولكن بمعيار كلمه واحده مثلا ناجح .... ويوجد ناجح وناجحه او راسب وراسبه كيف يمكن تعديل هذه الجزئيه في الكود ؟ طباعة شهادات.rar طباعة شهادات.rar

شهادات بطريقة المبدعه ساجده جزاها الله كل خير شهادات رائعه لساجدة.rar

تم الحل من المحترم الاستاذ القدير محمد صالح جزاه الله كل خير شهادات رائعه لساجدة.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

اريد تطويعه على ملفي كرما منك

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

هذا ملف به فورمه للبحث ارجو ادراج اكوادكم الرائعه فيها حيث انها هنا لاتاتي بمطابقه الحرف الذي نبحث عنه فورمه بحث تصلح للمدارس.rar

يجزيك الله كل خير الاستاذ الكبير شوقي ربيع عند كتابه حرف مثل ال س لاياتي بالمطلوب وعند الضغط على زر نقل الاسماء الى ليست التجميع ياتي بارقام وعند الضغط على زر استدعاء تاتي شاشه سوداء ربنا يبارك فيكم

===== مع اضافتك الرائعه هذه.. البحث برقم الجلوس او بالاسم او باللقب

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

من فضلكم اريد بحث في الفورمه باول حرف من الاسم عندما ابحث مثلا عن حرف السين لاياتي بكلمة محروس عشان فيها سين على سبيل المثال

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

دي فورمه وظاهر فيها التاريخ وظاهر الساعه لكن التاريخ يظهر بالعربي والساعه تظهر بالانجليزي

اعمل التنسيق بتاع الخليه علي الوقت العربي ... كيف ؟

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

الله يبارك لك استاذ الجموعي ... يارب زر الاغلاق لايعمل

عندي فورم هذه صورته تظهر الساعه فقط بالانجليزي والتاريخ يظهر بالعربي .. لماذا ؟ وكيفيه ظهور الساعه بالعربي كرما منكم

ربنا يبارك فيك استاذ احمد