حلقة تكرارية

[طه الدوي]

لو سمحتم يا اساتذة ممكن عمل حلقة تكرارية لهذا الكود
     

[ds7] = IIf([EU7] = "مفصول", [EU7], IIf([EU7] = "محروم", [EU7], IIf([EU7] = "حول عمال", [EU7], IIf([FO7] <= 0, "ناجح", IIf([FO7] = 1, "دور ثان", IIf([FO7] = 2, "راسب", "دور ثان"))))))
End Sub

                                                                                                      
ولكم جزيل الشكر 

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub SelCase()
For i = 7 To 1000
If Not IsNumeric(Cells(i, "EU")) Then
Cells(i, "DS") = Cells(i, "EU")
ElseIf Cells(i, "FO") = 0 Then
Cells(i, "DS") = "ناجح"
ElseIf Cells(i, "FO") <= 2 Then
Cells(i, "DS") = "دور ثان"
Else
Cells(i, "DS") = "راسب"
End If
Next
End Sub
    

 

[طه الدوي]

اشكرك استاذ ابراهيم شكرا جزيلا علي اجابتك الرائعة 

ولكن لي استفسار لماذا لم تستخدم الصيغة المطروحة بالسؤل ؟

 سؤالي للتعلم 

واشكرك مرة ثانية استاذي الفاضل 

[طه الدوي]

 

استاذ ابراهيم عند التنفيذ يظهر هذا الامر 

[ابراهيم الحداد]

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

عدم استخدام الطريقة المستخدمة فى المشاركة الاولى كانت ستجعل الكود طويل نسبيا

و لالغاء الخطأ امسح هذه العبارة

Option Explicit

 

[طه الدوي]

اشكرك استاذ ابراهيم وجعله الله في ميزان حسناتك وجزاك الله كل خير وآسف علي التاخير في الرد لعدم تواجدي