في هذه المقالة سأوضح لك طريقتين سريعتين ومجانيتين لتحويل أرقام العملات إلى كلمات إنجليزية في Excel 2019 و 2016 و 2013 وإصدارات أخرى.

يعد Microsoft Excel برنامجًا رائعًا برنامج لحساب هذا وذاك. تم تطويره في البداية لمعالجة مصفوفات البيانات الكبيرة. ومع ذلك ، فإنه يتيح أيضًا إنشاء سجلات محاسبية مثل الفواتير أو التقييم أو الميزانيات العمومية بسرعة وفعالية.

في مستندات الدفع الأكثر صلابة أو أقل ، من الضروري تكرار القيم الرقمية مع نموذج الكلمات. تزوير الأرقام المكتوبة أصعب بكثير من تزوير الأرقام المكتوبة بخط اليد. يمكن لبعض المحتالين محاولة صنع 8000 من 3000 ، في حين أنه يكاد يكون من المستحيل استبدال "ثلاثة" سرًا بـ "ثمانية".

لذا فإن ما تحتاجه ليس مجرد تحويل الأرقام إلى كلمات في Excel (على سبيل المثال 123.45 إلى "مائة وثلاثة وعشرون ، وخمسة وأربعون") ، ولكن يجب كتابة الدولارات والسنتات (على سبيل المثال 29.95 دولارًا أمريكيًا على أنها "تسعة وعشرون دولارًا وتسعة وتسعون سنتًا") والجنيه الإسترليني والبنس للجنيه الإسترليني واليورو وسنت اليورو وما إلى ذلك.

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

أو وحدات ماكرو VBA أو الوظائف الإضافية لجهات خارجية.

ستجد أدناه طريقتين لتحويل الأرقام من الأرقام إلى الكلمات

وربما تحتاج إلى ذلكتحويل الكلمات إلى أرقام في Excel

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

ماكرو SpellNumber VBA لتحويل الأرقام إلى كلمات

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

يمكنك العثور على الماكرو المذكور باسم "صيغة الترقيم الإملائي". ومع ذلك ، فهي ليست صيغة ، ولكنها دالة ماكرو ، أو لكي نكون أكثر دقة وظيفة محددة بواسطة مستخدم Excel (UDF).

خيار الترقيم الإملائي قادر على كتابة دولارات وسنتات. إذا كنت بحاجة إلى عملة مختلفة ، فيمكنك تغيير " دولار " و " سنت " باسم العملة الخاصة بك.

إذا لم تكن رجلًا خبيرًا في VBA أدناه ستجد نسخة من الكود. إذا كنت لا تزال لا تريد أو ليس لديك وقت لحل هذه المشكلة ، فالرجاء استخدام هذا الحل.

