Hoe kun je snel valutacijfers omzetten naar woorden in Excel?

Bij het werken met financiële gegevens in Excel kan het voorkomen dat je valutacijfers moet omzetten in woorden, zoals bij het uitschrijven van chequebedragen. Helaas biedt Excel geen ingebouwde functie hiervoor, maar er zijn twee effectieve methoden om dit te bereiken. Dit artikel leidt je door beide methoden heen en helpt je de beste aanpak te kiezen op basis van je behoeften.

Schrijf valutacijfers uit naar woorden met VBA-code

Schrijf valutacijfers uit naar woorden met Kutools voor Excel

Schrijf valutacijfers uit naar woorden met VBA-code

In Excel kun je cijfers niet snel omzetten naar Engelse woorden, behalve met VBA.

1. Druk op "Alt + F11" om het venster "Microsoft Visual Basic for Application" te openen.

2. Klik op "Invoegen" > "Module" en plak onderstaande VBA-code in het nieuwe modulevenster.

VBA: Converteer valutacijfers naar Engelse woorden

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. Sla deze code vervolgens op en sluit het venster om terug te keren naar het werkblad. Selecteer een lege cel en typ deze formule: =SpellNumberToEnglish(A2) (A2 is de valutacijfers), en druk op Enter. Sleep vervolgens de vulgreep omlaag om deze formule toe te passen op de cellen die je nodig hebt. Zie screenshots:

Schrijf valutacijfers uit naar woorden met de handige Spell Out Numbers-functie

Voor gebruikers die geen VBA willen gebruiken, biedt Kutools voor Excel een eenvoudige, een-klik-oplossing om cijfers om te zetten in woorden. De "Numbers to Words"-functie in Kutools voor Excel ondersteunt het omzetten van cijfers in woorden in meer dan 40 verschillende valutaformaten, waardoor het een ideale oplossing is voor financiële rapportage en internationale transacties. Met slechts een paar klikken kunnen gebruikers numerieke waarden omzetten in volledig opgemaakte valutatekst in meerdere talen, inclusief USD, EUR, GBP, JPY, CNY en meer, waardoor handmatige conversies overbodig zijn en fouten worden verminderd.

1. Selecteer de valutacijfers en klik op "Kutools" > "Tekst" > "Numbers to Words". Zie screenshot:

2. In het dialoogvenster "Numbers to Currency Words" selecteer je de taal die je wilt gebruiken; hier selecteer ik de optie "Engels" uit de lijst met talen. Zie screenshot:

3. Klik op "OK" of "Toepassen". De geselecteerde valutacijfers zijn nu omgezet in specifieke valutawoorden.

Het omzetten van valutacijfers in woorden in Excel kan efficiënt worden gedaan met behulp van VBA of Kutools voor Excel. Door een van deze methoden te implementeren, kun je financiële rapportage automatiseren en handmatige typefouten elimineren. Als je geïnteresseerd bent in het verkennen van meer Excel-tips en -trucs, onze website biedt duizenden tutorials om je te helpen Excel te beheersen.

Demo: Converteer valutacijfers naar woorden met Kutools voor Excel