كيف يمكن تحديد الراسب و الناجح

[دلفين سردار]

بسم الله الرحمن الرحيم

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

احبتي في لله

لدي ملف مرفق

ارغب ان يظهر لي في حقل النتيجة : نتيجة الطالب هل هو ناجح ام راسب مع ذكر الدروس التي رسب بها يكون في نفس حقل النتيجة  حيث يكون بها الشكل (راسب بالمواد الاتية ....)

ولكم كل الشكر والتقدير

المصنف1.xlsx

[سليم حاصبيا]

جرب هذا الملف

 

Raseb.xlsm

[دلفين سردار]

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

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

Raseb(1)111.xlsm

[سليم حاصبيا]

لم افهم ما المطلوب

كيف يمكن ادراج نتيجة اكثر من طالب في خلية واحدة؟؟؟(يمكن ان يفعلها الاكسل لكن ما المنطق من ذلك)

[دلفين سردار]

 

استاذي العزيز

في العراق كل طالب له ورقة خاصه حيث لكل طالب نتيجة كارت

وهذا نموج مرفق

 

المصنف12222.xlsx

تم تعديل أبريل 16, 2018 بواسطه دلفين سردار
تكررار

[احمد بدره]

جزاك الله خير وبارك فيك أستاذ / سليم والسؤال هل يمكن جعل صف لعلامة الرسوب بحيث ممكن تختلف درجة الرسوب من مادة إلى أخرى في الملف Raseb.xlsm

[سليم حاصبيا]

كل شيء ممكن 

انظر الى صفحة salim من هذا الملف

 

 

Raseb 1.xlsm

[احمد بدره]

كل الشكر والتقدير أستاذنا الفاضل ولكن إذا كان الطالب غائب في مادة ووضعنا الدرجة غ  لا تظهر المادة

ولو أضفنا عمود التقدير بجوار كل مادة هل ممكن وضع شرط لذلك العمود وهو أقل من 30% تقبل تحياتي

Raseb 1.xlsm

[دلفين سردار]

استاذي العزيز

في العراق كل طالب له ورقة خاصه حيث لكل طالب نتيجة كارت

وهذا نموج مرفق

ارجو من حضرتك المساعدة

المصنف12222.xlsx

[مصطفى محمود مصطفى]

رائع استاذ سليم حاصبيا 

وفقكم الله

 

[سليم حاصبيا]

بالنسبة للغياب تم معالجة الامر

اما بالنسبة للتقدير  لم افهم ما المطلوب

Raseb 2.xlsm

[احمد بدره]

حفظك الله  بالنسبة للتقدير إذا الخلية تحتوى على عبارة أقل من 30% يعتبر راسب للمادة دون النظر إلى درجة المادة

تم تعديل أبريل 17, 2018 بواسطه ahmedkamelelsayed0

[احمد بدره]

المطلوب إذا كانت أي خلية في أي عمود من الأعمدة المظللة باللون الأخضر لا تحتوي على كلمة أقل من 30%  ( لا يعتبر راسب ) ولك جزيل الشكر

Raseb 2.xls

[احمد بدره]

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

Raseb 2.xls

تم تعديل أبريل 21, 2018 بواسطه ahmedkamelelsayed0

[سليم حاصبيا]

يمكن ان يكون الحل في هذا الماكرو

Option Explicit

Sub RASEB_BY_Madda()
If ActiveSheet.Name <> "salim (2)" Then Exit Sub
Dim My_rg As Range
Dim r%, c%, i%, j%
Dim Arr_Word()
Dim x As Boolean

ReDim Arr_Word(1 To 4)
  Arr_Word(1) = "أقل من 30%": Arr_Word(2) = "دون المستوى":
  Arr_Word(3) = "غائب": Arr_Word(4) = "غ"

'''''''''''''''''''''
Set My_rg = ActiveSheet.Range("b7").CurrentRegion
r = My_rg.Rows.Count: c = My_rg.Columns.Count
Set My_rg = My_rg.Offset(1, 1).Resize(r - 1, c - 1)
My_rg.Columns(c - 1).ClearContents
'========================
 
 For i = 1 To r
    For j = 2 To c Step 2
        If My_rg.Cells(i, 1) = vbNullString Then Exit For
             x = IsError(Application. _
             Match(My_rg.Cells(i, j), Arr_Word, 0))
        If Not x Then
             My_rg.Cells(i, c - 1) = "Raseb"
              Exit For
        Else
              My_rg.Cells(i, c - 1) = "Najeh"
        End If
      
     Next
 Next
Erase Arr_Word
End Sub

الملف مرفق

 

 

 

Raseb 2 _with_condition.xls