1. افتح المصنف حيث تريد تهجئة الأرقام.
2. اضغط على Alt + F11 لفتح نافذة محرر Visual Basic.
3. إذا كان لديك عدة كتب مفتوحة ، فتحقق من أن المصنف المطلوب نشط باستخدامقائمة المشاريع في الزاوية اليسرى العليا من المحرر (أحد عناصر المصنف مظلل باللون الأزرق).
4. في قائمة المحرر ، انتقل إلى إدراج - & gt؛ الوحدة النمطية .
5. يجب أن ترى نافذة تسمى YourBook - Module1. حدد كل الكود في الإطار أدناه والصقه في هذه النافذة.

   خيار صريح 'الوظيفة الرئيسية SpellNumber (ByVal MyNumber) باهتة الدولارات ، سنتات ، خانة عشرية معتمة درجة الحرارة ، عدد ReDim Place (9) كمكان سلسلة (2) = "ألف" مكان (3) = "مليون" Place (4) = "Billion" Place (5) = "Trillion" MyNumber = Trim (Str (MyNumber)) DecimalPlace = InStr (MyNumber، ".") If DecimalPlace & gt؛ 0 ثم سنتات = GetTens (يسار (منتصف (MyNumber، DecimalPlace + 1) & amp؛ _ "00"، 2)) MyNumber = Trim (Left (MyNumber، DecimalPlace - 1)) End If Count = 1 Do while MyNumber "" Temp = GetHundreds (Right (MyNumber، 3)) If Temp "" ثم Dollars = Temp & amp؛ مكان (عد) & أمبير ؛ دولارات إذا Len (MyNumber) & GT؛ 3 ثم MyNumber = يسار (MyNumber ، Len (MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & amp؛ أمبير ؛ "Dollars" End حدد Case Cents Case "" Cents = "و No Cents" Case "One" Cents = "و One Cent" Case Else Cents = "و" & amp؛ سنتات وأمبير. "Cents" End حدد SpellNumber = Dollars & amp؛ Cents End Function Function GetH مئات (ByVal MyNumber) خافت النتيجة كسلسلة If Val (MyNumber) = 0 ثم الخروج من الوظيفة MyNumber = Right ("000" & amp؛ MyNumber، 3) 'تحويل خانة المئات. إذا كان Mid (MyNumber، 1، 1) "0" ثم النتيجة = GetDigit (Mid (MyNumber، 1، 1)) & amp؛ "Hundred" End If "تحويل خانة العشرات والآحاد. إذا كان Mid (MyNumber، 2، 1) "0" ثم النتيجة = النتيجة & amp؛ GetTens (Mid (MyNumber، 2)) Else Result = النتيجة & amp؛ GetDigit (Mid (MyNumber، 3)) End If GetHundreds = النتيجة وظيفة وظيفة GetTens (TensText) باهتة نتيجة سلسلة نتيجة = "" 'إبطال قيمة الوظيفة المؤقتة. إذا كان Val (يسار (TensText، 1)) = 1 ثم 'If القيمة بين 10-19 ... حدد الحالة Val (TensText) الحالة 10: النتيجة = "Ten" الحالة 11: النتيجة = "Eleven" الحالة 12: النتيجة = "اثنا عشر "الحالة 13: النتيجة =" ثلاثة عشر "الحالة 14: النتيجة =" أربعة عشر "الحالة 15: النتيجة =" خمسة عشر "الحالة 16: النتيجة =" ستة عشر "الحالة 17: النتيجة =" سبعة عشر "الحالة 18: النتيجة =" ثمانية عشر "حالة 19: النتيجة = "Nineteen" Case Else End حدد أيضًا "If القيمة بين 20-99… حدد Case Val (Left (TensText، 1)) الحالة 2: النتيجة =" Twenty "الحالة 3: النتيجة =" Thirty "الحالة 4: النتيجة = "أربعون" الحالة 5: النتيجة = "خمسون" الحالة 6: النتيجة = "ستون" الحالة 7: النتيجة = "سبعون" الحالة 8: النتيجة = "ثمانون" الحالة 9: النتيجة = "تسعون" حالة أخرى ، حدد النتيجة = النتيجة & أمبير ؛ GetDigit _ (Right (TensText، 1)) "استرداد مكان واحد. End If GetTens = Result End Function Function GetDigit (Digit) حدد الحالةحالة Val (Digit) 1: GetDigit = "One" الحالة 2: GetDigit = "Two" الحالة 3: GetDigit = "ثلاثة" الحالة 4: GetDigit = "أربعة" الحالة 5: GetDigit = "خمسة" الحالة 6: GetDigit = " ستة "حالة 7: GetDigit =" سبعة "حالة 8: GetDigit =" ثمانية "الحالة 9: GetDigit =" تسعة "حالة أخرى: GetDigit =" "إنهاء تحديد وظيفة النهاية

6. اضغط على Ctrl + S لحفظ المصنف المحدث.

   سوف تحتاج إلى إعادة حفظ المصنف الخاص بك. عند محاولة حفظ المصنف باستخدام ماكرو ، ستحصل على الرسالة " لا يمكن حفظ الميزات التالية في مصنف خالٍ من الماكرو "

   

   انقر فوق "لا" عندما ترى مربع حوار جديد ، اختر خيار حفظ باسم. في الحقل " حفظ كنوع " اختر الخيار " مصنف Excel المزود بماكرو ".

   

استخدم ماكرو SpellNumber في أوراق العمل الخاصة بك

الآن يمكنك استخدام الوظيفة SpellNumber في مستندات Excel الخاصة بك. أدخل =SpellNumber(A2) في الخلية حيث تريد كتابة الرقم بالكلمات. هنا A2 هو عنوان الخلية مع الرقم أو المبلغ.

هنا يمكنك رؤية النتيجة:

Voila!

انسخ وظيفة SpellNumber بسرعة إلى خلايا أخرى.

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

انقر بزر الماوس الأيسر واسحبه عبر العمود لملء الصيغة. حرر الزر لمشاهدة النتائج:

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

يمكنك أيضًا إدخال الرقم مباشرة في الوظيفة ، من أجل مثال ، =SpellNumber(29.95) (29.95 - بدون علامات الاقتباس وعلامة الدولار).

عيوب استخدام الماكرو لتهجئة الأرقام في Excel

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

العيب الرئيسي لاستخدام ماكرو هو إذا قمت بإرسال المصنف إلى شخص آخر ، فلن يقوم هذا الشخص بذلك. راجع النص ما لم يتم تضمين الماكرو في المصنف. وحتى إذا كانت مضمنة ، فسوف يتلقون تنبيهًا بوجود وحدات ماكرو في المصنف.

تهجئة الأرقام في كلمات باستخدام وظيفة إضافية خاصة

بالنسبة لمستخدمي Excel الذين يحتاجون إلى تهجئة المبالغ بسرعة ولكن ليس لديهم الوقت لتعلم VBA أو اكتشاف الحلول ، أنشأنا أداة خاصة يمكن أن يؤدي بسرعة تحويل المبلغ إلى كلمات لبعض العملات الشائعة. يرجى تلبية الوظيفة الإضافية Spell Number المضمنة في أحدث إصدار من Ultimate Suite for Excel.

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

• يمكنك تحديد أحدالعملات التالية: USD ، EUR ، GBP ، BIT ، AUD.
• تهجى الجزء الكسري بالسنت أو البنسات أو البتات.
• اختر أي حالة نصية للنتيجة: الأحرف الصغيرة ، الأحرف الكبيرة أو حالة العنوان أو حالة الجملة.
• تهجئة الجزء العشري بطرق مختلفة.
• تضمين أو حذف صفر سنتات.

تدعم الوظيفة الإضافية كل العناصر الحديثة الإصدارات بما في ذلك Excel 365 و Excel 2029 و Excel 2016 و Excel 2013 و Excel 2010. لا تتردد في استكشاف الإمكانات الأخرى على الصفحة الرئيسية للمنتج المرتبطة أعلاه.

والآن ، دعنا نرى أداة التدقيق الإملائي للأرقام هذه قيد التنفيذ :

1. حدد خلية فارغة للنتيجة.
2. في علامة التبويب Ablebits ، في مجموعة Utilities ، انقر فوق رقم التدقيق الإملائي .
3. في نافذة الحوار رقم الانسكاب التي تظهر ، قم بتكوين الأشياء التالية:
   • بالنسبة إلى المربع حدد رقمك ، اختر الخلية التي تحتوي على المقدار الذي تريد كتابته كنص.
   • حدد المطلوب حاليًا ، حالة الأحرف وطريقة العلامة العشرية يجب كتابة الجزء من الرقم.
   • تحديد ما إذا كنت تريد تضمين صفر سنتات أم لا.
   • اختر ما إذا كنت تريد إدراج النتيجة كقيمة أو صيغة.
4. في أسفل نافذة الحوار ، معاينة النتيجة. إذا كنت راضيًا عن طريقة كتابة رقمك ، فانقر فوق تهجئة . خلاف ذلك ، جرب إعدادات مختلفة.

توضح لقطة الشاشة أدناه الإعداد الافتراضيالاختيارات والرقم الإملائي في B2. يرجى ملاحظة وجود صيغة (بشكل أكثر دقة ، دالة معرّفة من قبل المستخدم) في شريط الصيغة:

وهذا عرض سريع لكيفية كتابة العملات الأخرى:

نصائح وملاحظات:

• نظرًا لأن الوظيفة الإضافية الرقم الإملائي تم تصميمها للتعامل مع حالات الاستخدام الواقعية مثل الفواتير والمستندات المالية الأخرى ، فيمكنها فقط تحويل رقم واحد في كل مرة.
• لتهجئة عمود من الأرقام ، أدخل صيغة في الخلية الأولى ، ثم انسخ الصيغة لأسفل.
• إذا كانت هناك فرصة لذلك قد تتغير بيانات المصدر الخاصة بك في المستقبل ، فمن الأفضل إدراج النتيجة كصيغة ، بحيث يتم تحديثها تلقائيًا مع تغير الرقم الأصلي.
• عند اختيار النتيجة كصيغة الخيار ، يتم إدراج وظيفة مخصصة من قبل المستخدم (UDF). إذا كنت تخطط لمشاركة المصنف الخاص بك مع شخص ليس لديه Ultimate Suite مثبتًا ، فتذكر استبدال الصيغ بالقيم قبل المشاركة.

التحويل العكسي - تحويل الكلمات الإنجليزية إلى أرقام

بصراحة ، لا أستطيع أن أتخيل لماذا قد تحتاجه. فقط في حالة… :)

يبدو أن برنامج Excel MVP ، جيري لاثام ، أنشأ وظيفة محددة بواسطة مستخدم Excel (UDF) كـ WordsToDigits . يقوم بتحويل الكلمات الإنجليزية إلى رقم.

يمكنك تنزيل مصنف Jerry's WordsToDigits لرؤية رمز UDF. ستجد هنا أيضًا أمثلة على كيفية استخدام ملفوظيفة.

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