طلب كود لاستدعاء نسبة ال10 %

[سيد الأكرت]

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

كود لاستدعاء نسبة العشرة في المية.xls

[ابراهيم الحداد]

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

تم انشاء خلية منسدلة و هى  الخلية M9 ليتسنى لك اختيار الدرجة التى تحقق المطلوب من عدد ال 10%

اليك الملف

كود لاستدعاء نسبة العشرة في المية.xls

 

[سيد الأكرت]

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

 

[ابراهيم الحداد]

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

اخى الكريم لا داعى للشكر فكلنا هنا لخدمة بعضنا البعض

تفسير القائمة المنسدلة يتم تغيير الدرجات للتجربة حتى تكتمل نسبة العشرة بالمائة لآعلى درجات ممكنة

و حتى يشمل اكبر شريجة من اجمالى الطلاب

تم تغيير فى الكود لاظهار عدد الغياب و عدد الحضور و اجماليهم

استبدل الكود المرفق بالملف بهذا الكود

Sub CallData()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, Mada As String, Data As String
Dim C As Range, Y As Range, x As Byte
Dim p As Long, N As Double
Dim a As Single, b As Single
Set ws = Sheets("10%")
Set Sh = Sheets("الدرجات")
Application.ScreenUpdating = False
ws.Range("C15:E34,H15:J34").ClearContents
LR = WorksheetFunction.CountIf(Sh.Range("A2:A1000"), ">" & 0) + 1
Mada = ws.Range("C9").Text
Select Case Mada
Case Is = "اللغة العربية": Data = "عربــي"
Case Is = "الرياضيات": Data = "رياضيـات"
Case Is = "الدراسات الاجتماعية": Data = "دراسـات"
Case Is = "العلـــوم": Data = "علــوم"
Case Is = "اللغة الإنجليزية": Data = "انجليزي"
Case Is = "التربية الدينية": Data = "ديــن"
End Select
For Each C In Sh.Range("A1:G1")
If C.Text = Data Then
x = C.Column
a = WorksheetFunction.CountIf(Sh.Range(Sh.Cells(2, x), Sh.Cells(LR, x)), "غ")
b = LR - a - 1
ws.Range("E12") = a
ws.Range("H12") = b
ws.Range("J12") = LR - 1
End If
Next
N = ws.Range("M9").Value
For Each Y In Sh.Range(Sh.Cells(2, x), Sh.Cells(LR, x))
If Y.Value >= N And Y.Value <> "غ" Then
p = p + 1
If p > 40 Then Exit Sub
If p <= 20 Then
ws.Cells(p + 14, 3) = Sh.Cells(Y.Row, 1)
ws.Cells(p + 14, 4) = Sh.Cells(Y.Row, x)
ws.Cells(p + 14, 5) = Sh.Cells(Y.Row, x)
Else
ws.Cells(p - 6, 8) = Sh.Cells(Y.Row, 1)
ws.Cells(p - 6, 9) = Sh.Cells(Y.Row, x)
ws.Cells(p - 6, 10) = Sh.Cells(Y.Row, x)
End If
End If
Next
Application.ScreenUpdating = True
End Sub

 

[سيد الأكرت]

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

[سيد الأكرت]

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

4.xls

[ابراهيم الحداد]

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

اين القائمة المنسدلة التى سيتم اختيار المواد منها 

لا استطيع العمل على الملف بدونها 

ارجو ارسال الملف مرة اخرى و به الخلية المنسدلة بالمكان التى تريده

هذا و الله ولى التوفيق

[بلانك]

كود الاستاذ ابراهيم ممتاز واريد الزيادة منه

نسبة 10% من اوراق الاجابة اريد من كل 10 ورقات ورقة واحدة وهكذا بفرض ان عدد الاوراق 120 ورقة يكون المطلوب فقط 12 ورقة لحساب 10 % وشكرا مقدما.

[سيد الأكرت]

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