'%3e%3cpath%20d='M8%200C12.4183%200%2016%203.58172%2016%208C16%2012.4183%2012.4183%2016%208%2016C3.58172%2016%200%2012.4183%200%208C0%203.58172%203.58172%200%208%200ZM11.6162%204.38379C11.2257%203.99337%2010.5927%203.99338%2010.2021%204.38379L8%206.58594L5.79785%204.38379C5.40732%203.99334%204.77429%203.99329%204.38379%204.38379C3.99331%204.77429%203.99335%205.40733%204.38379%205.79785L6.58594%208L4.38379%2010.2021C3.99348%2010.5927%203.99341%2011.2257%204.38379%2011.6162C4.77426%2012.0066%205.40734%2012.0065%205.79785%2011.6162L8%209.41406L10.2021%2011.6162C10.5927%2012.0066%2011.2257%2012.0067%2011.6162%2011.6162C12.0067%2011.2257%2012.0066%2010.5927%2011.6162%2010.2021L9.41406%208L11.6162%205.79785C12.0066%205.40735%2012.0066%204.77429%2011.6162%204.38379Z'%20fill='%23080E17'%20fill-opacity='0.46'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_3761_713'%3e%3crect%20width='16'%20height='16'%20fill='white'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
'%3e%3cpath%20fill-rule='evenodd'%20clip-rule='evenodd'%20d='M21.4999%2010.9993C21.4999%205.20009%2016.7986%200.498901%2010.9993%200.498901C5.19994%200.498901%200.498657%205.20009%200.498657%2010.9993C0.498657%2016.2404%204.33858%2020.5844%209.35855%2021.3722V14.0346H6.69238V10.9993H9.35855V8.68594C9.35855%206.05427%2010.9262%204.60062%2013.3248%204.60062C14.4736%204.60062%2015.6753%204.80571%2015.6753%204.80571V7.38979H14.3512C13.0468%207.38979%2012.64%208.19921%2012.64%209.0296V10.9993H15.5523L15.0867%2014.0346H12.64V21.3722C17.66%2020.5844%2021.4999%2016.2404%2021.4999%2010.9993Z'%20fill='%231568EA'/%3e%3c/g%3e%3c/svg%3e)
'%3e%3cpath%20d='M2.42045%2022.1876H6.31818V12.7217L0.75%208.54553V20.5171C0.75%2021.4414%201.49892%2022.1876%202.42045%2022.1876Z'%20fill='%234285F4'/%3e%3cpath%20d='M19.682%2022.1876H23.5797C24.5041%2022.1876%2025.2502%2021.4387%2025.2502%2020.5171V8.54553L19.682%2012.7217'%20fill='%2334A853'/%3e%3cpath%20d='M19.682%205.48293V12.7216L25.2502%208.54543V6.31816C25.2502%204.25236%2022.8921%203.07469%2021.2411%204.31361'%20fill='%23FBBC04'/%3e%3cpath%20d='M6.31824%2012.7217V5.48303L13.0001%2010.4944L19.6819%205.48303V12.7217L13.0001%2017.733'%20fill='%23EA4335'/%3e%3cpath%20d='M0.75%206.31816V8.54543L6.31818%2012.7216V5.48293L4.75909%204.31361C3.10534%203.07469%200.75%204.25236%200.75%206.31816Z'%20fill='%23C5221F'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2954_7305'%3e%3crect%20width='24.5'%20height='18.375'%20fill='white'%20transform='translate(0.75%203.8125)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e){kind=icon}
Wanneer je met getallen werkt in Excel, moet je deze voor officiële documenten of voor de duidelijkheid soms zowel in cijfers als in letters weergeven. Maar Excel heeft hier geen ingebouwde functie voor, vooral niet voor Indiase roepies. Je komt dan al snel uit bij ingewikkelde formules, externe tools of je moet het handmatig doen.
In deze gids laten we je een eenvoudige stapsgewijze methode zien om met behulp van Excel getallen om te zetten in woorden voor Indiase roepies.
2 eenvoudige manieren om getallen om te zetten in woorden voor Indiase roepies in Excel:
Natuurlijk moet je eerst en vooral zorgen voor een goede Microsoft Excel download!
Methode 1: Getallen omzetten in woorden voor Indiase roepies met VBA-code
Voordat je getallen omzet in woorden voor Indiase roepies met behulp van VBA-code, moet je mogelijk het tabblad Ontwikkelaars toevoegen aan je lint om de VBA-functie te openen.
Hier is de stap om het tabblad Ontwikkelaars in Excel in te schakelen:
Stap 1: Open het Excel-werkblad met de getallen die je wilt omzetten.
Stap 2: Klik op Bestand en kies Opties in de lijst
Stap 3: Kies in de Excel-opties voor Lint aanpassen
Stap 4: Kies Alle tabbladen in het venster Opdrachten kiezen uit
Stap 5: Zoek Ontwikkelaars in de lijst en klik op Toevoegen
Stap 6: Klik op OK
Hier is de stap om getallen om te zetten in woorden voor Indiase roepies met VBA-code:
Stap 1: Open het Excel-werkblad met de getallen die je wilt omzetten.
Stap 2: Klik op het tabblad Ontwikkelaars. Als je dit tabblad niet ziet, volg dan de bovenstaande stap om het in te schakelen
Stap 3: Klik op Visual Basic of gebruik de sneltoets Alt + F11
Stap 4: Klik op Invoegen en kies Module.
Stap 5: Plak de opgegeven VBA-code uit de referentie.
Public Function RupeeFormat(SNum As String) 'Updateby Extendoffice Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|
Stap 5: Sla op (Ctrl + S) en sluit de VBA-editor. Kies Excel-werkmap met macro's bij het opslaan
Stap 6: Voer de formule =RupeeFormat(weergavecel) in de cel in waar je de woorden wilt weergeven en druk op Enter
Stap 7: Het resultaat wordt weergegeven. Sleep naar beneden om de formule toe te passen op andere cellen
De getallen in het geselecteerde bereik worden omgezet in woorden voor Indiase roepies.
Methode 2: Getallen omzetten in woorden voor Indiase roepies in Excel (Veelgebruikte methode)
Leer de veelgebruikte methode om in Excel getallen om te zetten in woorden voor Indiase roepies, een handige stap bij het opstellen van facturen voor de boekhouding.
Stap 1: Open het Excel-werkblad met de getallen die je wilt omzetten.
Stap 2: Klik met de rechtermuisknop op de bladnaam en selecteer Programmacode weergeven om de VBA-toepassing te openen. Dit is ook nuttig voor data-analyse in Excel.
Stap 3: Klik op Invoegen en kies Module.
Stap 4: Plak de opgegeven VBA-code uit de referentie.
Public Function RupeeFormat(SNum As String) 'Update By Nirmal Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(Str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|
Stap 5: Kies Excel-werkmap met macro's bij Opslaan als type. Sluit de VBA-editorvensters
Stap 6: Voer de formule =RupeeFormat(weergavecel) in de geselecteerde cel in om het resultaat weer te geven.
Stap 7: Sleep naar beneden om de formule toe te passen op andere cellen nadat het resultaat in de geselecteerde cel is verschenen
De getallen in het geselecteerde bereik worden omgezet in woorden voor Indiase roepies.
Beste gratis alternatief voor Microsoft Office: WPS Office
Naast Microsoft Office wil ik je nog een andere app aanbevelen: WPS Office. Wat is WPS precies?
WPS Office is een gratis en open-source kantoorsuite die compatibel is met Microsoft Office. Het bevat een tekstverwerker, een spreadsheetprogramma, presentatiesoftware en een PDF-lezer, zodat je eenvoudig bestanden kunt openen, bewerken en opslaan. Het is bovendien erg gebruiksvriendelijk, zelfs voor mensen zonder eerdere ervaring met kantoorsuites.
Bovendien is WPS Office een krachtige kantoorsuite met een breed scala aan functies. Het is een goed alternatief voor NeoOffice, vooral voor studenten en bedrijven met een beperkt budget.
Neem een kijkje bij enkele functies van WPS:
● Gratis gebruik van Word, Excel en PPT. Krachtige PDF-toolkit
● Uitgebreide sjablonenbibliotheek
● Veelzijdige functies, zoals een cv-assistent, slimme formulieren, schermopname, bestandsherstel en andere handige ingebouwde tools
● Het product is erg licht (slechts 200 MB) en neemt weinig werkgeheugen in beslag.
● De Mac-versie van WPS Office is zeer krachtig. Microsoft Office negeert de gebruikerservaring van Mac-gebruikers vaak, wat door WPS Office perfect wordt opgevangen.
● Ondersteunt online documenten (WPS AirPage) en gelijktijdig samenwerken door meerdere personen
● WPS Office ondersteunt ook Linux-, Android- en iOS-systemen. Om WPS Office-producten op verschillende systemen te gebruiken, hoef je alleen in te loggen op hetzelfde account, waarna alle bestanden gesynchroniseerd kunnen worden.
Vind je WPS Office de beste keuze en wil je het downloaden? Bezoek dan de officiële website: https://www.wps.com en download het direct.
WPS Office downloaden
Stap 1: Bezoek de website van WPS Office: wps.com.
Stap 2: Klik op de knop "Gratis downloaden"
Stap 3: Selecteer de locatie waar je WPS Office wilt opslaan -> Opslaan
Stap 4: Dubbelklik op het gedownloade WPS Office-bestand, klik op "Uitvoeren" en volg de instructies op het scherm om te installeren
Stap 5: Na voltooiing kun je direct gebruikmaken van alle mogelijkheden van WPS Office
Veelgestelde vragen (FAQ's):
V1: Hoe zet ik valuta om in tekst in Excel VBA?
Je kunt VBA (Visual Basic for Applications) gebruiken om valuta om te zetten in tekst in Excel. Hiervoor moet je een aangepaste VBA-macro schrijven. Online vind je diverse voorbeelden en codefragmenten, of je kunt de Excel VBA-documentatie raadplegen voor hulp.
V2: Hoe zet je valuta om in uitgeschreven tekst in Excel?
Om valuta in Excel uit te schrijven in woorden, gebruik je meestal een combinatie van functies en aangepaste opmaak. Er zijn online verschillende tutorials en handleidingen te vinden die uitleggen hoe je dit kunt doen.
V3: Hoe maak je getallen op voor Indiase roepies in Excel?
Om getallen in Excel op te maken als Indiase roepies, kun je de ingebouwde valuta-opties gebruiken. Selecteer de cel of het bereik dat je wilt opmaken, ga naar het tabblad "Getal" in het dialoogvenster Cellen opmaken en kies de categorie "Valuta". Hier kun je "₹ Engels (India)" selecteren als valutasymbool.
V4: Hoe zet ik in Excel automatisch getallen om in tekst?
Er zijn verschillende manieren om getallen automatisch om te zetten in tekst in Excel. Je kunt functies gebruiken zoals TEKST, TEKST.SAMENVOEGEN of aangepaste opmaak instellen. Voor meer geavanceerde automatisering kun je ook VBA-macro's gebruiken.
V5: Hoe zet je Amerikaanse dollars om in Indiase roepies in Excel?
Om in Excel Amerikaanse dollars om te zetten in Indiase roepies, kun je een combinatie gebruiken van Excel-functies met webservices of externe gegevensbronnen die wisselkoersen bieden. Na het ophalen van de wisselkoers kun je de "Valuta"-opmaak in Excel gebruiken om bedragen in Indiase roepies weer te geven.
V6: Wil je Excel Online gebruiken om je werk makkelijker te maken?
Als je liever in de cloud werkt, biedt Excel Online dezelfde krachtige functies om je data overal te beheren en op te schonen. Met Excel Online kun je dezelfde functies gebruiken om tekens aan de linker- of rechterkant van je gegevens te verwijderen. Het is een geweldige optie voor wie flexibiliteit nodig heeft of geen toegang heeft tot een desktopversie van Excel.
Samenvatting:
Ontdek hoe je in Excel eenvoudig getallen kunt omzetten in woorden voor Indiase roepies met behulp van VBA-code of een andere veelgebruikte methode. Schakel eerst het tabblad Ontwikkelaars in Excel in, voeg de opgegeven VBA-code toe en gebruik de formule =RupeeFormat(weergavecel).
Als alternatief kun je met de rechtermuisknop op de bladnaam klikken om VBA te openen, een module in te voegen, de code te plakken en dezelfde formule toe te passen. Deze gebruiksvriendelijke methoden zijn ook compatibel met WPS Office, een gratis alternatief voor Microsoft Office. Zo wordt het opmaken van nauwkeurige en professionele documenten een fluitje van een cent.
'%3e%3cpath%20d='M19.9911%204.11386V6.471H18.5894C18.0775%206.471%2017.7322%206.57814%2017.5536%206.79243C17.3751%207.00671%2017.2858%207.32814%2017.2858%207.75671V9.44421H19.9019L19.5536%2012.0871H17.2858V18.8639H14.5536V12.0871H12.2769V9.44421H14.5536V7.49779C14.5536%206.39064%2014.8632%205.53201%2015.4822%204.92189C16.1013%204.31177%2016.9257%204.00671%2017.9554%204.00671C18.8304%204.00671%2019.509%204.04243%2019.9911%204.11386Z'%20fill='%23333333'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2938_8199'%3e%3crect%20width='16'%20height='16'%20fill='white'%20transform='translate(8%204.00671)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
'%3e%3cpath%20d='M17.5237%2010.7813L23.4811%204H22.0699L16.8949%209.88693L12.7648%204H8L14.2469%2012.9029L8%2020.0133H9.4112L14.8725%2013.7952L19.2352%2020.0133H24M9.92053%205.04213H12.0885L22.0688%2019.0224H19.9003'%20fill='%23333333'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2938_8200'%3e%3crect%20width='16'%20height='16.0134'%20fill='white'%20transform='translate(8%204)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
