ناصر سعيد

=IF(IF(ISTEXT($I3);0;$I3)/$I$2<0.3;"ضعيف";INDEX({"راسب";"ضعيف";"مقبول";"جيد";"جيد جدا";"ممتاز"};MATCH($B3;{0;50;60;70;80;90};1))) =IF(IF(ISTEXT($I3);0;$I3)/$I$2<0.3; لو تكرمت اخي الكريم شرح الجزئيه الموجوده اعلا هذا السطر

طبعا الصفر والغين في عمود التحريري H تكون النتيجه ضعيف

وعليكم السلام ورحمة الله وبركاته اخي الكريم بن عليه يحفظك الله == الحالتين (صفر - غ) يكون الناتج ضعيف

وعليكم السلام ورحمة الله وبركاته اخي الكريم بن عليه يحفظك الخالق وبعد اذا كانت درجة الطالب في التحريري ( العمود H ) تساوي او اكبر من 30% من الدرجه الموجوده في الخليه ( H2 ) في هذه الحاله ننظر الى خليه المجموع الكلي الموجود في العمود B اما اذا كانت درجه الطالب في التحريري لاتساوي او اقل من 30% من الدرجه الموجوده في ( H2 ) يكون الطالب ضعيف بدون النظر الى المجموع يارب اكون وصلت - ( بتشديد حرف الصاد ) - المعلومه تمام

========= هذا الملف وبه المعادلات المذكوره ============== عجائب وغرائب ومميزات الداله 1VLOOKUP.rar ================== ربنا يحفظك ويصونك اخي الكريم بن عليه المعادلات المذكوره في العمودين E و F

وعليكم السلام ورحمة الله وبركاته ليه ايها الاخ الكريم ... طيب نرجو تصليحه

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

بسم الله الرحمن الرحيم احبابنا في الله ادعو الله ان تكونوا بخير يارب هذا ملف به معادلات لاحتساب تقديرات الطلاب بمعادلات مختلفه وسليمه مائه في المائه حسب المعطيات التي اعطيت للاخوه الذين انعم الله عليهم بايجاد الحل ولكن التقديرات في المدارس لاتعتمد على درجه واحده وهي المجموع في هذا الملف وانما تعتمد على درجتين هما درجه التحريري ودرجه المجموع .. درجه التحريري يجب ان تكوك درجه التحريري الموجوده في العمود الاصفر بالملف اكبر من او تساوي 30% وان كانت اصغر يكون التقدير ضعيف مهما كان درجة المجموع اما اذا كانت اكبر من او تساوي 30% فنهتم بدرجة المجموع ويتم التقدير على هذا الاساس =VLOOKUP(B2;{0,"راسب";50,"ضعيف";60,"مقبول";70,"جيد";80,"جيد جدا";90,"ممتاز"};2) =INDEX({"راسب";"ضعيف";"مقبول";"جيد";"جيد جدا";"ممتاز"};MATCH($B2;{0;50;60;70;80;90};1)) =CHOOSE(TRUNC(B2/10)+1;"راسب";"راسب";"راسب";"راسب";"راسب";"ضعيف";"مقبول";"جيد";"جيد جدا";"ممتاز";"ممتاز") المعادلات السابقه هي التي نريد اضافه الشرط الجديد لها وهذا هو الملف جزاكم الله خيرا عجائب وغرائب ومميزات الداله VLOOKUP.rar

مجهود تشكر عليه .. بارك الله فيك

Sub ثلاثة_معايير() 'هذا الكود للنابغه ساجده العزاوي ' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه 'تم في اكتوبر 2017 'كمعطيات المحترم ابو أحمد محمدي 'تم التعديل على الكود لمتطلبات جديده بواسطه المحترم ذائع الصيت بن علية حادجي الجزائري 'تم بناء على متطلبات جديده في الكود 'الهدف من الكود هو استخراج الشهادات 'كل 3 شهادات في صفحه واحدة 'بثلاثة معايير '====================== Dim SHEHADA As Worksheet, DATA As Worksheet Dim myArray, targt1, targt2, targt3 As String Dim X, Y, Z, U, V As Long 'اسم صفحة المصدر Set DATA = Worksheets("رصد الترم الثانى") 'اسم صفحة الهدف Set SHEHADA = Worksheets("3 شهادات ب3 معايير") '====================== ' targt1 = "ناج*" ' targt2 = "ول*" ' targt3 = "5/1" targt1 = SHEHADA.Range("R7").Value & "*" targt2 = SHEHADA.Range("S7").Value & "*" targt3 = SHEHADA.Range("T7").Value & "*" '====================== c = 0 Application.ScreenUpdating = False lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row 'اخر صف به بيانات '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! X = SHEHADA.Range("T1").Value Y = SHEHADA.Range("R1").Value Z = SHEHADA.Range("S1").Value U = IIf(X = 1, 7, Y) V = IIf(X = 1, lr, Z) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 'هذا السطر في حال كل الشهادات أو شهادات محددة For i = U To V '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! If DATA.Cells(i, 101) Like targt1 & "*" _ And DATA.Cells(i, 104) Like targt2 & "*" _ And DATA.Cells(i, 103) Like targt3 & "*" _ And c = 0 Then Range("M3") = DATA.Cells(i, 2) c = c + 1 '====================== ElseIf DATA.Cells(i, 101) Like targt1 & "*" _ And DATA.Cells(i, 104) Like targt2 & "*" _ And DATA.Cells(i, 103) Like targt3 & "*" _ And c = 1 Then Range("M19") = DATA.Cells(i, 2) c = c + 1 '====================== ElseIf DATA.Cells(i, 101) Like targt1 & "*" _ And DATA.Cells(i, 104) Like targt2 & "*" _ And DATA.Cells(i, 103) Like targt3 & "*" _ And c = 2 Then Range("M35") = DATA.Cells(i, 2) c = c + 1 '====================== 'ElseIf DATA.Cells(i, 101) Like targt1 & "*" _ And DATA.Cells(i, 104) Like targt2 & "*" _ And DATA.Cells(i, 103) Like targt3 & "*" _ And c = 3 Then ' SHEHADA.Range("M51") = DATA.Cells(i, 2) ' c = c + 1 '====================== End If '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 'If i = V And c = 4 Then SHEHADA.Range("a1:p63").PrintOut: Exit For If i = V And c = 3 Then SHEHADA.Range("a1:p47").PrintOut: Exit For If i = V And c = 2 Then SHEHADA.Range("a1:p31").PrintOut: Exit For If i = V And c = 1 Then SHEHADA.Range("a1:p15").PrintOut: Exit For If i < V And (Range("M19") = "" Or Range("M35") = "") Then GoTo 1 If i < V And c = 3 Then SHEHADA.Range("a1:p47").PrintOut '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! c = 0 SHEHADA.Range("M3") = "" SHEHADA.Range("M19") = "" SHEHADA.Range("M35") = "" ' SHEHADA.Range("M51") = "" 1: Next i SHEHADA.Range("M3") = "" SHEHADA.Range("M19") = "" SHEHADA.Range("M35") = "" ' SHEHADA.Range("M51") = "" Application.ScreenUpdating = True End Sub الهدف من الكود هو استخراج الشهادات 'كل ثلاث 3 شهادات في صفحه واحدة 'بثلاثة معايير

Sub اربعشهادات_بثلاث_معايير() 'هذا الكود للنابغه ساجده العزاوي ' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه 'تم في اكتوبر 2017 'كمعطيات المحترم ابو أحمد محمدي 'تم التعديل على الكود لمتطلبات جديده بواسطه المحترم ذائع الصيت بن علية حادجي الجزائري 'تم بناء على متطلبات جديده في الكود 'الهدف من الكود هو استخراج الشهادات 'كل 3 شهادات في صفحه واحدة 'بثلاثة معايير '====================== Dim SHEHADA As Worksheet, DATA As Worksheet Dim myArray, targt1, targt2, targt3 As String Dim X, Y, Z, U, V As Long 'اسم صفحة المصدر Set DATA = Worksheets("رصد الترم الثانى") 'اسم صفحة الهدف Set SHEHADA = Worksheets("4شهادات بثلاث معايير") '====================== ' targt1 = "ناج*" ' targt2 = "ول*" ' targt3 = "5/1" targt1 = SHEHADA.Range("R7").Value & "*" targt2 = SHEHADA.Range("S7").Value & "*" targt3 = SHEHADA.Range("T7").Value & "*" '====================== c = 0 Application.ScreenUpdating = False lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row 'اخر صف به بيانات '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! X = SHEHADA.Range("T1").Value Y = SHEHADA.Range("R1").Value Z = SHEHADA.Range("S1").Value U = IIf(X = 1, 7, Y) V = IIf(X = 1, lr, Z) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 'هذا السطر في حال كل الشهادات أو شهادات محددة For i = U To V '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! If DATA.Cells(i, 101) Like targt1 & "*" _ And DATA.Cells(i, 104) Like targt2 & "*" _ And DATA.Cells(i, 103) Like targt3 & "*" _ And c = 0 Then Range("M3") = DATA.Cells(i, 2) c = c + 1 '====================== ElseIf DATA.Cells(i, 101) Like targt1 & "*" _ And DATA.Cells(i, 104) Like targt2 & "*" _ And DATA.Cells(i, 103) Like targt3 & "*" _ And c = 1 Then Range("M19") = DATA.Cells(i, 2) c = c + 1 '====================== ElseIf DATA.Cells(i, 101) Like targt1 & "*" _ And DATA.Cells(i, 104) Like targt2 & "*" _ And DATA.Cells(i, 103) Like targt3 & "*" _ And c = 2 Then Range("M35") = DATA.Cells(i, 2) c = c + 1 '====================== ElseIf DATA.Cells(i, 101) Like targt1 & "*" _ And DATA.Cells(i, 104) Like targt2 & "*" _ And DATA.Cells(i, 103) Like targt3 & "*" _ And c = 3 Then SHEHADA.Range("M51") = DATA.Cells(i, 2) c = c + 1 '====================== End If '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! If i = V And c = 4 Then SHEHADA.Range("a1:p63").PrintOut: Exit For If i = V And c = 3 Then SHEHADA.Range("a1:p47").PrintOut: Exit For If i = V And c = 2 Then SHEHADA.Range("a1:p31").PrintOut: Exit For If i = V And c = 1 Then SHEHADA.Range("a1:p15").PrintOut: Exit For If i < V And (Range("M19") = "" Or Range("M35") = "" Or SHEHADA.Range("M51") = "") Then GoTo 1 If i < V And c = 4 Then SHEHADA.Range("a1:P63").PrintOut '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! c = 0 SHEHADA.Range("M3") = "" SHEHADA.Range("M19") = "" SHEHADA.Range("M35") = "" SHEHADA.Range("M51") = "" 1: Next i SHEHADA.Range("M3") = "" SHEHADA.Range("M19") = "" SHEHADA.Range("M35") = "" SHEHADA.Range("M51") = "" Application.ScreenUpdating = True End Sub جزاهم الله كل خير وبارك فيهم يارب .. كل من كانت له بصمه في هذا الملف

بسم الله الرحمن الرحيم احبابنا في الله ادعو الله ان تكونوا بخير يارب هذا ملف به كود واحد خاص باخراج شهادات الطلاب وما أسهله يستطيع ان يستجلب ===== كل انواع الشهادات المطلوبه الكود للنابغه ساجده العزاوي من العراق وتعديل المحترم ذائع الصيت بن علية حاجي من الجزائر حفظهم الله ورعاهم طريقه الاستفاده من هذا الملف افتح هذا الملف اضغط على زر ALT وانت ماتزال ضاغطا اضغط على F11 سيتم فتح محرر الاكواد .. ستجد امامك موديولات بها الاكواد دبل كليك على اول موديول ثم اضغط من لوحة المفاتيح على ALT +SHEFT لتكون اللغه هي العربيه منعا لظهور اللغه العربيه بشكل طلاسم اجعل مؤشر الماوس في الكود ثم اضغط CTRL +A لتحديد الكود كله ثم CTRL+C ليتم النسخ ===== ** افتح ملفك وافتح محرر الاكواد كما اشرنا سابقا ** ومن قائمه محرر الاكواد التي فتحت امامك ** اختر Insert واختر منها Module ** ثم ضع المؤشر في Module ** والصق الكود ========== ماهي التغييرات التي تحدثها في الكود حتى يكون صالحا للاستعمال ؟ ** غير اسم صفحه مصدر البيانات ** غير اسم صفحة الشهادات ** غير رقم عمود المعيار ** غير رقم خليه رقم الجلوس لو غيرت موقعها ========= احمد الله وادعو لكل من له بصمه في اخراج هذا العمل بالخير يكفي جملة جزاكم الله خيرا الشهادات ذات الثلاثه معايير في الخليه R1 نكتب بدايه الصف الذي نريد الشهادات منه في الخليه S1 نكتب نهايه الصف الذي نريد الشهادات اليه === و في الخليه R7 نكتب كلمه (نا ) او ( دور ) وفي الخليه S7 نكتب ( ول ) اختصار كلمه ولد او نكتب ( بن ) اختصار كلمه بنت وفي الخليه T7 نكتب الفصل (3/1 ) مثلا وهكذا نكون استطعنا ان نستدعي شهادات الاولاد الناجحين في فصل معين في مدى معين او الاولاد اللي عندهم دور تان في فصل معين او البنات الناجحين في فصل معين او البنات اللي عندهم دور تان في فصل معين وفي مدى معين ************** يكفي جملة جزاكم الله خيرا كود الشهادات المرجع.rar ***************************** وتعديل المحترم ذائع الصيت بن علية حاجي من الجزائر تم بناء على متطلبات جديده في الكود

ربنا يبارك فيك استاذ بن عليه .. يارب حل ولاأروع ... وشرح ولاأسهل

روابط شرح الفيديو ملف التطبيق http://www.mediafire.com/file/yr1rrb7... ============================== http://gulfup.co/itpyj0db0zzp ================================ رابط اخر https://up.top4top.net/downloadf-644qz4ck1-rar.html

للرفع

يارب ارزقنا باحد الاخوه الكرام

للرفع

ربنا يحفظك ويصونك استاذ بن عليه لم استطع تشغيل الكود عندما اضغط على الزر تحدث هزه بسيطه ولايعمل رايت في W7 و W8 كلمه محدده والرقم 2 هل تعني كلمه محدده اننا نستطيع ان ناتي بالشهادات المحصوره بين الرقمين 7 و10 وان كلمه الكل .. تاتي بالشهادات في كل شيت المصدر وماذا تعني الرقم 2 جزاك الله كل خير

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

=IFERROR(INDEX('شيت الرابع الرئيسى'!$A$9:$FH$1000;MATCH($I$5;'شيت الرابع الرئيسى'!$C$9:$C$1000);2);"") المعادله التي تستخدم في الشهاده من الروائع