القائمة الرئيسية

الصفحات

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

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



يحتوي برنامج Excel على مئات الدوال التي تساعدك على أداء العمليات الحسابية المختلفة , لكن للأسف لا توجد دالة لتفقيط الأرقام ( دالة تحويل الأرقام إلى حروف ) , فما الحل ؟


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


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





اظهار التبويب Developer


كتابة كود بلغة VBA يتم من خلال التبويب Developer , اذا لم يكن ظاهرا يمكنك اظهاره عن طريق الخطوات التالية :



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


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





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


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





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


افتح محرر أكود VBA من خلال الضغط على Visual Basic


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




سنقوم بعمل وحدة برمجية جديدة من خلال فتح قائمة Insert ثم Module


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





سيتم اضافة وحدة برمجية جديدة اسمها Module1 التي سنقوم بوضع كود دالة التفقيط داخلها .


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





قم بتحميل الملف التالي وقم بنسخ الكود المكتوب داخله ولصقه داخل الوحدة البرمجية Module1

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









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


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

number : الرقم
maincurrency : العملة الرئيسية
subcurrency : العملة الفرعية

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









أمثلة على استخدام دالة تفقيط الأرقام


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

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






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

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





في الشكل التالي استخدمنا عامل الدمج & لدمج كلمة "فقط" وكلمة "لا غير" مع دالة ConvertNumberToText

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





في الشكل التالي دالة ConvertNumberToText ستقوم بتحويل الرقم 4693.82 إلى حروف بإستخدام عملة الدرهم الإماراتي والفلس .

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







حفظ الملف الذي يحتوي على دالة تفقيط الأرقام


عند حفظ ملف يحتوي على كود VBA لابد من حفظ الملف بصيغة Excel Macro-Enabled Workbook حتى يتم تشغيل الكود عند فتح الملف بعد ذلك .



اضغط على File

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






اضغط على Save As

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






اضغط على Browse

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






سيظهر مربع حوار Save As قم بالتالي :

- اختر مكان حفظ الملف .

- اكتب اسم الملف في مربع النص File name

- افتح القائمة المنسدلة Save as type واختر Excel Macro-Enabled Workbook

- اضغط على زر Save

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