الرئيسية / فيجوال بيزك / أكواد VBA مفيدة / كود التفقيط – ج1 اللغة العربية
دالة التفقيط للغة العربية
دالة التفقيط للغة العربية

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

السلام عليكم, يعتبر كود التفقيط من أهم اكواد VBA كونه يحل مشكلة شائعة عند مستخدمي برنامج Excel من مختلف اللغات والمتمثلة بتحويل اي رقم عددي الى نص مما يساهم في حل مشكلة طباعة المستندات المالية رقماً ونصاً كما في حالة الشيكات او الفواتير وماشابه.
اعتقد ان كتابة هكذا كود ليتناسب مع طبيعة اللغة العربية (من تذكير وتأنيث) يُعتبر أمراً صعب جداً فما بالك اذا كان هذا الكود يأخذ بعين الاعتبار امكانية تغيير اسم العملة للرقم الصحيح وكذلك الجزء العشري (الكسر). اعتقد أن المهمة هنا ستكون اصعب واصعب. الكود الذي سأطرحه من كتابة الأستاذ المبدع عبد الله باقشير وقد تم طرحه في موقع أوفيسنا عام 2011. لقد قمت بتعديلات طفيفة جداً على الكود كالتالي,

  1. تغيير اسم الدالة الافتراضي لسهولة الكتابة والتذكر,
  2. تغير القيم الافتراضيّة للدالة للعملة السعودية (لا يوجد عملة افتراضيّة في الكود الاصلي),
  3. تغيير ترتيب مدخلات الدالة لسهولة التذكر.

 

كود التفقيط:

يمكنك نسخ كود التفقيط من صندوق الكود التالي او تحميل ملف المثال من آخر المقالة,

 

ملاحظات على عمل كود التفقيط للغة العربية:

بعد اضافة الكود الى موديول Module في محرر الفجوال بيزك لديك VBA Editor (او بعد تحميل ملف المثال وفتحه), سيمكنك استخدام كود التفقيط المقترح من خلال ادراجه (اضافته) كدالة ضمن ورقة العمل.

بعض اكواد VBA يكون عملها (كهذا الكود) من خلال انشاء دالة مخصّصة جديدة Function يرمز لها بـ UDF والتي هي اختصار لـ User Defined Formula.

وبالتالي, كل ماعليك فعله هو تحديد المكان الذي تريد اظهار نتيجة كود التفقيط فيه ثم اتبع خطوات ادراج معادلة في اكسل Excel,

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

 

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

 

لاحظ أننا حددنا مجموعة المعادلات User Defined لنتمكن من اظهار هذه المعادلة المخصّصة. سيُظهر لنا اكسل Excel قائمة بكل الـ UDF المتاحة لنا, نختار معادلة كودنا المسماة CurrText (المشتقة من Currency Text)

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

 

ومن ثم تقوم بادخال بيانات المعادلة حسب ماسيتم توضيحه لاحقاً, ثم موافق.

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

 

 

مدخلات كود التفقيط للغة العربية:

 

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

 

  • معادلة كود التفقيط المقترحة تحتاج كحد ادنى لتحديد قيمة المبلغ المراد تفقيطه سواءاً بكتابته بشكل مباشر في متن (نص) المعادلة كما في المثال رقم 5 اعلاه أو من خلال تحديد خليّة المبلغ كما في المثال الثالث والرابع اعلاه. في هذه الحالة, سيتم تطبيق العملة السعودية (ريال / هللة) على النتيجة افتراضياً الا في حال قمت بتعديل القيمة الافتراضية للمعادلة لتناسب احتياجاتك (سيتم شرحه لاحقاً). كذلك يأخذ الكود بعين الاعتبار صيغة التذكير والتأنيث للمبلغ كأن نقول “اثنا عشر” او “اثنتا عشرة” بما يتناسب مع متطلبات المستخدم النهائي. قمت بتأنيث نتيجة المعادلة افتراضياً لكن يمكنك دائماً تغييرها خلال ادراج الدالة او بتغيير القيمة الافتراضية داخل الكود نفسه (سيتم شرحها لاحقاً)
  • باقي مدخلات المعادلة حسب الرسم التوضيحي اعلاه هي كالتالي,
    • جنس العملة: اختياريّة, صفر او فارغة >> مذكر, اي رقم اخر >> مؤنث
    • اسم العملة الرئيسية مفرد. اختياريّة, لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
    • اسم العملة الرئيسية جمع. اختياريّة, لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
    • جنس الجزء العُشري من الرقم (الكسر). اختياريّة, صفر او فارغة >> مذكر, اي رقم اخر >> مؤنث
    • اسم العملة للجزء العُشري مفرد. اختياريّة, لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
    • اسم العملة للجزء العُشري جمع. اختياريّة, لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
    • عدد الخانات العشرية المراد قرائتها.  اختياريّة.
  • الكود يضيف العبارة ” فقط لا غير” افتراضيّاً بعد المبلغ. يمكنك التعديل عليها (صيغةً ومكاناً) من داخل الكود كما سنرى لاحقاً.
  • في حالة كان اسم العملة ينتهي بتاء مربوطة, يجب كتابةً اسمها بتاء مربوطة وليس هاء. مثال, هللة وليس هلله لتجنب الاخطاء الاملائيّة.
  • في المثالين الأول والثاني اعلاه, قمت بادخال القيم المتناسبة مع العملة المصريّة لكنني غيرت جنس العملة لاظهار الفرق.

 

 

