حمل كود تحويل الأرقام إلى حروف في Excel (كود جاهز) | تفقيط الأرقام في إكسيل

طرق تحويل الأرقام إلى حروف في Excel (دليل شامل)

يواجه الكثير من المستخدمين صعوبة في تحويل الأرقام إلى نصوص مكتوبة بالعربية أو الإنجليزية داخل إكسل. نظراً لعدم وجود دالة مدمجة مباشرة لهذا الغرض، نستعرض في هذا الدليل 4 طرق احترافية لإنجاز ذلك بسهولة، سواء عبر أكواد VBA أو الأدوات الخارجية.

1. استخدام دالة VBA لتحويل الأرقام إلى نصوص عربية

بما أن Excel لا يحتوي على دالة افتراضية للتفقيط بالعربية، فإن الحل الأمثل هو إنشاء دالة مخصصة باستخدام VBA.

📌 خطوات إضافة الكود:

افتح ملف Excel واضغط على ALT + F11 لفتح محرر VBA.
من القائمة العلوية اختر Insert ثم Module.
انسخ الكود التالي والصقه في النافذة البيضاء:

Function ConvertToWords(ByVal MyNumber)
    Dim Units As String, Tens As String, Hundreds As String
    Dim Thousands As String, Millions As String, Temp As String
    Dim DecimalPlace As Integer, Count As Integer
    Static Place(9) As String
    
    Place(2) = " ألف "
    Place(3) = " مليون "
    Place(4) = " مليار "
    
    ' ... باقي الكود متاح في ملف التحميل أدناه ...
End Function

👉 تحميل كود التفقيط العربي الكامل (VBA)

💡 طريقة الاستخدام: بعد لصق الكود، اكتب في أي خلية: =ConvertToWords(A1)

2. دالة SpellNumber للأرقام الإنجليزية

إذا كنت بحاجة لتحويل الأرقام إلى كلمات باللغة الإنجليزية، يمكنك استخدام كود VBA مخصص لذلك:

👉 تحميل كود SpellNumber (إنجليزي)

شرح تحويل الأرقام إلى حروف في الإكسل بسهولة مع الكود — واجهة استخدام دوال تحويل الأرقام في Excel

3. دالة BAHTTEXT (للعملة التايلاندية فقط)

توجد دالة مدمجة في Excel باسم =BAHTTEXT(A1)، ولكن يجب التنويه إلى أنها مخصصة فقط للعملة التايلاندية (البات) ولا تعمل مع العملات العربية أو الدولار.