طه الدوي قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 لو سمحتم يا اساتذة ممكن عمل حلقة تكرارية لهذا الكود [ds7] = IIf([EU7] = "مفصول", [EU7], IIf([EU7] = "محروم", [EU7], IIf([EU7] = "حول عمال", [EU7], IIf([FO7] <= 0, "ناجح", IIf([FO7] = 1, "دور ثان", IIf([FO7] = 2, "راسب", "دور ثان")))))) End Sub ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر فبراير 29, 2020 أفضل إجابة مشاركة قام بنشر فبراير 29, 2020 السلام عليكم ورحمة الله استخدم هذا الكود 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 2 1 رابط هذا التعليق شارك More sharing options...
طه الدوي قام بنشر فبراير 29, 2020 الكاتب مشاركة قام بنشر فبراير 29, 2020 اشكرك استاذ ابراهيم شكرا جزيلا علي اجابتك الرائعة ولكن لي استفسار لماذا لم تستخدم الصيغة المطروحة بالسؤل ؟ سؤالي للتعلم واشكرك مرة ثانية استاذي الفاضل رابط هذا التعليق شارك More sharing options...
طه الدوي قام بنشر فبراير 29, 2020 الكاتب مشاركة قام بنشر فبراير 29, 2020 استاذ ابراهيم عند التنفيذ يظهر هذا الامر رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر فبراير 29, 2020 مشاركة قام بنشر فبراير 29, 2020 السلام عليكم ورحمة الله عدم استخدام الطريقة المستخدمة فى المشاركة الاولى كانت ستجعل الكود طويل نسبيا و لالغاء الخطأ امسح هذه العبارة Option Explicit 1 رابط هذا التعليق شارك More sharing options...
طه الدوي قام بنشر مارس 6, 2020 الكاتب مشاركة قام بنشر مارس 6, 2020 اشكرك استاذ ابراهيم وجعله الله في ميزان حسناتك وجزاك الله كل خير وآسف علي التاخير في الرد لعدم تواجدي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.