كيفية التعديل على القيم الافتراضية لكود التفقيط:

يمكنك تغيير بعض او جميع القيم الافتراضية لكود التفقيط المقترح لتناسب احتياجاتك كالتالي, بعد نسخ الكود الى محرر الفيجوال بيزك – VBA Editor لديك, يمكنك تعديل القيم حسب التالي,

قيم كود التفقيط الافتراضية
قيم كود التفقيط الافتراضية

0. اسم الكود في حال اردت تغييره.

  1. اي نص تريد كتابته قبل القيمة المكتوبة. مثلاً “فقط ” (فقط مائة وخمسون….). يجب اضافة فراغ بعد العبارة التي قد ترغب باضافتها.
  2. اي نص تريد كتابته بعد القيمة المكتوبة. مثلاً ” فقط لا غير” (مائة وخمسون ريال فقط لا غير). يجب اضافة فراغ قبل العبارة التي قد ترغب باضافتها.
  3. هذا مكان المبلغ. لايمكنك التعديل هنا.
  4. جنس العملة, False >> مذكر, True >> مؤنث.
  5. اسم العملة الرئيسية مفرد. لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
  6. اسم العملة الرئيسية جمع. لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
  7. جنس الجزء العُشري من الرقم (الكسر). False >> مذكر, True >> مؤنث
  8. اسم العملة للجزء العُشري مفرد. لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
  9. اسم العملة للجزء العُشري جمع. لاحظ انك يجب ان تحيطها دائماً باشارتي قتباس “”
  10. عدد الخانات العشرية المراد قرائتها.  اختياريّة.

يجب التبنيه اخيراً انه وفي حالة اضفت هذه المعادلة داخل ملف العمل الذي يحوي الكود, ستظهر لك المعادلة كما هي مكتوبة اعلاه. اما لو حفظت الكود في ملف عمل آخر ومن ثم حاولت استخدام هذه المعادلة (يجب ان تكون ورقة العمل المذكورة مفتوحة الا في حال كان الكود محفوظاً في الملف الشخصي Personal, لمزيد من المعلومات حول هذه النقطة, راجع الروابط اسفل المقالة) فإنك ستحصل على المعادلة مسبوقة باسم ملف العمل الذي يحوي الكود. لا مشكلة اذا ان النتيجة ستكون هي ذاتها.

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

للتوضيح, في حال كنت تتسائل مثلي عن معنى كلمة تفقيط. فاعلم انها مشتقة من كلمة فَقَط وفعل فَقَّط والتي تعني (مثلاً فقّط الحساب) ختمه بكلمة « فقط » مع تعيين مقداره خوفا من التزوير

روابط مهمّة:

أخيراً ملف المثال المذكور في المقالة.

عن Hussein.B

مؤسس ومدير موقع viaexcel.com, اعمل في مجال الإئتمان, مهتم بمواضيع التدريب وتطوير الذات بالإضافة لحبي الشديد لبرنامج اكسل.

