Hoe spreek je getallen uit of converteer je ze naar Engelse woorden in Excel?

Het omzetten van getallen naar hun Engelse woord equivalenten in Excel kan een waardevolle vaardigheid zijn, vooral voor financiële rapportages, facturering of het maken van cheques. Hoewel Excel geen ingebouwde functie hiervoor heeft, zijn er verschillende methoden om dit te bereiken. Dit artikel leidt je door de meest efficiënte manieren om getallen naar woorden om te zetten in Excel, samen met tips voor optimalisatie.

Spreek getallen uit of converteer ze naar Engelse woorden met VBA-code

Spreek getallen uit of converteer ze naar Engelse woorden met Kutools voor Excel

Spreek getallen uit of converteer ze naar Engelse woorden met VBA-code

De volgende lange VBA-code kan je helpen om getallen uit te spreken naar tekstreeksen. Doe het volgende:

1. Houd de toetsen "ALT + F11" ingedrukt, en het venster "Microsoft Visual Basic for Applications" wordt geopend.

2. Klik op "Invoegen" > "Module", en plak de volgende macro in het Module-venster.

VBA: Spreek valutagetallen uit 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 vervolgens de code op en ga terug naar het werkblad, in de aangrenzende Cel B2, voer de formule in =SpellNumberToEnglish(A2), zie schermafbeelding:

4. Druk vervolgens op Enter, selecteer Cel C2, en sleep de vulgreep over het bereik dat deze formule bevat zoals je nodig hebt. En alle valutagetallen zijn uitgesproken in Engelse woorden. Zie schermafbeelding:

Spreek getallen uit of converteer ze naar Engelse woorden met Kutools voor Excel

Stroomlijn je Excel-taken en verhoog de productiviteit door Kutools voor Excel te gebruiken. De krachtige functie Getallen naar Woorden biedt meer dan 40 valutaconversie-opties, waarmee je moeiteloos getallen kunt omzetten in woorden voor Amerikaanse dollars, Chinese YUAN of elke andere valuta met slechts een paar klikken.

1. Selecteer het bereik met getallen dat je wilt uitspreken, en klik op "Kutools" > "Tekst" > "Getallen naar Woorden".

2. Kies in het pop-up dialoogvenster "Engels" uit de "Taal" opties. Je kunt de resultaten bekijken in het rechter "Voorbeeld" paneel. Zie schermafbeelding:

3. Klik vervolgens op OK of Toepassen. En alle bedrag-getallen zijn omgezet naar tekstreeksen in het oorspronkelijke bereik.

Opmerking: Als je alleen getallen wilt omzetten naar Engelse woorden (geen valuta), vink dan de optie Niet omzetten naar valuta aan.

Door de stappen en optimalisaties in deze handleiding te volgen, kun je efficiënt getallen omzetten naar woorden en je workflow stroomlijnen. Of je nu financiële rapportages voorbereidt of facturen maakt, het beheersen van deze vaardigheid zal je tijd en moeite besparen. Als je geïnteresseerd bent in het verkennen van meer Excel tips en trucs, onze website biedt duizenden tutorials.