Hoe converteer je valuta naar woorden tekst in Excel?
Voor niet-moedertaalsprekers die Engels als tweede taal gebruiken, is het soms moeilijk om een valutacijfer rechtstreeks naar Engelse woorden te veranderen wanneer het getal erg lang is. In dit artikel leer je hoe je eenvoudig valuta naar woorden tekst kunt converteren in Excel.
Converteer valuta naar woorden met VBA-code
Converteer valuta naar woorden met Kutools voor Excel
Converteer valuta naar woorden met VBA-code
Met de onderstaande VBA-code kun je valutacijfers converteren naar Engelse woorden.
1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications dialoogvenster te openen.
2. Klik in het Microsoft Visual Basic for Applications dialoogvenster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande code in het codevenster.
VBA-code: Converteer valutacijfers naar Engelse woorden
Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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. Druk gelijktijdig op Alt + Q om het Microsoft Visual Basic for Applications dialoogvenster te sluiten.
4. Selecteer een lege cel (B1) naast de cel die je wilt converteren naar woorden, voer de formule =NumberstoWords(A1) in en druk vervolgens op de Enter-toets.
Opmerking: A1 is de cel die het valutacijfer bevat. Je kunt dit naar behoefte wijzigen.
5. Selecteer cel B1, sleep de vulgreep naar beneden om alle Engelse woorden van de valutacijfers te krijgen.
Converteer valuta naar woorden met Kutools voor Excel
Deze lange VBA-code lijkt ingewikkeld. Hier introduceer ik je aan een handig hulpmiddel om dit probleem eenvoudig op te lossen. Met het 'Numbers to Words'-hulpprogramma van Kutools voor Excel zal het converteren van valuta naar woorden geen probleem meer zijn. Doe het volgende.
Voordat u Kutools voor Excel toepast, moet u het eerst downloaden en installeren.
1. Selecteer de cellen met de valutacijfers die je wilt converteren.
2. Klik op Kutools > Tekst > Numbers to Words. Zie screenshot:
3. Selecteer in het 'Numbers to Currency Words'-dialoogvenster de Engels-optie en klik op de OK- of Toepassen-knop.
Nu worden de geselecteerde valutacijfers onmiddellijk geconverteerd naar Engelse woorden.
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
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