Hoe zet u getallen om naar Engelse woorden in Excel?
Het omzetten van getallen naar hun Engelse woordvormen in Excel is een waardevolle vaardigheid, vooral bij financiële rapportage, facturatie of het opstellen van cheques. Hoewel Excel hiervoor geen ingebouwde functie biedt, zijn er verschillende efficiënte methoden om dit voor elkaar te krijgen. In dit artikel worden de beste aanpakken voor ‘omzetten naar woorden’ in Excel uitgelegd, inclusief praktische tips voor optimalisatie.
Getallen uitschrijven of omzetten naar Engelse woorden met VBA-code
De volgende uitgebreide VBA-code helpt u om getallen voluit om te zetten naar tekstreeksen. Volg deze stappen:
1. Druk op de toetsencombinatie ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op 'Invoegen' > 'Module' en plak de volgende macro in het modulevenster.
VBA: Valutagetallen uitschrijven naar Engelse woorden in Excel
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 de code op en keer terug naar het werkblad. Voer in de aangrenzende cel B2 de formule =SpellNumberToEnglish(A2) in; zie screenshot:
4. Druk daarna op Enter, selecteer cel C2 en sleep de vulgreep naar het bereik waarin u deze formule nodig hebt. Alle valutabedragen worden nu automatisch weergegeven als Engelse woorden. Zie screenshot:
Getallen uitschrijven of omzetten naar Engelse woorden met Kutools voor Excel
Stroomlijn uw Excel-taken en verhoog uw productiviteit met Kutools voor Excel. De krachtige functie ‘Omzetten naar woorden’ biedt meer dan 40 wisselkoersconversie-opties, zodat u getallen moeiteloos kunt omzetten naar woorden — of het nu gaat om Amerikaanse dollars, Chinese yuan of een andere valuta — met slechts een paar klikken.
1. Selecteer het getallenbereik dat u in woorden wilt omzetten en klik op „Kutools” > „Inhoud” > „Omzetten naar woorden”.
2. Kies in het verschijnende dialoogvenster „Engels” onder „Talen”. U kunt de resultaten direct bekijken in het rechter „Voorbeeld”-deelvenster. Zie screenshot:
3. Klik vervolgens op OK of Toepassen – alle prijsbedragen zijn nu omgezet naar tekstreeksen in het oorspronkelijke bereik.
Opmerking: als u alleen getallen naar Engelse woorden wilt omzetten (geen valuta), schakelt u het selectievakje Niet omzetten naar valuta in.
Door de stappen en optimalisatietips in deze handleiding te volgen, zet u getallen efficiënt om naar woorden en stroomlijnt u uw werkstroom. Of u nu financiële rapporten opstelt of facturen maakt: het beheersen van deze vaardigheid bespaart u tijd en moeite. Wilt u nog meer Excel-tips en -trucs ontdekken?Onze website biedt duizenden tutorials.
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