كيفية تهجئة الأرقام أو تحويلها إلى كلمات إنجليزية في إكسيل؟
لنفترض أن لديك الكثير من أرقام مبالغ السعر ، والآن تحتاج إلى تحويلها أو تهجئتها إلى سلاسل نصية. على سبيل المثال ، تحويل $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. حدد نطاق الأرقام التي تريد تهجئتها ، وانقر فوق كوتولس > وصف المنتج > أرقام إلى كلمات.
2. في مربع الحوار المنبثق ، اختر عربي من اللغات. ويمكنك معاينة النتائج من اليمين أرسال جزء. انظر لقطة الشاشة:
3. ثم اضغط Ok or التقديم. وتم تحويل جميع أرقام مبلغ السعر إلى سلاسل نصية في النطاق الأصلي.
ملاحظات: إذا كنت ترغب فقط في تحويل الأرقام إلى كلمات إنجليزية (وليس عملة) ، يرجى التحقق لم يتم التحويل إلى العملة مربع.
هذه الميزة الرائعة أرقام إلى كلمات يمكن بسهولة ترجمة أرقام العملات إلى نص العملة باللغة الإنجليزية أو الصينية ، مثل ترجمة 32.01 إلى "اثنان وثلاثون دولارًا وسنتًا واحدًا" أو "叁拾 贰元 零 壹 分". احصل على نسخة تجريبية مجانية!
العرض التوضيحي: تهجى أرقام العملات للكلمات الإنجليزية
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!