اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود تفقيط العلامات المدرسية (الدرجات)


jalal030

الردود الموصى بها

تفضل اخى

وجرب المرفق كل عام وانت بخير

عيد سعيد

بارك الله لك أخي جمال

وكل عام أنت ومن تحب بكل خير

فكرة رائعة استخدام كود التفقيط العام لتفقيط الدرجات

ولكن المشكلة أن تفقيط المال يكون بصيغة مثلا:

خمسة وأربعون جنيهاً وخمسون قرشاً

فيوجد وحدة للعدد الصحيح ووحدة للكسر

أما الدرجات فليس لها وحدة في الكسر

ويقال فقط:

خمس وأربعون درجة ونصف

......

واستكمالاً لمشوارك أضع بين أيديكم هذا الملف لتفقيط الدرجات

وبصفتي معلم للغة العربية ستجد أيضاً أنه موافق لقواعد العدد في اللغة العربية بإذن الله

............

وكل عام وجميع الإخوة بكل خير

تفقيط الدرجات.rar

  • Like 2
رابط هذا التعليق
شارك

اخى فى الله

mas123

كل عام وانت والاسرة الكريمة بافضل خال

وكل عام وانت بخير

مرورك فى الموضوع شرفنا وحل جميل ورائع

معلش اخوك مدرس دراسات

جزيت خيرا

رابط هذا التعليق
شارك

الاخ العزيز المبدع دائمـــــــــــــا الاستاذ " جمال الفار "

الاستاذ مدير قسم الويب المميز " محمد صالح "

جزاكم الله كل الخير ...........

وكل عام والجميع بخير وسلام

وفقكم الله

ابو الحارث

رابط هذا التعليق
شارك

  • 4 years later...

رائع  :fff:

 

لكن به عيب صغير :  الطالب الذي درجته صفر  يكتب في الخلية ( فقط درجة )

والطالب الذي لا درجة له يكتب في الخلية ( فقط درجة )

 

ليت أحدكم مشكورا يعدله بحيث يكتب أمام الطالب الذي درجته صفر يكتب أمامه ( صفر )

والطالب الذي خليته بدون رقم  لايكتب شي يعني يتركها فراغ   :smile:

 

شاهد المرفق... مع خالص شكري مقدماً

 

 

أو إن وجد كود جاهز لهذا الغرض ..أقصد درجات دراسية 

1437.rar

رابط هذا التعليق
شارك

أخي الكريم

إليك رابط الموضوع التالي فيه دالة الأستاذ الكبير محمد صالح وفيها حل لمشكلتك باستخدام المعادلة العادية دون المساس بالدالة المعرفة

الرابط من هنا

رابط هذا التعليق
شارك

جزاكم الله خيرا

شكرا استاذ ياسر


Function N2T(D As Double) As String
    M = Int(D / 100)
    H = Int(D / 10) - (M * 10)
    A = Int(D - (M * 100 + H * 10))
    K = D - (M * 100 + H * 10 + A)
    N2T = Num((M), 3) & IIf(M > 0 And (A > 0 Or H > 0), " و ", "") & Num((A), 1) & IIf(A > 0 And H > 1, " و ", " ") & Num((H), 2)
    N2T = Replace(N2T, "اثنتانِ عشرة", "اثنتا عشرة")
    N2T = Replace(N2T, "ثمانمائة", "ثمنمائة")
    N2T = Replace(N2T, "ثلاثمائة", "ثلثمائة")
    N2T = Replace(N2T, "و  عشرة", "و عشر")
    N2T = IIf(N2T = " عشرة", "عشر", N2T)
    N2T = IIf(N2T = "مائتانِ ", "مائتا", N2T)
    N2T = "فقط " & N2T & IIf(H = 0 And A = 2, "درجتانِ", IIf((H = 1 And A = 0) Or ((H = 0 And A > 2)), " درجاتٍ", IIf(H = 0 And A = 0, " درجةٍ", " درجةً"))) & IIf(K > 0, " و نصفٌ", "")
    N2T = Replace(N2T, "  ", " ")
    N2T = Replace(N2T, "إحدى درجةً", "درجةٌ")
    N2T = Replace(N2T, "اثنتانِ درجتانِ", "درجتانِ")
End Function

Function Num(N As Integer, T As Integer) As String
    M = "مائة"
    H = "ونَ"
    
    Select Case N
        Case Is = 1
            Num = IIf(T = 3, M, IIf(T = 2, "عشرة", "إحدى"))
        Case Is = 2
            Num = IIf(T = 3, "مائتانِ", IIf(T = 2, "عشرونَ", "اثنتانِ"))
        Case Is >= 3
            Num = IIf(T = 3, NN(N) & M, IIf(T = 2, NN(N) & H, NN(N)))
    End Select
End Function

Function NN(N As Integer) As String
    Select Case N
        Case Is = 3
            NN = "ثلاث"
        Case Is = 4
            NN = "أربع"
        Case Is = 5
            NN = "خمس"
        Case Is = 6
            NN = "ست"
        Case Is = 7
            NN = "سبع"
        Case Is = 8
            NN = "ثمان"
        Case Is = 9
            NN = "تسع"
    End Select
End Function
=IFERROR(IF(B2="","",IF(B2=0,"صفر",n2t(B2))),"")

 

استخدام الدالة المعرفة :
كما هو الحال في الدوال العادية في الإكسيل يمكن استخدام الدالة ببساطة في أي خلية ، بفرض أن الدرجة مكتوبة في الخلية B2 ، وتريد تفقيط الدرجة في الخلية C3 على سبيل المثال ، قم بوضع المعادلة بالشكل التالي :
رابط هذا التعليق
شارك

عفوا ... تهتُ ... :imsorry:

 

الكود الطويل أضعه كمودل  في صفحة الفيجول بيسك لملف الأكسل ؟

الكود الصغير السطر الذي بعده أين أضعه ؟

 

مع الشكر 

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

الكود الطويل اسمه دالة معرفة وتوضع في موديول عادي .. اضغط Alt + F11 ومن قائمة Insert اختر Module ثم أدرج الكود فيه

يرجى الإطلاع على الرابط التالي لمعرفة البدايات في التعامل مع محرر الأكواد

من هنا

أما بالنسبة للكود الصغير هذا ليس بكود إنما اسمها معادلة يتم وضعها في الخلية المطلوبة ، وإذا لم تعمل معك المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة

 

تقبل تحياتي

رابط هذا التعليق
شارك

  • 2 years later...
في ٣‏/١١‏/٢٠١١ at 23:08, jalal030 said:

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

نرجو من حضراتكم تزويدنا بكود تفقيط العلامات

السلام عليكم هل ممكن نحصل على ملف اكسل جاهز مفقط لا يحتوي على كلمة فقط درجة 

 

يكون للارقام بس

رابط هذا التعليق
شارك

في ٣‏/١١‏/٢٠١١ at 23:08, jalal030 said:

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

نرجو من حضراتكم تزويدنا بكود تفقيط العلامات

السلام عليكم هل ممكن نحصل على ملف اكسل جاهز مفقط لا يحتوي على كلمة فقط درجة 

يكون للارقام بس

اشكرك أخي لكن المعادلة الثانية  في الملف لم تعمل وكانت صياغتها صحيحة 

رابط هذا التعليق
شارك

في ٣‏/١١‏/٢٠١١ at 23:08, jalal030 said:

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

نرجو من حضراتكم تزويدنا بكود تفقيط العلامات

السلام عليكم هل ممكن نحصل على ملف اكسل جاهز مفقط لا يحتوي على كلمة فقط درجة 

يكون للارقام بس

أشكرك أخي  أنا مبتدئ لذلك طول بالك علي 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information