ناصر سعيد

المرفق تجـــــــــــــــــــــــــــــــــــــــربه - نسخة.rar

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

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

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

ربنا يبارك في النافع يارب ارفق الملف وبه كود العبقري ياسر العربي وتعديل العبقري ياسر خليل ولكن المشكله الخاصه بالمسح مازالت موجوده المســـح.rar

==== او نفس كود الاستاذ ياسر العربي مع تعديل نقطه المسح التي ذكرتها سابقا

اخي الكريم استثني الاوراق التي لاتبدا من الصف السابع بعد العناوين ونحن عندما نحصل على كود سنطوع الرؤوس في الصفحات المطلوبه في صف واحد نريد ان نحصل على كود يودي نفس الغرض لكود الاستاذ ياسر العربي وانما يبتعد عن مشكله اذا وضعت عدد ظلاب كثير وليكن 200 ثم اردت ان تغير لعدد بسيط وليكن 3 فلا يتم المسح مضبوطا ( ايه اللي بيحصل ) يتم مسح 4 اسطر اسفل العدد المطلوب وباقي الصفوف مازالت موجوده جزاكم الله خيرا ثانيا هذا هو اسط مرفق ارسلته فيه عناوين وصف واحد تحت كل عنوان اما بالنسبه لمرفقك الذي ارسلته فهو كنز وان شاء الله سيفيد اخرين اما انا فلا اجيد التعامل مع الاكواد

هذا هو الملف والمهم فيه هو الترويسه ( صف العناوين ) والصف الذي يليه جزاك الله خيرا النسخ والمسح.rar ================= هذه الاوراق هي التي نريد ان يعمل معها الكود لكن الملف سيكون به صفحات اخرى كثيره لاتندرج تحت عمل الكود

بناءً على الكود .. الكود اللي يحدد عدد الأعمدة كل صفحه من صفحات الملف ؟ جزاك الله خيرا

جزاك الله خيرا وبارك فيك ندعو الله ان يعين عليها يتبقى عده اسئله لو فرضنا ان عدد الاعمده في الصفحه بيانات الطلبه هي 10 اعمده وفي الصفحة الاخرى 15 وهكذا فوجدنا ان اكبر عدد اعمده في الملف في صفحة ما هو مثلا للعمود hh السوال : هل نكتب في صفحه بيانات الطلبه في العمود hh اي رقم حتى يتعرف الكود على مدى المسح ومدى النسخ ؟ === اذا بدأنا من العمود a او العمود B او العمود C السوال التاني : هل يتاثر الكود بعدم العمل مضبوطا ؟ === عند كتابه عدد كبير وليكن 200 طالب يتم عمل الكود ولكن بعدها اكتب عدد صغير مثل 3 لايتم المسح جيدا وانما يتم مسح 4 صفوف بعد العدد الصغير ويترك باقي التسطير لماذا ؟

عند كتابه عدد كبير وليكن 200 طالب يتم عمل الكود ولكن بعدها اكتب عدد صغير مثل 3 لايتم المسح جيدا وانما يتم مسح 4 صفوف بعد العدد الصغير ويترك باقي التسطير لماذا ؟

اخي الكريم استاذ باسر لو فرضنا ان عدد الاعمده في الصفحه بيانات اساسيه هي 10 اعمده وفي الصفحة الاخرى 15 وهكذا فوجدنا ان اكبر عدد اعمده في الملف في صفحة ما هو مثلا للعمود hh السوال : هل نكتب في صفحه بيانات الطلبه في العمود hh اي رقم حتى يتعرف الكود على مدى المسح ومدى النسخ ؟ السوال التاني : اذا بدأنا من العمود a او العمود B او العمود C هل يتاثر الكود بعدم العمل مضبوطا ؟ السوال التالت 'x(0) >> "" 'x(1) >> "F" 'x(2) >> "7" مافائده التقسيم للكود ؟ واحنا بنختار الصف السابع او التامن على اي اساس هل هو اول صف بعد الترويسه دائما ؟ جزاك الله خيرا

للرفع

بعض النقاط لهضم الكود XFD7 خليتها 7 ليه بالرغم من ان صف البدايه 9 والذي يسبقه 8 2- مامعنى هذه Address, "$")(1) الاجابه من المحترم ياسر العربي اولا XFD7 دا اخر نطاق للاعمدة و7 دي عشان رؤوس الاعمدة انا بحسب عليها لان الرؤوس موجود بها البيانات ممكن اخر خليه في الصف 9 ميكنش فيها بيانات فيبدأ النسخ من داخل النطاق عند اول خليه بها بيانات XFD7 دا اخر عمود من جهه اليسار بقول له روح للخليه دي واضغط على زر End وبعدها سهم يمين يذهب تلقائي الى اول عمود به بيانات من جهه اليسار Address, "$"(1) ودا جزء من كود لفصل اسم العمود عن رقم الصف بمعنى هنا الادرس دا بيجيب عنوان الخليه كدا $A$1 فالكود بيفصل اسم العمود ليصبح هكذا A ويتم تخزين هذاا لعمود في المتغير Str حتى نستعمله في النسخ والحذف لكل ورقة عمل

الحل جاء من المحترم ياسر العربي 'هذا الكود للمحترم ياسر العربي ' الهدف من الكود هو نسخ صف الى صفوف تحته بالعدد المطلوب 'وقبل النسخ يتم مسح البيانات القديمه 'تاريخ الانشاء 30/7/2017 '=*=*=*=*=*=*=*=*=*=*=*=*=*=* Private Sub CommandButton1_Click() Dim sh As Worksheet, lr As Long, str As String If TextBox1.Text = Sheets("بيانات الطلبة").Range("F1") Then Me.Hide TextBox1.Text = "" MsgBox "كلمة المرور صحيحة و سيتم تنفيذ المطلوب" Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'اذا كان عدد المتقدمين اقل من اتنين يتم ايقاف الكود ولا يكمل If Sheets("بيانات الطلبة").Cells(2, 3) < 2 Then Exit Sub End If '=*=*=*=*=*=* 'On Error Resume Next For Each sh In Sheets(Array("بيانات الطلبة", "إنجاز1", "تحريرى ف 1", "تحريرى ف 2", "أعمال السنة", "كشف الدور الثاني", "كشف ناجح")) lr = sh.Range("B" & sh.Range("b10000").End(xlUp).Row).Row sh.Activate ' str المتغير دا يتم تخزين اسم العمود الاخير فيه للعمل عليه 'يتم الذهاب الى اخر عمود بالاعتماد على الصف السادس ويتم استخلاص اسم العمود من اسم النطاق str = Split(sh.Range("XFD7").End(xlToLeft).Address, "$")(1) 'حذف البيانات الموجودة في النطاق المحدد sh.Range("A8:" & str & lr + 7).Clear ' نسخ الصف السابع لكل شيت من حيث عدد الاعمدة الى العدد المحدد بعدد المتقدمين sh.Range("a7:" & str & 7).AutoFill Destination:=Range("a7:" & str & [ 'بيانات الطلبة'!C2] + 6) Next Sheets("بيانات الطلبة").Select Range("A4").Select Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Unload Me Else MsgBox "عفوا كلمة المرور خاطئة و لن يتم تنفيذ المطلوب" TextBox1.Text = "" TextBox1.SetFocus End If End Sub Private Sub Label1_Click() End Sub Private Sub UserForm_Click() End Sub جزاه الله عنا خير الجزاء ================ نسخ صفوف.rar

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

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

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

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

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

جزاك الله كل خير وبارك فيك استاذ سليم

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

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

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

للرفع للساده العمالقه المحترمين