Getallen converteren naar Omzetten naar woorden en andere valuta in Excel (2025-editie)
Zo zet u getallen om naar woorden in Indiase roepies—of een andere valuta—in Excel.
Bij het werken met financiële documenten zoals facturen, offertes, belastingformulieren, cheques of betalingsbewijzen is het vaak nodig om valutawaarden zowel numeriek als in geschreven vorm weer te geven. Dit verleent uw documenten een professionele uitstraling en helpt fraude of misverstanden te voorkomen.
Voorbeeld
Hoewel Microsoft Excel geen ingebouwde functie biedt om getallen om te zetten naar woorden, zijn er verschillende effectieve methodes om dit alsnog voor elkaar te krijgen—via VBA, LAMBDA-functies of de alles-in-één add-in Kutools voor Excel.
Converteer Omzetten naar woorden naar Indiase roepie met VBA (alle Microsoft-versies)
- Converteer Omzetten naar woorden naar andere valuta (USD, EUR, enz.)
- Sla uw werkmap op als een macro-inschakelbaar bestand
Converteer Omzetten naar woorden naar Indiase roepie met de LAMBDA-functie (alleen Microsoft 365)
Converteer getallen naar USD, EUR en 30+ andere valuta (alle Microsoft-versies)
Wanneer u welke methode gebruikt
Converteer Omzetten naar woorden naar Indiase roepie met VBA (alle Microsoft-versies)
Voor gebruikers van elke Excel-versie biedt VBA (Visual Basic for Applications) een flexibele oplossing om numerieke bedragen automatisch om te zetten in woorden volgens het Indiase nummeringssysteem – zoals duizenden, lakh en crore.
Stap 1. Druk op Alt+F11 om de VBA-editor (het Microsoft Visual Basic for Applications-venster) te openen.
Stap 2. Ga naar Invoegen > Module.
Stap 3. Plak de VBA-code in de module.
Converteer getallen naar woorden in Indiase roepie
Function ConvertToRupees(ByVal MyNumber)
'UpdatebyExtendoffice
Dim Units As String, SubUnits As String, TempStr As String
Dim DecimalPlace As Integer, Count As Integer
Dim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lakh "
Place(4) = " Crore "
MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
SubUnits = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
TempStr = GetHundreds(Right(MyNumber, 3))
If TempStr <> "" Then Units = TempStr & Place(Count) & Units
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
ConvertToRupees = "Rupees " & Application.WorksheetFunction.Trim(Units)
If SubUnits <> "" Then
ConvertToRupees = ConvertToRupees & " and " & SubUnits & " Paise"
End If
ConvertToRupees = ConvertToRupees & " Only"
End Function
Private Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
Private Function GetTens(TensText)
Dim Result As String
If Val(Left(TensText, 1)) = 1 Then
Select Case Val(TensText)
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"
End Select
Else
Select Case Val(Left(TensText, 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 "
End Select
Result = Result & GetDigit(Right(TensText, 1))
End If
GetTens = Result
End Function
Private Function GetDigit(Digit)
Select Case Val(Digit)
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
Stap 4. Sla op en keer terug naar Excel.
Stap 5. Selecteer een cel en pas de formule als volgt toe:
Druk op de Enter-toets.
💡Tip: Deze methode ondersteunt decimalen (paise) en werkt offline.
Beperkingen van het gebruik van VBA
- Vereist dat de werkmap wordt opgeslagen als een macro-inschakelbaar bestand (.xlsm).
- Macro’s kunnen in sommige omgevingen worden geblokkeerd door de beveiligingsinstellingen.
Converteer Omzetten naar woorden naar andere valuta (USD, EUR, enz.)
Om de uitvoer aan te passen voor andere valuta, zoals dollars of euro’s, kunt u de tekenreeksen in de VBA-functie eenvoudig aanpassen. Hieronder vindt u een vereenvoudigde en flexibelere versie van de functie.
Flexibele VBA-codesjabloon (aangepaste valuta)
'UpdatebyExtendoffice
Public Function NumberToWordsCustom(ByVal num As Double, Optional ByVal currency2 As String, Optional ByVal subCurrency As String) As String
Dim result As String
Dim dollars As Long
Dim cents As Long
dollars = Int(num)
cents = Round((num - dollars) * 100)
If Len(currency2) = 0 Then currency2 = "Dollars"
If Len(subCurrency) = 0 Then subCurrency = "Cents"
result = currency2 & " " & SpellNumber_English(dollars)
If cents > 0 Then
result = result & " and " & SpellNumber_English(cents) & " " & subCurrency
End If
NumberToWordsCustom = result & " Only"
End Function
Private Function SpellNumber_English(ByVal MyNumber As Long) As String
Dim Units As Variant, Tens As Variant, Teens As Variant
Dim Place() As String
Dim TempStr As String
Dim Count As Integer
Dim t As String
Dim StrNumber As String
Dim n As Integer
Place = Split(" Thousand Million Billion", " ")
Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
Teens = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
StrNumber = Trim(Str(MyNumber))
Count = 0
Do While StrNumber <> ""
n = Val(Right(StrNumber, 3))
If n <> 0 Then
t = ConvertHundreds(n, Units, Tens, Teens)
If Count > 0 Then t = t & " " & Place(Count - 1)
TempStr = t & " " & TempStr
End If
If Len(StrNumber) > 3 Then
StrNumber = Left(StrNumber, Len(StrNumber) - 3)
Else
StrNumber = ""
End If
Count = Count + 1
Loop
SpellNumber_English = Trim(TempStr)
End Function
Private Function ConvertHundreds(ByVal n As Integer, Units As Variant, Tens As Variant, Teens As Variant) As String
Dim result As String
If n >= 100 Then
result = Units(Int(n / 100)) & " Hundred "
n = n Mod 100
End If
If n >= 20 Then
result = result & Tens(Int(n / 10)) & " "
n = n Mod 10
ElseIf n >= 10 Then
result = result & Teens(n - 10) & " "
n = 0
End If
If n > 0 Then
result = result & Units(n)
End If
ConvertHundreds = Trim(result)
End Function
Voorbeeld-VBA-formule:
Voorbeeld-VBA-formule voor andere valuta:
=NumberToWordsCustom(A2, "Euros", „Cents")
=NumberToWordsCustom(A2, "Pounds", „Pence")
De code is flexibel: geef eenvoudig de gewenste valuta en onderliggende eenheid op.
Sla uw werkmap op als een macro-inschakelbaar bestand
Als u VBA gebruikt, is het essentieel om uw werkmap op te slaan als een bestand met ingeschakelde macro’s—anders raakt uw code verloren zodra het bestand wordt gesloten.
Stap 1. Ga naar Bestand > Opslaan als
Stap 2. Selecteer een locatie en kies als bestandstype: Excel-werkmap met macro’s (*.xlsm).
Stap 3. Klik op Opslaan.
✅ Uw aangepaste functies, zoals =ConvertToRupees(A2), blijven nu behouden en zijn altijd opnieuw te gebruiken.
Converteer Omzetten naar woorden naar Indiase roepie met de LAMBDA-functie (alleen Microsoft 365)
Voor Excel 365-gebruikers is er LAMBDA: een nieuwe Excel-functie waarmee u aangepaste formules kunt definiëren—zonder VBA.
🪄 Wat is LAMBDA?
LAMBDA is een functie in Excel waarmee u uw eigen aangepaste functies kunt bouwen met formules – net als ingebouwde functies zoals SOM of ALS, maar dan zonder code of macro’s. Ideaal om herhalende logica te vereenvoudigen en uw spreadsheets overzichtelijker én eenvoudiger te onderhouden.
Stap 1: Ga naar het tabblad Formules en klik op Naambeheerder.
Stap 2: Maak een nieuwe naam aan.
Klik op de knop Nieuw.
Voer een naam in.
Voorbeeld: RupeeToWords
Stap 3: Plak deze LAMBDA-formule in het veld Verwijst naar:
=LAMBDA(n, LET( units, {"","One","Two","Three","Four","Five","Six","Seven","Eight",„Nine"}, teens, {"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen",„Nineteen"}, tens, {"","","Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty",„Ninety"}, num, INT(n), paise, ROUND((n - INT(n)) * 100, 0), ConvertTwo, LAMBDA([[PH_1]], IF([[PH_1]]0, „ " & INDEX(units, MOD([[PH_1]],10)+1), „") ) ) ), ConvertThree, LAMBDA(x, IF(x=0, „", IF([[PH_1]]0, „ " & ConvertTwo(MOD([[PH_1]],100)), „") ) ) ), words, IF(num=0, „Zero", TEXTJOIN(„ ", TRUE, IF(INT(num/10000000)>0, ConvertTwo(INT(num/10000000)) & " Crore", „"), IF(MOD(INT(num/100000),100)>0, ConvertTwo(INT(MOD(num,10000000)/100000)) & " Lakh", „"), IF(MOD(INT(num/1000),100)>0, ConvertTwo(INT(MOD(num,100000)/1000)) & " Thousand", „"), IF(MOD(INT(num/100),10)>0, INDEX(units, INT(MOD(num,1000)/100)+1) & " Hundred", „"), IF(MOD(num,100)>0, ConvertTwo(MOD(num,100)), „") ) ), result, „Rupees " & words & IF(paise>0, „ and " & ConvertTwo(paise) & " Paise", "") & „ Only", result ))Klik op OK om de nieuwe naam op te slaan.
Stap 3. Sluit de Naambeheerder en keer terug naar Excel.
Stap 4. Gebruik de formule in een willekeurige cel als volgt:
Druk op de toets Enter.
👀 De volledige LAMBDA-functiecode ondersteunt crore, lakh, duizendtallen en decimalen.
Converteer getallen naar USD, EUR en 30+ andere valuta (alle Microsoft-versies)
Voor de meest efficiënte en professionele oplossing gebruikt u de functie Kutools voor Excel's Omzetten naar woorden van Kutools. Deze krachtige tool ondersteunt:
🌍 Meer dan 30 valuta, waaronder:
- Amerikaanse dollars (USD)
- Euro’s (EUR)
- Chinese yuan (CNY)
- Britse ponden (GBP)
- enz.
Stap 1. Selecteer de cellen die u wilt converteren.
Stap 2. Ga naar Kutools > Inhoud > Omzetten naar woorden
Stap 3. Kies uw doelvaluta en klik op OK.
Getallen worden automatisch omgezet naar de opgegeven valuta.
😁Tip: Als u Omzetten naar woorden direct wilt converteren, vinkt u de optie Niet omzetten naar valuta aan en wordt het resultaat als volgt weergegeven:
Wanneer u welke methode gebruikt
Gebruik VBA als u een flexibele, programmeerbare oplossing zoekt en al bekend bent met macro’s.
- Gebruik LAMBDA als u Excel 365 gebruikt en af en toe Indiase roepie-waarden hoeft om te rekenen. Het is een lichtgewicht, deelbare oplossing zonder macro’s of externe hulpmiddelen—perfect voor eenvoudige of persoonlijke taken.
- Kies Kutools voor Excel als u de eenvoudigste, snelste en meest veelzijdige oplossing zoekt—zonder te hoeven coderen. Kutools is vooral handig wanneer:
- U werkt met meerdere valuta.
- U moet waarden in bulk of grote datasets converteren.
- U zoekt een professioneel gereed hulpmiddel zonder macro’s, met meer dan 30 valuta-opties en AI-ondersteunde prestaties.
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