ماهي الدالة لاضافة 5 درجات القرار المدرسة

[طارق محمود]

السلام عليكم

عندك حق

تم تعديل الكود كالتالي

Function Mrk(a As Range) As Variant
'Next jn


    If a.Value >= 50 Or a.Value < 45 Then Mrk = a.Value: GoTo 10
    njh = Cells(a.Row, 18):    rsb = Cells(a.Row, 19)
    Dim sbj(9), rf(9), ord(9)
    For c = 2 To 9
       sbj(c - 1) = Cells(a.Row, c)
       If sbj(c - 1) < 50 And sbj(c - 1) > 44 Then
            i = i + 1   'previous n_rf , i.e number of raf3 subj
            ord(i) = c
            rf(i) = 50 - sbj(c - 1)
            t_rf = t_rf + rf(i)
        End If
    Next c
      
   'Re-Sorting
For j = 1 To i - 1
    For x = j + 1 To i
        If rf(j) > rf(x) Then
            k = rf(j): kc = ord(j)
            rf(j) = rf(x): ord(j) = ord(x)
            rf(x) = k: ord(x) = kc
        End If
    Next x
Next j


For j = 1 To i
    T = T + rf(j)
    If T > 5 Then T = T - rf(j): j = j - 1: GoTo 5
Next j
5
If rsb - j < 3 Then
    For x = 1 To j
        If a.Column = ord(x) Then Mrk = 50: GoTo 10
    Next x
End If
Mrk = a.Value
10
End Function

وهذا هو الملف بعد التعديل

 

 

تغير شرط القرار4.rar

[karra 2]

استاذ طارق لا تعمل mrk اوتماتيك الا بعد الذهاب عند الخلية والضغط f2

[طارق محمود]

إذهب لضبط الملف واجعل الحساب أوتوماتيكيا

File > options < ??

Calculation > Automatic

[karra 2]

نظام الاوفس لي عربي الرجاء الخطوات خطوه خطوه اذا امكن لتحويل النظام اوتماتيكي

[طارق محمود]

نظام الاوفس عندي انجليزي

لكن ممكن تتابع الخطوات الأربع من الصورة التالية

[karra 2]

مفعل بالاصل

[طارق محمود]

لا أدري 

أرسلت لك رسالة علي الخاص

[karra 2]

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

تم تعديل فبراير 27, 2015 بواسطه طارق محمود

[karra 2]

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

‫القالب - الصحيح.rar

تم تعديل فبراير 27, 2015 بواسطه karra 2