36 تعليقات

  1. احسنت
    شرح وافي ومنظم

  2. السلام عليكم
    انا اخذت الدالة وضفتها فى الاكسل لكنها لا تعمل اذا ذاد العدد 999 فما السبب افيدونا جزاكم الله خيرا

    • السلام عليكم. الكود شغال مع المبالغ الكبيرة. ممكن المشكلة لديك بنسخة اكسل. لم اجد حل لهكذا مشكلة للأسف.

  3. حازم الصواف

    ياخي ممكن لوسمحت تعديل نسخه الي تفقيط الساعه اي 11:45ص تصبح (اساعه الحاديه عشر وخمسه واربعون دقيقه صباحا)
    ولك كل الشكر

  4. السلام عليكم

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

    ارجو ان تساعدني

    • اهلاً لينة, وعليكم السلام. موضوع طريقة كتابة الأكواد موضوع معقد كثيراً كون هذه الدالة عبارة عن كود برمجي مكتوب بلغة الفيجوال بيزك ضمن بيئة اكسل وبالتالي, لتعلم كتابة هكذت كود, عليكي بتعلم لغة البرمجة VBA.

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

  5. علي الحوصلي

    1قمت بنسخ الكود
    2 – فتحت الاكسل وظغطت على زر alt+f11 — وبعدها من قائمة insert اخترت module
    3 – الصقت الكود ثم من قائمة fail رجعت للاكسل وبدها اخترت الدالة واشتغلت معي تمام ولكن حاولت حفظ الملف وكانت تظهر لي رسالة كانها تحذيرية

    احاول الخروج وعند الدخول مرة اخرى تظهر بشكل خطأ

    السؤال
    ماهي الطريقة التي احفظ بها المصنف وعند فتحة مرة اخرى تشتغل طبيعي

    هل للخيارات التي تظهر تحت اسم المصنف علاقة
    مثل الحفظ بتنسيق pdf….الخ

    اتمنا اكون قد وصلت استفساري بطريقة مفهومة

  6. علي الحوصلي

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

    استفسار
    بعد عمل المعادلات
    كيف احفظ المصنف
    عندما احفظة لايعمل مرة اخرى بعد فتحة

    شاكرين لكم التعاون
    وجزاكم الله خير

    • وعليكم السلام علي. هل لك ان تشرح لي الخطوا اللي تنفذها بالتفصيل؟

      • علي الحوصلي

        1قمت بنسخ الكود
        2 – فتحت الاكسل وظغطت على زر alt+f11 — وبعدها من قائمة insert اخترت module
        3 – الصقت الكود ثم من قائمة fail رجعت للاكسل وبدها اخترت الدالة واشتغلت معي تمام ولكن حاولت حفظ الملف وكانت تظهر لي رسالة كانها تحذيرية

        احاول الخروج وعند الدخول مرة اخرى تظهر بشكل خطأ

        السؤال
        ماهي الطريقة التي احفظ بها المصنف وعند فتحة مرة اخرى تشتغل طبيعي

        هل للخيارات التي تظهر تحت اسم المصنف علاقة
        مثل الحفظ بتنسيق pdf….الخ

        اتمنا اكون قد وصلت استفساري بطريقة مفهومة

        • علي الحوصلي

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

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

        • مرحباً علي. راجع الموضوع التالي واللي رح يفيدك بطريقة حفظ الكود للاستخدام اللاحق.

          https://goo.gl/moUmgE

  7. باسم القادري

    اشكركم
    ولكن لماذا لا يمكن كتابة العدد اكبر من 999
    وكيف يمكن ان اكبر مدى الدالة

    • مرحباً باسم, الدالة تقبل ارقام كبيرة جداً وهي غير محدودة بالرقم 999. هذا مثال جربته قبل كتابة ردي,

      مليار ومائتان وسبعة وثلاثون مليوناً وخمسمائة وواحد وعشرون ألفاً وثلاثمائة وأربع وخمسون جنيه واثنتا عشرة قرش فقط لاغير

  8. محمود محمد احمد محمد

    السلام عليكم
    لايوجد كود تفقيط لثلاث خانات قبل الفاصلة
    مثال
    1.999
    دينار و تسعمئة و تسعة و تسعون فلس

    • اهلاً محمود. وعليكم السلام. ماجربت الكود على هيك رقم للأمانة. عندي مشكلة بالجهاز مع اللغة العربية, رح احلها واردلك خبر لاحقاً ان شاء الله.

  9. ارجو الحصول على كود تفقيط درجات الطلاب مثال مائة واربعة وخمسون درجة ونصف الدرجة فقط

    • مرحباً أخي. يمكنك استخدام نفس الكود في هذه المقالة مع تغيير اسم العملة والكسر الى درجة, واسم الجمع للعملة والكسر الى درجات.

  10. ا/ حسين جزالك الله خيرا علي ما قدمت
    ولكن بعد ما نزلت الكود وبحثت عن الدالة وجدتها وعند تنفيذها ظهرت هذه النتيجه
    ؟؟؟؟؟؟ ؟؟؟؟؟؟؟ جنيه ؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟
    ما معني هذا ؟ وكيف يتم علاجه
    ولكم كل الشكر والاحترام
    ” اتمني الرد حالا لانني اقوم بتنفيذها الان ومحتاجها ضروري “

    • مرحبا اخ محمد. المشكلة هنا باعدادات الجهاز لديك. غير اعدادات الجهاز من لوحة التحكم ليقرأ اللفات غير المفهومة كلغة عربية.

      • ا/ الفاضل قمت بتغيير اعدادت اللغة الي العربيه ” مصر ” لأنها كانت العربية ” السعودية ”
        ولكن تبقي النتيجه كما هي
        المشكلة تكمن في الكود نفسه يافندم لما اخذت نسخة من الكود من جوجل ولصقتها في الموديل
        ظهر عندي كله بنفس الشكل ؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟
        ولما غيرت الاعدادات لم يتغير اي شئ
        هل يوجد ملف للكود انزله افضل من النسخ من جوجل ولا حضرتك شايف ايه الحل ؟

  11. 1-عند كتابة 2000 تظهر فقط ألفا جنيهاً مصرياً لاغير والمفروض ان تظهر فقط ألفان جنيهاً مصرياً لاغير مضافا اليها (ن) فهل من حل
    2- عند كتابة 17002 تظهر فقط سبعة عشر ألفً وجنيهاً مصرياً اثنان لاغير والمفروض ان تظهر فقط سبعة عشر ألفً ولثنان جنيهاً مصرياً لاغير

    • جرب عكس جنس العملة في مدخلات المعادلة.

      • نفس الخطأ حتى بعد تغيير جنس العملة

        وكذلك 2222 تظهر فقط ألف ومائتان واثنتان وعشرون جنيهاً مصرياً لاغير

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

        • أخ أحمد, اصعب مافي اللغة العربية هو التذكير والتأنيث ومايتبع هذا الموضوع من قواعد لغوية واملائية. اعتقد أن الكود المقترح اعلاه هو من افضل الأكواد التي استطاع كاتبه سد هذه الفجوة. ربما لم يقم بذلك على اتم وجه “حسب رأيك” من ناحية ألفا أم ألفان (رغم قناعتي بأن ألفا هي أصح من ألفان) لكنه قام بعمل جيد لا اعتقد انك ستجد أفضل منه في المواقع العربية. اما بخصوص المبلغ 2222 فقد قمت بتجربته وقد اعطاني العبارة الصحيحية “ألفان ومائتان واثنتان وعشرون ريال فقط لاغير”

  12. محمود أمين

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

    عندي الأوفيس باللغة العربية – وحاولت تبويب كود ( المطور ) ولكن لم أستطيع – أرجو مساعدتي في ذلك – وايضا شرح وافي لتفعيل دالة التفقيط بالانجليزي عي هذه النسخة – العملة ريال سعودي

    وشكرا

    • وعليكم السلام, حياك الله اخ محمود. ل

      اضافة تبويب المطور, اتبع الخطوات المذكورة في المقالة التالية,
      http://goo.gl/fDjCt9

      اما بخصوص دالة التفقيط في اللغة الانكليزية, فيمكنك مراجعة الموضوع التالي,
      http://goo.gl/WMpm8W

      انا جاهز لا مساعدة قد تحتاجها.

  13. هذا عمل رائع بارك الله فيك حيث كنت ايحث عن هذه الدالة مدة طويلة وحاولت عملها من قبل من عدة مواقع لكنها لم تظبط معي ولكن لدى سؤال : ألا يمكن الاشارة الي مرجع الخلية في في شاشة :ادخال بيات المعادلة” في خنة num بدلا من ادخال الرقم المراد تفقيطه ثم يمكن نسخ الخلية الى اسفل في ملف الاكسل . انا جربت هذه الطريقة لكن للاسف النتيجة تطلع خطأ هكذا
    25 خمس وعشرون ريال
    311 ثلاثمائة وإحدى عشرة ريال
    10266 #VALUE!
    56994 #VALUE!

    هل يوجد حل لهذه المشكلة ؟؟؟؟؟ مرة اخرى لك جزيل الشكر

    • حياك الله اخي الكريم. اكسل يعامل هذه الدالة كانها دالة افتراضية وبالتالية ماطلبته متاح افتراضيا. هل لك ان ترفع ملف العمل لارى سبب الخطأ الذي تحصل عليه؟

      • اشكرك اخي HUSSEIN.B لسرعة استجابتك وآسف لتأخري في الرد بس ما اعرف من فين وكيف ارفع الملف لايوجد هنا ايقونة للرفع . وبعدين لو سمحت سؤال : من اين يبدا الكود من :
        Private Const wow As String * 2 = ” و أم من :Private Const wow As String * 2 = ”
        وبارك الله فيك

        • حياك الله عزيزي. بخصوص التحميل, يمكنك تحميل المثال على اي موقع تحميل ملفات مثل 4shared.com ووصع الرابط هنا.

          اما بخصوص الكود فهو يبدأ من أول كلمة,
          Option Explicit

          في صندوق الكود, يوجد ايقونة في الشريط العلوي للصندوق تحوي زر النسخ لتسهيل عملية النسخ عليك او يمكنك تحميل الملف المثال من آخر المقالة ومن ثم نسخ الكود منه. بانتظار ارسالك الملف لارى المشكلة.

أضف تعليقاً

لن يتم نشر عنوان بريدك الإلكتروني. الحقول الإلزامية مشار إليها بـ *