مطلوب تعديل بسيط على كود بيان حالة الطالب

[احمد حبيبه]

هذا الكود الرائع مرسل من استاذنا الكبير عبدالله باقشير

 

الى احد الاخوه الافاضل وهو كود بحق رائع ...... جزاة الله عنا كل خير  والمطلوب فى حالة النجاح ان يضيف الكود كلمة (منقول للصف الثانى )  فى خلية مواد الدور الثانى

 

حالة الطاالب.rar

[أبو حنــــين]

السلام عليكم

غير هذا الكود

Sub kh_Tgrba()
Dim r As Integer
Dim tst As String
For r = 11 To 17
    tst = kh_test(r)
    If Len(tst) Then Cells(r, 113) = "له دور ثانى فى" Else Cells(r, 113) = "ناجح"
    Cells(r, 114) = kh_test(r)
Next
End Sub

بالكود التالي :

Sub kh_Tgrba()
Dim r As Integer
Dim tst As String
For r = 11 To 17
    tst = kh_test(r)
    If Len(tst) Then Cells(r, 113) = "له دور ثانى فى" Else Cells(r, 113) = "ناجح"
Cells(r, 114) = kh_test(r)
If Cells(r, 113) = "ناجح" Then Cells(r, 114) = "منقول للصف الثانى"
Next
End Sub

[احمد حبيبه]

أخى الحبيب ابو حنين

لمسة رائعة من اناملك الذهبية ادت المطلوب وزياده ...... أشكرك

 بارك الله فيك أخى الكريم

[ناصر سعيد]

 بارك الله فيك أخى الكريم ابو حنين

[أبو حنــــين]

العفو أخي أحمد

جزاك الله خيرا أخي ناصر سعيد على مروركم الطيب

[دغيدى]

أخى الحبيب / أبو حنين

سلام الله عليكم

الكود جميل ولكن

= عند عدم وضع درجة يعتبره ناجحا فيها

== يبين حالة الطالب فى المدى المحدد بصرف النظر عن عدد الطلاب

برجاء التدارك 

شكرا لكم