كيف يمكن تحويل مبلغ العملة إلى كلمات بسرعة في Excel؟
عند التعامل مع البيانات المالية في Excel، قد تجد نفسك بحاجةٍ إلى تحويل أرقام العملة إلى كلمات—مثلما هو الحال عند كتابة مبالغ الشيكات. وللأسف، لا يوفّر Excel دالةً مدمجة لهذا الغرض، لكن هناك طريقتان فعالتان لتحقيقه. سيُرشدك هذا المقال خطوة بخطوة عبر الطريقتين، ويساعدك على اختيار الأنسب لاحتياجاتك.
كتابة العملة تحويل إلى كلمات بالكلمات باستخدام كود VBA
كتابة العملة تحويل إلى كلمات بالكلمات باستخدام Kutools لـ Excel 
كتابة العملة تحويل إلى كلمات بالكلمات باستخدام كود VBA
في Excel، لا يمكنك تحويل الأرقام إلى كلمات إنجليزية بسرعة إلا باستخدام VBA.
1. اضغط على مفاتيح «Alt + F11» لفتح نافذة «Microsoft Visual Basic for Applications».
2. انقر على «Insert» > «Module»، ثم الصق كود VBA أدناه في نافذة الوحدة الجديدة.
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 Function3. بعد ذلك، احفظ هذا الكود وأغلق هذه النافذة للعودة إلى ورقة العمل، ثم حدد خلية فارغة واكتب الصيغة التالية: =SpellNumberToEnglish(A2) (حيث يمثل A2 أرقام العملة)، واضغط مفتاح Enter، ثم اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على الخلايا التي تحتاجها. راجع لقطات الشاشة:
كتابة العملة تحويل إلى كلمات بالكلمات باستخدام دالة تهجئة الأرقام المفيدة
لمن يفضلون تجنب استخدام VBA، يقدّم Kutools لـ Excel حلاً سهلاً بنقرة واحدة لتحويل الأرقام إلى كلمات. فميزة «تحويل إلى كلمات» في Kutools لـ Excel تتيح تحويل الأرقام إلى كلمات بتنسيقات عملة تزيد على 40 تنسيقًا، مما يجعلها الخيار المثالي لإعداد التقارير المالية والتعاملات الدولية. وببضع نقرات فقط، يمكن للمستخدمين تحويل القيم الرقمية إلى نصوص عملة منسَّقة بالكامل بلغات متعددة، بما في ذلك الدولار الأمريكي (USD)، اليورو (EUR)، الجنيه الإسترليني (GBP)، الين الياباني (JPY)، اليوان الصيني (CNY) وغيرها، ما يلغي الحاجة إلى التحويل اليدوي ويقلل الأخطاء إلى الحد الأدنى.
1. حدد أرقام العملة، ثم انقر على «Kutools» > «Content» > «تحويل إلى كلمات». راجع لقطة الشاشة:
2. في مربع حialog «تحويل المبلغ من الأحرف الصغيرة إلى الأحرف الكبيرة»، اختر اللغة التي ترغب في استخدامها؛ هنا سأختار خيار «الإنجليزية» من قائمة «Languages». راجع لقطة الشاشة:
3. انقر على «موافق» أو «تطبيق». بعد ذلك، سيتم تحويل أرقام العملة التي حددتها إلى كلمات العملة المطلوبة.
يمكنك تحويل أرقام العملة إلى كلمات في Excel بكفاءة باستخدام VBA أو Kutools لـ Excel. وبتطبيق إحدى هاتين الطريقتين، ستتمكن من أتمتة إعداد التقارير المالية والقضاء على أخطاء الكتابة اليدوية. إذا كنت مهتمًا باكتشاف المزيد من نصائح وحيل Excel،يقدّم موقعنا آلاف الدروس التعليمية لمساعدتك على إتقان Excel.
عرض توضيحي: تحويل رقم العملة إلى كلمات باستخدام Kutools لـ Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل