Note: The other languages of the website are Google-translated. Back to English

كيفية تهجئة الأرقام أو تحويلها إلى كلمات إنجليزية في إكسيل؟

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

تهجئة الأرقام أو تحويلها إلى كلمات إنجليزية باستخدام كود VBA

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


تهجئة الأرقام أو تحويلها إلى كلمات إنجليزية باستخدام كود VBA

يمكن أن يساعدك رمز VBA الطويل التالي في توضيح الأرقام إلى سلاسل نصية. افعل ما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف نافذة الوحدة.

فبا: تهجئة أرقام العملات للكلمات الإنجليزية في إكسيل

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Dollars
    Case ""
        Dollars = "No Dollars"
    Case "One"
        Dollars = "One Dollar"
    Case Else
        Dollars = Dollars & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: Result = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select
End Function

3. ثم احفظ الكود ، وعُد إلى ورقة العمل ، في الخلية B2 المجاورة ، أدخل الصيغة = SpellNumberToEnglish (A1)، انظر لقطة الشاشة:

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

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


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

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

كوتولس ل إكسيل- يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن

1. حدد نطاق الأرقام التي تريد تهجئتها ، وانقر فوق كوتولس > وصف المنتج > أرقام إلى كلمات.
رقم doc kutools للكلمات 1

2. في مربع الحوار المنبثق ، اختر الانجليزية من اللغات. ويمكنك معاينة النتائج من اليمين أرسال جزء. انظر لقطة الشاشة:
رقم doc kutools للكلمات 2

3. ثم اضغط Ok or قم بالمشاركة. وتم تحويل جميع أرقام مبلغ السعر إلى سلاسل نصية في النطاق الأصلي.
رقم doc kutools للكلمات 3

ملاحظة: إذا كنت ترغب فقط في تحويل الأرقام إلى كلمات إنجليزية (وليس عملة) ، يرجى التحقق لم يتم التحويل إلى العملة مربع.
رقم doc kutools للكلمات 3 رقم doc kutools للكلمات 3

هذه الميزة الرائعة أرقام إلى كلمات يمكن بسهولة ترجمة أرقام العملات إلى نص العملة باللغة الإنجليزية أو الصينية ، مثل ترجمة 32.01 إلى "اثنان وثلاثون دولارًا وسنتًا واحدًا" أو "叁拾 贰元 零 壹 分". احصل على نسخة تجريبية مجانية!

العرض التوضيحي: تهجى أرقام العملات للكلمات الإنجليزية


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (112)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انه حقا رائع. و Fount من السهل تغيير كلمة "دولار" وإرسالها إلى روبية أو أي عملة أخرى نريدها عن طريق نسخ ولصق كود إلى أي صفحة كلمة جديدة واستبدالها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا أحصل على هذه الصيغة في صحيفتي ، هل يمكنك أن تريني بالتفصيل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على معلوماتك القيمة. أحتاج أن أذكر أنه درهم وليس دولار ، كيف أجعله شكرًا مقدمًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الرجاء تغيير جميع الكلمات ~ دولار / دولار "و ~ سنت / سنت" في الكود إلى اسم عملتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد جربت هذا وعملت معي ... اذهب إلى الوحدة ، ctrl F للعثور على >>> ثم في البحث ، ضع الدولار ثم انتقل لاستبدال (في نفس المربع المنبثق) ووضع الدرهم ، وسيعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مشكلة في التقريب بالأرقام. المثال في بياناتي العامة هو 50.576 ولكن عندما قمت بتقريبها وأصبحت 50.58 ، فإن الكلمات لا تتغير / تتحول وفقًا للقيمة الجديدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه رمز يعمل بشكل جيد. شكرًا جزيلاً.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنها معادلة جيدة جدًا ، لكني بحاجة إلى الكلمات بتنسيقات هندية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
توضح لي plx كيف يمكنني رؤيتها في شكل عملة بلدي ، أي الروبية بدلاً من الدولار والبيزة بدلاً من السنتات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي العزيز ، إنها صيغة جيدة جدًا ، لكني بحاجة إلى الكلمات بتنسيقات هندية ، يرجى النصيحة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن الحصول على البيانات على شكل 100 بعد العلامة العشرية ، على سبيل المثال .100 إجابة تكون 100 بدلاً من عشرة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا على الصيغة ، مع ذلك ، هل من الممكن الحصول على كلمة "Dollar / Rupees" كبادئة ، أي Rupees XNUMX .... و Paisas XNUMX فقط. سوف نقدر حقا ردك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني تغيير المبلغ في الكلمات الإنجليزية بالعملة الهندية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انسخ لغة الكود أعلاه في ورقة الكلمات ، استبدل كلمة "dollar" بـ "Rupees" ثم استبدل كلمة "cents" بـ "Paisa" ارجع إلى ملف Excel ، اضغط على alt + F11 insert >>> module >> الصق ملف word بالكامل حتى "وظيفة النهاية" تفعل ..... = SpellNumberToEnglish (cellref) وأنت على ما يرام
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً سيدي ، لقد حاولت حفظ الماكرو كما ذكرت أعلاه. وهي تعمل بشكل جيد. ولكن إذا أغلقت ملف Excel وفتحت ورقة جديدة ، فلن تعمل. الرجاء المساعدة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا JUS ، يمكنك تثبيت SPEL CURR ADDIN يمكنك التحويل :) :): lol:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ثاكس كثيرًا ، هل يمكنك السماح لي الآن كيف يمكنني الحصول على تنسيق هندي (روبية)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل. يطفو على السطح يقول الطبقة غير مسجلة. لا يوجد خيار لاختيار اللغة. خطا بالكود
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع بالنسبة للأشياء التي كنت أبحث عنها منذ أسبوع. إنه يعمل بشكل رائع. شكرًا جزيلاً
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه مفيد حقًا ، شكرًا حقًا حقًا :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
THNX التكفير عن مثل هذه النصائح
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد أجريت بحثًا ولم أتمكن من التحويل إلى نظام العملة الباكستاني ، لأننا نستخدم هذا التنسيق. 1,00,00,00,00,000.00،1,000,000,000,000،100,000,000،XNUMX،XNUMX،XNUMX لكن باستخدام Excel هذا التنسيق XNUMX،XNUMX،XNUMX،XNUMX،XNUMX. والشفرة هي صيغة المليون والتريليون. حاولت تغيير النقص والكرور والعرب والخراب بدلاً من المليون والمليار والتريليون ، لكنه لن يغير سوى الكلمات وسيظل النظام على حاله. مثل بعد التغيير سيظهر هذا. XNUMX،XNUMX،XNUMX يجب أن تكون مائة مليون ، لكن سيتم عرضها بمئات كهوف ، إذا كان بإمكان أحدهم مساعدتي سأكون شاكراً لكم.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد تحويل الوزن المتري من أرقام إلى كلمات. على سبيل المثال 1. 10.50 طن متري (MT) يجب أن تكتب كـ "10 طن و 500 كلغ" 2. 12.345 طن متري = اثنا عشر طنًا وثلاثمائة وخمسة وأربعون كجم تحتاج إلى 3 منازل عشرية على الأقل و 4 أفضل. 9999.9999 هو ما أريده كحد أقصى. هل يمكن لاحد المساعدة رجاءا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من فضلك إذا وجدت الطريق ... يرجى مراسلتي عبر البريد الإلكتروني islamrafat@gmail.com شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا وجدت يرجى مراسلتي عبر البريد الإلكتروني islamrafat@gmail.com
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جميل. بفضل Extend Office
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لهذه المساعدة في العمل :-)
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL