كيفية تحويل أرقام العملات بسرعة إلى كلمات في إكسيل؟
لنفترض أن لديك مجموعة من أرقام العملات اللازمة للتحويل إلى نص كلمات في Excel ، وهل لديك أي حيل سريعة لحلها بسرعة؟ يخبرك هذا البرنامج التعليمي الآن ببعض الطرق السهلة لتحويل أرقام العملات المتعددة إلى كلمات إنجليزية في وقت واحد في Excel.
تهجى أرقام العملات للكلمات ذات VBA الطويل
تهجى أرقام العملات للكلمات مع وظيفة سهلة الاستخدام من Numbers to Words
تهجى أرقام العملات للكلمات ذات 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 هي أرقام العملات) ، ثم اضغط أدخل المفتاح ، ثم اسحب مقبض التعبئة لأسفل لتطبيق هذه الصيغة على الخلايا التي تحتاجها. انظر لقطات الشاشة:
قم بتهجئة أرقام العملات للكلمات باستخدام وظيفة Spell Out Numbers
إذا كنت تحتاج عادةً إلى تحويل الأرقام إلى كلمات ، فيجب ألا تكون الطريقة المذكورة أعلاه هي الطريقة الجيدة والمناسبة لك. ومع ذلك ، يمكنك استخدام ملف أرقام إلى كلمات تعمل على تحويل أرقام العملات بسرعة إلى كلمات إنجليزية أو كلمات صينية إذا كان لديك كوتولس ل إكسيل.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. حدد أرقام العملات وانقر كوتولس > وصف المنتج > أرقام إلى كلمات. انظر لقطة الشاشة:
2. في ال الأرقام إلى كلمات العملات الحوار ، تحقق عربي or الصينية خيار ما تحتاجه. انظر لقطة الشاشة:
3. انقر Ok or التقديم. ثم تم تحويل أرقام العملات التي حددتها إلى كلمات.
أرقام العملات للكلمات الإنجليزية
أرقام العملات للكلمات الصينية
ملحوظة: يمكنك نسخ أرقام العملات ولصقها في ورقة عمل أخرى قبل تطبيق Numbers على Words
تحويل رقم العملة إلى كلمات
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!