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

كيفية تحويل أرقام العملات بسرعة إلى كلمات في إكسيل؟

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

رقم العملة المستند إلى الكلمة 1

تهجى أرقام العملات للكلمات ذات VBA الطويل

تهجى أرقام العملات للكلمات مع وظيفة سهلة الاستخدام من Numbers to Words فكرة جيدة 3


تهجى أرقام العملات للكلمات ذات VBA الطويل

في Excel ، لا يمكنك تحويل الأرقام بسرعة إلى كلمات إنجليزية باستثناء VBA.

1. صحافة ALT + F11 مفاتيح لفتح Microsoft Visual Basic للتطبيق نافذة.

2. انقر إدراج > وحدة ولصق أدناه VBA إلى ملف وحدة نافذة.

فبا: تحويل أرقام العملات إلى الكلمات الإنجليزية.

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. ثم احفظ هذا الرمز وأغلق النافذة للعودة إلى ورقة العمل ، وحدد خلية فارغة اكتب هذه الصيغة = SpellNumberToEnglish (A2) (A2 هي أرقام العملات) ، ثم اضغط أدخل المفتاح ، ثم اسحب مقبض التعبئة لأسفل لتطبيق هذه الصيغة على الخلايا التي تحتاجها. انظر لقطات الشاشة:

رقم العملة المستند إلى الكلمة 2
السهم لأسفل
رقم العملة المستند إلى الكلمة 1

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

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. حدد أرقام العملات وانقر كوتولس > وصف المنتج > أرقام إلى كلمات. انظر لقطة الشاشة:

رقم العملة المستند إلى الكلمة 7

2. في ال الأرقام إلى كلمات العملات الحوار ، تحقق الانجليزية or صيني خيار ما تحتاجه. انظر لقطة الشاشة:

رقم الوثيقة للعوالم 2

3. انقر Ok or قم بالمشاركة. ثم تم تحويل أرقام العملات التي حددتها إلى كلمات.

أرقام العملات للكلمات الإنجليزية

رقم الوثيقة للعوالم 3

أرقام العملات للكلمات الصينية

رقم الوثيقة للعوالم 4

ملاحظة: يمكنك نسخ أرقام العملات ولصقها في ورقة عمل أخرى قبل تطبيق Numbers على Words


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (2)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هاي ، كيم مورس ، بيمبيري بينجامان وانغ بيرسينديريان. (كود 360)
Kami menyediakan pinjaman dengan kadar faedah 2٪ setahun dan dalam jumlah $ 10,000.00،500,000.00 hingga $ 10,000.00،500,000.00 dan € 100،2 hingga € XNUMX،XNUMX sebagai tawaran pinjaman. Projek XNUMX٪ yang dibiayai dengan pinjaman bercagar dan tidak bercagar boleh didapati. Kami dijamin menyediakan perkhidmatan kewangan kepada pelanggan kami di seluruh dunia. Dengan pakej kredit yang fleksibel ، pinjaman boleh diproses dan dana dipindahkan kepada peminjam dalam XNUMX hari. كامي بيكيرجا دالام تيرما يانغ جيلاس دان موداه ديفاهمي دان ميناواركان بيلباجاي جينيس بينجامان كيبادا بيلانججان ، سياريكات ، إنفيديو سوستا دان بيلابور هارتاناه يانغ بيرمينات. Cukup lengkapkan borang di bawah dan kembali kepada kami melalui E-mel.
بوتيران بينجونا:
ناما ناما:
تاريخ لاهر:
جانتينا.
الحالة perkahwinan Saya:
Alamat:
بندر:
دان نجيري / ولاية:
كود بوس /
الدولة:
الهاتف:
البريد الإلكتروني سايا:
دينجان توجوان بينجامان:
جملة بنجامان:
تمبوه بينجامان:
بنداباتان بولانان أندا:
Hubungi pegawai pinjaman عبر البريد الإلكتروني: (Code360optionsloancompany@gmail.com) Dan untuk Maklumat ، Hubungi alamat Web kami: Code360optionsloancompany.com

سلام سيجاهرة
بوان كيم
تم تصغير هذا التعليق بواسطة المشرف على الموقع
راجع مقالتي مليون مليار تريليون تحويل مقال أساسي لتعلم الأرقام يساعد الفرد على تعلم نظام الأرقام وتحويل الأرقام أيضًا.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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