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

[jalal030]

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

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

[عبدالله المجرب]

السلام عليكم

اخي الفاضل

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

نرجو منك التوضيح بارك الله فيك

[jalal030]

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

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

السلام عليكم

المقصود الدرجات وتحويلها من رقم الى كتابه

[جمال الفار]

تفضل اخى

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

عيد سعيد

ELFAR.rar

[أ / محمد صالح]

تفضل اخى

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

عيد سعيد

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

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

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

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

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

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

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

ويقال فقط:

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

......

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

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

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

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

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

[جمال الفار]

اخى فى الله

mas123

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

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

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

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

جزيت خيرا

[ياسر الحافظ]

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

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

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

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

وفقكم الله

ابو الحارث

[jalal030]

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

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

السلام عليكم

المقصود الدرجات وتحويلها من رقم الى كتابه

[jalal030]

اشكركم من صميم قلبي

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

[حالة]

رائع  

 

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

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

 

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

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

 

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

 

 

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

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 على سبيل المثال ، قم بوضع المعادلة بالشكل التالي :

[حالة]

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

 

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

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

 

مع الشكر 

تم تعديل أبريل 24, 2016 بواسطه حالة

[ياسر خليل أبو البراء]

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

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

من هنا

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

 

تقبل تحياتي

[حالة]

جزاك الله خيرا  أخي ياسر

وجزاك الله خيرا أخي قصي

، المعذرة على التأخر في الرد .

سأجرب :) 

[أبو أيمن ياسر]

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

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

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

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

 

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

[أبو أيمن ياسر]

من فضلكم

اريد ملف اكسل مفقط  بدون كلمة فقط درجة  

[Ali Mohamed Ali]

تفضل الحل بمعادلتين مختلفتين داخل الملف

 

 

ELFAR.xlsm

تم تعديل يناير 27, 2019 بواسطه ali mohamed ali

[أبو أيمن ياسر]

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

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

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

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

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

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

[Ali Mohamed Ali]

اخى الكريم كما ترى المعادلتين يعملان بكل كفاءة اذا كان هناك مشكلة فمن عندك حاول تحلها

 

[أبو أيمن ياسر]

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

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

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

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

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

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

[Ali Mohamed Ali]

الملف الذى ارسلنه اليك سابقا بالفعل به كل ما تريد