رداً على سؤال الأخ aziz3000 (الذي تم وضعه كمشاركه جديده منعاً لتداخل الاسئله).....
والذي يوجد في هذا الرابط.....
http://www.arabteam2000.com/vb/showthread....&threadid=28419
ومحتوى السؤال هو ....
-----------------------------------------------------------------------------
تحية طيبة من القلب
اشارة الى المشاركة حول برنامج الاكسل ارغب في ان اسال عن المعادلة التى تمكنني من الاتي
اذا كان الخلية A1 تساوي 90 فاكبر ان يضع النتيجة في الحانة E1 ممتاز
ذا كان الخلية A1 تساوي 80 فاكبر ان يضع النتيجة في الخانة E1 جيج جدا
ذا كان الخلية A1 تساوي 70 فاكبر ان يضع النتيجة في الخانة E1 جيد
ذا كان الخلية A1 تساوي 60 فاكبر ان يضع النتيجة في الخانة E1 مقبول
ارجو في مساعدتى في كيفية اعداد هذه المعادلة
والله يحفظكم
اخوكم ابو عبدالعزيز
------------------------------------------------------------------------------
اخي الكريم يمكنك عمل ذلك عن طريق هذا الكود ويمنك لصقه في الوحده النمطيه الخاصة بورقة العمل :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim grade As Range, natega As Range
Set grade = Range("a1")
Set natega = Range("e1")
Select Case grade
Case Is >= 90
natega = "ممتاز"
Case 80 To 89
natega = "جيد جداً"
Case 70 To 79
natega = "جيد"
Case 60 To 69
natega = "مقبول"
End Select
End Sub
