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 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 nummers niet snel omzetten naar Engelse woorden, behalve met VBA.
1. Druk op "Alt + F11" om het venster "Microsoft Visual Basic for Applications" 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 Function3. 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), druk op Enter, en sleep 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 VBA niet willen gebruiken, biedt Kutools voor Excel een eenvoudige, een-klik-oplossing om nummers om te zetten in woorden. De "Numbers to Words"-functie in Kutools voor Excel ondersteunt het omzetten van nummers in woorden in meer dan 40 verschillende valutaformaten, wat het een ideale oplossing maakt voor financiële rapportage en internationale transacties. Met slechts een paar klikken kunnen gebruikers numerieke waarden omzetten in volledig geformatteerde valutatekst in meerdere talen, inclusief USD, EUR, GBP, JPY, CNY en meer, waardoor handmatige conversies overbodig worden en fouten worden verminderd.
1. Selecteer de valutacijfers en klik op "Kutools" > "Tekst" > "Numbers to Words". Zie screenshot:
2. In het "Numbers to Currency Words"-venster selecteer je de taal die je wilt gebruiken; hier zal ik de "Engels" optie selecteren uit de "Talen" keuzelijst, zie screenshot:
3. Klik op "OK" of "Toepassen". Vervolgens worden de geselecteerde valutacijfers omgezet in specifieke valutawoorden.
Het omzetten van valutacijfers naar 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 onder de knie te krijgen.
Demo: Valutacijfer omzetten naar woorden met Kutools voor Excel
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen