كود تفقيط الدرجات باللغة العربية

[al7aer2]

سلام عليكم ايها الاخوة الاعزاء:
ابحث عن كود لتفقيط الأرقام العربية وتحويل الرقم العربي الى كلمات. 100=مائة. 90= تسعون. 12= اثنتا عشرة ... الخ.
جميع الكودات التي وجدتها فيها نقص.
اريد الكود للدرجات فقط.
50 / خمسون درجة
47 / سبع وأربعون درجة
11 / احدى عشرة درجة
الكود اريده يراعي قواعد التمييز.
واريده ان يضاف الى دوال الاكسيل الدائمية.
مع كل المحبة والتقدير لمن يبدي المساعدة، علما إنني جربت الاكواد هنا في المنتدى / صفحة مجموع فيها كثير من الأكواد، عربي، انكليزي، عربي انكليزي. وفي غير هذا المنتدى أيضاً.

 

[أبوعيد]

وعليكم السلام

هذا من صميم عملي كمعلم

اكتب في الخلايا الصفراء ولاحظ النتيجة

تفضل

الدرجات والترتيب.xlsx

تم تعديل يونيو 21, 2019 بواسطه أبوعيد

[Ali Mohamed Ali]

وعليكم السلام

 عليك اخى الكريم رفع الملف

فعموما هذا كود اخر لإثراء الموضوع بعد اذن الأستاذ ابو عيد

 

.

 

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

[al7aer2]

الاخ الكريم (أبو عيد): ما عملته رائع جدا. وهو توظيف دالة vlookup الرائعة. شكرا لك من القلب ورعاك الله تعالى ووفقك.
وفعلا العمل مفيد ومطابق لقواعد التمييز. بحسب استقرائي المتواضع.
لكن لا بد ان يكون العمل ضمن الورقتين في الاكسيل ولا يمكن في ورقة جديدة.
صحيح اليس كذلك استاذ (أبو عيد)؟
 

 

الاخ الكريم: Ali Mohamed Ali
شكرا لتفاعلك ومساعدتك.
لكن في الحقيقة  يترتب على هذا الكود بعض الأخطاء، منها صحة التمييز. ومنها تقدم كلمة فقط على المعدود وهو قبيح في اللغة العربية.

 

[Ali Mohamed Ali]

الأمر ليس بالصعب طالما انك تريد هذا

تفضل الملف بدون كلمة فقط

 

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

[al7aer2]

 

9 ساعات مضت, Ali Mohamed Ali said:

الأمر ليس بالصعب طالما انك تريد هذا

تفضل الملف بدون كلمة فقط

 

تفقيط الدرجات.xls 67 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

شكرا لك أخي الكريم: الامر لم ينحصر في كلمة فقط، بل المشكلة في التمييز، مثلا: الدرجة مؤنث، فعندما نقول: 45 = لا بد ان تكتب: خمس وأربعون درجة، ضرورة الاختلاف بين المعدود المؤنث والرقم الأول. وهكذا في بقية الارقام: مثلا: رقم 12 درجة. لا بد ان يكتب: إثنتا عشرة درجة.
وفي الملف ايضا مشكلة، تخرج الصفحة بيضاء لا يوجد فيها خطوط الاكسل.هل يمكن أن تتحول كلمة فقط لتكون بعد الارقام الكتابية؟
وهل يمكن أن تتغير الكلمة الاولى في الكود بدل خمسة وثمانون= تكون خمس وثمانون درجة فقط؟
هل يمكن اذا كانت الدرجة 10 فتكون الكتابة= عشر درجات. واذا كانت: 18= تكتب: ثمان عشرة او ثماني عشرة ، لا ثمانية عشرة؟
او مثلاً: 12 تكون اثنتا عشرة درجة. لا اثنا عشر درجة كما هو الان في الكود.
كل التقدير لك والعرفان والمحبة

[Ali Mohamed Ali]

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

 

تفقيط الدرجات2.xls

[al7aer2]

احسنت علي محمد، بوركت، ورعاك الله تعالى ووفقك لكل خير.
فعلا الكود ممتاز

لو ترتب الصفر، اكون لك شاكراً.
0 = صفر، بلا حاجة الى فقط، كذلك 100= مائة، بلا حاجة الى فقط، لانك تعلم أن الفقط استثناء من شيء، والصفر لا استثناء فيه فهو الدرجة الادنى، وكذلك المائة فهي الدرجة الكاملة، فلا معنى لان نقول مائة درجة فقط. وكل المحبة لك والدعاء.

[Ali Mohamed Ali]

تفضل

 

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

[al7aer2]

شكرا لكم اخي الكريم للتواصل والمساعدة، جعل الله في ميزان حسناتك ان شاء الله.
الف شكر لك يا غالي ورب يحفظكم ويرعاكم.
ما قصرت والله
 

تم تعديل يونيو 22, 2019 بواسطه al7aer2

[al7aer2]

لكن هنا تغيرت الدالة، فاصبحت دالة (If) وعندما أطبقها على الورقة الثانية لا يمكن تطبيقها.

نعم في صفحة الاكسيل الاولى لا يوجد مشكلة

[Ali Mohamed Ali]

لا اعلم ما المشكلة لديك بالضبط فالملف يعمل عندى

عليك برفع الملف نفسه الذى به المشكلة وليس صورة

 

[al7aer2]

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

[Ali Mohamed Ali]

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

فاذا كان هناك مشكلة فمن عندك لذا قلت لك ارفع الملف الذى به المشكلة

[al7aer2]

تفقيط الدرجات- مع التعديل.xls

هذا هو الملف
 

 

[Ali Mohamed Ali]

تفضل -كنت كاتب المعادلة بطريقة غير صحيحة

 

تفقيط الدرجات مع التعديل.xls

[al7aer2]

الله يسلمك ويحفظك وشكرا أتعبتك معي:
لا زالت مشكلة في المعادلة، حين اطبق الصيغة في مكان آخر، تكون النتيجة متساوية في جميع الارقام.

تفقيط الدرجات مع التعديل_2.xls

[Ali Mohamed Ali]

أخى الكريم انتبه للمعادلة فانت تقوم بكتابتها بطريقة غير صحيحة 

تم ضبط ملفك

 

2.xls

[al7aer2]

اخي الكريم: المعادلة:
=IF(G12=100;"مائة درجة";B_Only(G12;1;1;2;"درجة";"درجتان";"درجات"))
حيث G12 المتغير في رقم العمود والصف.
أليس كذلك؟
لا أستطيع تطبيقه على رقم آخر، تخرج القيمة متساوية.
علمني كيف اكتب المعادلة ضمن القيم للدالة:

 

[Ali Mohamed Ali]

حضرتك كنت كاتب المعادلة بهذه الصورة

=IF(G12,"ثمانون درجة",B_Only(C12,1,1,2,"درجة","درجتان","درجات"))

فكيف تكون النتيجة صحيحة بهذه الطريقة واول جزء بالمعادلة الخلية G12 ,ثم قمت بكتابة الخلية C12 داخل معادلة التفقيط فيجب كتابة نفس الخلية داخل معادلة التفقيط ايضا وهى الخلية G12

فبالتالى شكل المعادلة كلها غير صحيحة -لأن ايضا جزء معادلة If غير مضبوط,فيجب ان تكون المعادلة هكذا كالتالى :

=IF(G12=100,"مائة درجة",B_Only(G12,1,1,2,"درجة","درجتان","درجات"))

 

[al7aer2]

نعم توجهت لما تقول.
الف شكر ولك كل الود.