إدراج معادلة vba

[الصادق ـ ح]

السلام عليكم أساتذتي

اريد معادلة  vba  وذلك بمجرد حساب  المعدل تكتب التقديرات تلقائي

وذلك حسب الملف المرفق

معادلة vba.xls

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

صديقي

لا حاجة للكود في مثل هذا الحالة

Formules.xls

[الصادق ـ ح]

  شكرا أستاذي على هذا المجهود الطيب...ولكني أريد التخلص من المعادلة في خانة التقديرات، بحيث تكتب التقديرات بشكل تلقائي 

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

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

Option Explicit

Sub TAKDIRAT()
Dim Rg As Range, cel As Range
Dim Note$
Set Rg = Range("A9", Range("A8").End(4)).Offset(, 9)
Rg.ClearContents

For Each cel In Rg
  If IsNumeric(cel.Offset(, -1)) Then
        Select Case cel.Offset(, -1)
           Case Is < 7: Note = "نتائج غير مقبولة"
           Case Is < 10: Note = "نتائج دون الوسط"
           Case Is < 12: Note = "نتائج متوسطة"
           Case Is < 14: Note = "نتائج حسنة"
           Case Is < 16: Note = "نتائج جيدة"
           Case Is < 18: Note = "نتائج جدة جداً"
           Case Else: Note = "نتائج ممتازة"
        End Select
      cel = Note
  End If
Next

End Sub

الملف مع الكود

Formules.xlsm

[الصادق ـ ح]

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