هلاو الله
اخير
والف شكر على مرورك وردك
لكن استفساري
عن دالة
IF...And

اي اذا كان الشرط خطأ
يترتب عليه شرط ثاني
مثلا

اذا كان 90% فاكثر اطبع ممتاز

اذا كان 80% اطبع جيد جدا
70% اطبع جيد
وهاكذا

مث هذا

والف شكر مره اخرى في انتظار ردك

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

هلا وغلا بالحبيب ..... وينك من زمان عنا ...

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

حل مشكلة IF في إكسل
لا يخفى أهمية دالة IF في برنامج إكسل، لكنها محدودة، فهي لا تقبل تتداخل دوال IF إلى أكثر من 8 دوال، ويمكن حل مثل هذه المشكلة بكتابة ماكرو بلغة VBA.
لو فرضنا أن لدينا درجات الطلاب موجودة في الخلايا من A1 إلى A30 ، و نريد تحويلها إلى ما يكافئها من الحروف الهجائية، حسب النظام التالي:
الدرجة بالأرقام الدرجة الحروف
95-100 A+
90 – 94 A
85 – 89 B+
80 – 84 B
75 – 79 C+
70 – 74 C
65- 69 D+
60-64 D
55-59 E+
50-54 E
أقل من 50 F
أنشئ الماكرو التالي المسمى change() :
Sub change ()
For Each C In [A1:A30]
Select Case C.Value
Case 95 To 100
" C.Value = "A+
Case 90 To 94
" C.Value = "A
Case 85 To 89
C.Value = "B+"
Case 80 To 84
" C.Value = "B
Case 75 To 79
C.Value = "C+"
Case 70 To 74
C.Value = "C"
Case 65 To 69
"+ C.Value = "D
Case 60 To 64
" C.Value = "D
Case 55 To 59
"+ C.Value = "E
Case 50 To 54
" C.Value = "E
Case Else
" C.Value = "F
End Select
Next
End Sub
شغل الماكرو عن طريق: أدوات|الماكرو|وحدات الماكرو، ثم اختر change، وانقر على "تشغيل".


أخوك أبو عمار

هلا والله اخوي
وبارك الله فيك على الشرح والله موجود بس ضروف الوقت

وبالنسبه للشرح جميل بس ياليت اجد توضيح اكثر
وخاصه بالنسبه للماكرو
وانشاء الماكرو خاصه في الاكسل

ولك مني كل الشكر