כיצד להמיר במהירות מספרי מטבע למילים ב-Excel?

כאשר עובדים עם נתונים פיננסיים ב-Excel, עשויים להיות מצבים שבהם תצטרכו להמיר מספרי מטבע למילים, כגון כתיבת סכומי צ'קים. למרבה הצער, Excel לא מספק פונקציה מובנית לכך, אך ישנם שתי שיטות יעילות להשיג זאת. מאמר זה ידריך אתכם בשתי השיטות, ויעזור לכם לבחור את הגישה הטובה ביותר בהתאם לצרכים שלכם.

המרת מספרי מטבע למילים עם קוד VBA

המרת מספרי מטבע למילים עם Kutools עבור Excel

המרת מספרי מטבע למילים עם קוד VBA

ב-Excel, לא תוכלו להמיר במהירות מספרים למילים באנגלית מלבד באמצעות VBA.

1. לחצו על המקשים "Alt + F11" כדי לפתוח את חלון "Microsoft Visual Basic for Application".

2. לחצו על "הוסף" > "מודול" והדביקו את הקוד 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 Function

3. לאחר מכן, שמור את הקוד הזה וסגור את החלון כדי לחזור לגליון העבודה, ובחר תא ריק והקלד את הנוסחה הבאה: =SpellNumberToEnglish(A2) (A2 הוא מספרי המטבע), והקישו על מקש Enter, ולאחר מכן גררו את הידית למלא כלפי מטה כדי להחיל נוסחה זו על התאים שאתם צריכים. ראו תמונות מסך:

המרת מספרי מטבע למילים עם הפונקציה נוחה של כתיבת מספרים במילים

עבור מי שלא רוצה להשתמש ב-VBA, Kutools עבור Excel מספק דרך פשוטה של לחיצה אחת להמרת מספרים למילים. תכונת "מספרים למילים" ב-Kutools עבור Excel תומכת בהמרת מספרים למילים ביותר מ-40 פורמטי מטבע שונים, מה שהופך אותה לפתרון אידיאלי לדיווחים פיננסיים ולקבלת תשלומים בינלאומיים. עם כמה לחיצות בלבד, משתמשים יכולים להפוך ערכים מספריים לטקסט מטבע מפורמט לחלוטין בשפות רבות, כולל USD, EUR, GBP, JPY, CNY ועוד, תוך הקטנת הצורך בהמרות ידניות והפחתת טעויות.

1. בחרו את מספרי המטבע והקליקו על "Kutools" > "טקסט" > "מספרים למילים". ראו צילום מסך:

2. בחלון הדו-שיח "מספרים למילים מטבע", בחרו את השפה שבה תרצו להשתמש; כאן אני אבחר באפשרות "אנגלית" מתוך תיבת הרשימה "שפות", ראו צילום מסך:

3. לחצו על "אישור" או "החל". אז מספרי המטבע שבחרתם יומרו למילים מטבע מסוימות.

המרת מספרי מטבע למילים ב-Excel יכולה להתבצע בצורה יעילה באמצעות VBA או Kutools עבור Excel. על ידי יישום אחת משתי השיטות הללו, תוכלו להאיץ דיווחים פיננסיים ולהסיר שגיאות הקלדה ידניות. אם אתם מעוניינים לחקור עוד טיפים וטריקים ב-Excel, אתר האינטרנט שלנו מציע אלפי הדרכות כדי לעזור לכם לשלוט ב-Excel.

הדגמה: המרת מספר מטבע למילים באמצעות Kutools עבור Excel