اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

الردود الموصى بها

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

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

رابط هذا التعليق
شارك

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

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

اليك الملف

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

 

  • Like 1
رابط هذا التعليق
شارك

حضرتك انا عاجز عن الشكر وربنا يبارك في حضرتك ويحفظك بس انا كنت عايز افهم مغزى وجود الدرجة هل معناها أنني مثلا اذا اخترت الرقم 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

 

  • Like 2
رابط هذا التعليق
شارك

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

4.xls

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • المتواجدين الان   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information