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

[yassoeid]

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

ترتيب الطلاب.xlsx

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

جرب هذه المعادلة

=IF(OR(NOT(ISNUMBER(G6)),G6=""),"",VLOOKUP(G6*100,{0,"ضعيف";50,"مقبول";65,"جيد";75,"جيد جدا";85,"ممتاز";100,0},2))

الملف مرفق

 

tartib_st.xlsx

[وجيه شرف الدين]

بعد اذن استاذى الحبيب استاذ سليم واثراء للموضوع

ترتيب الطلاب-1.xlsm

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

 

جيد استاذ وجيه 

نفس الماكرو بدون هذا الكم المتكرر من IF و  ELSE

Sub TEST()
Dim RESULT$
For i = 6 To 30
Select Case Cells(i, 4)
 Case Is >= 14: RESULT = "امتياز"
 Case Is >= 8: RESULT = "جيد جد"
 Case Is >= 6: RESULT = "جيــــد"
 Case Is >= 4: RESULT = "مقبول"
 Case Is >= 2: RESULT = "ضعيف"
 Case Else:RESULT = vbNullString
End Select
Cells(i, 9) = RESULT
Next
End Sub

 

[وجيه شرف الدين]

انت رائع استاذ سليم باسلوبك المهذب لتوصيل المعلومة جزاكم الله خير الجزاء