اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

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

السلام عليكم

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

قام بنشر

تفضل اخى

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

عيد سعيد

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

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

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

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

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

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

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

ويقال فقط:

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

......

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

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

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

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

تفقيط الدرجات.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:

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information