تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel

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

يحتوي برنامج Excel على العديد من الدوال التي تقوم بأداء مهام مختلفة , ولكن للأسف لا يوجد دالة تقوم بتحويل الأرقام إلى حروف , لذا سنقوم ببرمجة دالة تقوم بتحويل الأرقام إلى حروف من خلال كتابة كود VBA

اظهار التبويب Developer في حالة عدم وجوده

لغة VBA هي لغة برمجة موجودة في كل برامج الأوفيس , ويتم العمل عليها من خلال التبويب Developer , واذا لم يكن التبويب Developer موجود لديك في برنامج Excel فيمكنك اظهاره كما هو موضح في الخطوات التالية :

اضغط بزر الماوس الأيمن في أي مكان داخل الشريط Ribbon ثم اضغط على Customize the Ribbon

سيظهر مربع حوار Excel Options , قم بوضع علامة صح بجانب التبويب Developer ثم اضغط على زر OK

فتح محرر أكواد لغة VBA

لفتح محرر أكواد لغة VBA اذهب إلى التبويب Developer ثم اضغط على Visual Basic

نسخ ولصق كود التفقيط

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

قم بتحميل ملف كود التفقيط من خلال الرابط التالي :

https://www.mediafire.com/file/o5dtlqi0si8zerq/tafqeet.txt

قم بفتح الملف بعد تحميله حيث سيتم فتحه داخل برنامج Notepad , قم بتحديد كل الكود الموجود في الملف من خلال الاختصار Ctrl + A أو افتح قائمة Edit ثم اضغط على Select All

قم بنسخ الكود الذي قمنا بتحديده عن طريق الاختصار Ctrl + C أو الضغط بزر الماوس الأيمن واختيار Copy من القائمة المختصرة .

اذهب إلى محرر أكواد VBA ثم قم بلصق الكود في الوحدة البرمجية التي قمنا بإنشائها عن طريق الاختصار Ctrl + V أو الضغط بزر الماوس الأيمن واختيار Paste من القائمة المختصرة .

فهم كود التفقيط

كل ما تحتاج فهمه في كود التفقيط هو تعريف الدالة , حيث قمنا بإنشاء دالة اسمها NumberToText تأخذ المعاملات الثلاثة التالية :

المعامل Number سنكتب به الرقم

المعامل MainCurrency سنكتب به العملة الرئيسية

المعامل SubCurrency سنكتب به العملة الفرعية

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

في الشكل التالي سنستخدم دالة NumberToText لتحويل الرقم 127.65 إلى حروف بعملة الجنية المصري والقرش .

لاحظ أنه يمكنك اضافة أي نص تريده مثل "فقط" و "لا غير" عن طريق استخدام عامل دمج النصوص &

حفظ الملف الذي يحتوي على كود التفقيط

لكي يتم تشغيل كود التفقيط بعد اغلاق الملف وفتحه مرة أخرى لابد من حفظ الملف بالنوع Excel Macro-Enabled Workbook