Hoe converteert u valuta snel naar woorden in Excel?
Bij het werken met financiële gegevens in Excel moet u getallen soms omzetten naar woorden, bijvoorbeeld bij het uitschrijven van cheques. Helaas beschikt Excel niet over een ingebouwde functie hiervoor, maar gelukkig zijn er twee effectieve methoden om dit alsnog voor elkaar te krijgen. In dit artikel leggen we beide methoden uit, zodat u de beste aanpak kunt kiezen op basis van uw specifieke behoeften.
Valuta uitschrijven Omzetten naar woorden met VBA-code
Valuta uitschrijven Omzetten naar woorden met Kutools voor Excel 
Valuta uitschrijven Omzetten naar woorden met VBA-code
In Excel kunt u getallen niet snel omzetten naar Engelse woorden, tenzij u VBA gebruikt.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op 'Invoegen' > 'Module' en plak de onderstaande VBA-code in het nieuwe modulevenster.
VBA: Valutagetallen converteren 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 op en klik op Dit venster sluiten om terug te keren naar het werkblad. Selecteer een lege cel en typ de formule: =SpellNumberToEnglish(A2)(A2 bevat het valutabedrag.) Druk op Enter en sleep de vulgreep omlaag om de formule toe te passen op de gewenste cellen. Zie de schermafbeeldingen:
Valuta uitschrijven Omzetten naar woorden met de handige Schrijf getallen voluit-functie
Voor gebruikers die geen VBA willen gebruiken, biedt Kutools voor Excel een eenvoudige oplossing met één klik om getallen om te zetten in woorden. De functie „Omzetten naar woorden” ondersteunt meer dan 40 verschillende valutaformaten, waardoor deze perfect is voor financiële rapportages en internationale transacties. Met slechts enkele klikken zet u numerieke waarden om in volledig opgemaakte valutateksten in meerdere talen – zoals USD, EUR, GBP, JPY, CNY en meer – zonder handmatige conversies en met minder kans op fouten.
1. Selecteer de valutabedragen en klik op „Kutools” > „Inhoud” > „Omzetten naar woorden”. Zie de schermafbeelding:
2. Kies in het dialoogvenster „Kleine letters naar hoofdletters” de taal die u wilt gebruiken; hier selecteer ik de optie „Engels” in het keuzemenu „Talen”. Zie de schermafbeelding:
3. Klik op „OK” of „Toepassen”. De geselecteerde valutagetallen zijn nu geconverteerd naar de bijbehorende valutawoorden.
Het omzetten van valutagetallen naar woorden in Excel kan efficiënt met VBA of Kutools voor Excel worden gedaan. Door één van deze methoden toe te passen, automatiseert u uw financiële rapportages en voorkomt u typefouten. Als u nog meer Excel-tips en -trucs wilt ontdekken,biedt onze website duizenden tutorials om Excel onder de knie te krijgen.
Demo: Valutagetallen omzetten naar woorden met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins