Excel biedt geen standaardfunctie die een getal of bedrag in woorden omzet in Indiase roepies of welke valuta dan ook. Maar het betekent niet dat we het getal niet kunnen converteren naar Indiase roepie. We kunnen een aangepaste Excel-formule maken om getallen om te zetten in woorden in Indiase roepies. Ik heb deze aangepaste functie gemaakt om getallen om te zetten in woorden in termen van Indiase roepies. Hieronder kunt u het macrobestand downloaden. Ik heb de onderstaande code genoemd en een beetje uitgelegd, zodat u wijzigingen kunt aanbrengen volgens uw vereisten.
Excel-functie om getallen te verbergen in woorden in Indiase roepies
Gebruik deze functie dus om elk bedrag of getal van 10 of minder om te zetten in woorden of roepies. Ik heb deze functie NUM_TO_IND_RUPEE_WORD genoemd. De syntaxis van deze functie is:
| =NUM_TO_IND_RUPEE_WORD(getal) |
U kunt het werkende macrobestand downloaden:
Getal to Words Indiase roepie
Nu wordt de code van de functie hieronder vermeld.
Deze code is onderverdeeld in vier afzonderlijke functies. De hoofdfunctie is NUM_TO_IND_RUPEE_WORD. En andere drie functies GetHunderds(), GetTens() en GetDigits helpen de functie die de hoofdfunctie helpt om de string te vormen.
Functie NUM_TO_IND_RUPEE_WORD(ByVal MyNumber, Optioneel incRupees As Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace As Long, Count As Long Dim myLakhs, myCrores Redim Place (9) As String Place(2) = " Thousand " : Plaats(3) = " Miljoen " Plaats(4) = " Miljard ": Plaats(5) = " Triljoen " ' Tekenreeks representatie van bedrag. MyNumber = Trim(Str(MyNumber)) ' Positie van de komma 0 indien geen. DecimalPlace = InStr(MyNumber, ".") ' Converteer Paise en stel MyNumber in op Rupees-bedrag. If DecimalPlace > 0 Then Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If myCrores = MyNumber \ 10000000 myLakhs = ( MyNumber - myCrores * 10000000) \ 100000 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000 Count = 1 Do While myCrores "" Temp = GetHundreds(Right(myCrores, 3)) If Temp "" Then Crores = Temp & Place(Count ) & Crores If Len(myCrores) > 3 Then myCrores = Left(myCrores, Len(myCrores) - 3) Else myCrores = "" End If Count = Count + 1 Loop Count = 1 Do While myLakhs "" Temp = GetHundreds(Right (myLakhs, 3)) If Temp "" Then Lakhs = Temp & Place(Count) & Lakhs If Len(myLakhs) > 3 then myLakhs = Left(myLakhs, Len(myLakhs) - 3) Else myLakhs = "" End If Count = Telling + 1 Loop Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Rupees = Temp & Place(Count) & Rupees If Len(MyNumber) > 3 Then MyNumber = Left (MijnNummer, Len(MijnNummer) - 3) Anders MijnNummer = "" Einde Als Aantal = C ount + 1 Loop Selecteer Case Crores Case "": Crores = "" Case "One": Crores = " One Crore " Case Anders: Crores = Crores & " Crores " Einde Selecteer Case Lakhs Case "": Lakhs = "" Case "One": Lakhs = " One Lakh " Case Anders: Lakhs = Lakhs & " Lakhs " Einde Selecteer Case Rupees Case "": Rupees = "Nul " Case "One": Rupees = "One" Case Else: Rupees = Rupees Einde Selecteer Case Paise Case "": Paise = " en Paise Zero Only " Case "One": Paise = " en Paise One Only " Case Else: Paise = " en Paise " & Paise & " Only " End Select 'creëren van de reeks woorden om getal in woorden te vertalen NUM_TO_IND_RUPEE_WORD = IIf(incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise End Function ' Converteert een getal van 100-999 naar tekst Functie GetHundreds(ByVal MyNumber) Dim Resultaat As String If Val(MyNumber) = 0 Dan Afsluiten Functie MyNumber = Right("000" & MyNumber, 3) ' Converteer de honderdtallen. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & "Honderd" End If ' Converteer de tientallen en enen. If Mid(MijnGetal, 2, 1) "0" Dan Resultaat = Resultaat & GetTens(Mid(MijnGetal, 2)) Else Resultaat = Resultaat & GetDigit(Mid(MijnGetal, 3)) End If GetHundreds = Resultaat Eind Functie ' Converteert een nummer van 10 tot 99 in tekst. Functie GetTens(TensText) Dim Result As String Result = "" ' Maak de tijdelijke functiewaarde ongeldig. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19… Select Case Val(TensText) Case 10: Resultaat = "Tien" Case 11: Resultaat = "Elf" Case 12: Resultaat = "Twaalf Case 13: Resultaat = "Dertien" Case 14: Resultaat = "Veertien" Case 15: Resultaat = "Vijftien" Case 16: Resultaat = "Zestien" Case 17: Resultaat = "Zeventien" Case 18: Resultaat = Case "Achttien" 19: Resultaat = "Negentien" Case Else End Selecteer Else ' Indien waarde tussen 20-99… Selecteer Case Val(Left(TensText, 1)) Case 2: Resultaat = "Twintig" Case 3: Resultaat = "Dertig" Case 4: Resultaat = "Veertig " Case 5: Resultaat = "Vijftig " Case 6: Resultaat = "Zestig " Case 7: Resultaat = "Zeventig" Case 8: Resultaat = "Tachtig " Case 9: Resultaat = "Negentig " Case Anders Einde Selecteer resultaat = Resultaat & GetDigit _ (Rechts(TensText, 1)) ' Haal de plaats op. End If GetTens = Resultaat Eindfunctie ' Converteert een getal van 1 tot 9 naar tekst. Functie GetDigit(Digit) Selecteer Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Twee" Case 3: GetDigit = "Three" Case 4: GetDigit = "Vier" Case 5: GetDigit = "Five " Case 6: GetDigit = "Zes" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Acht" Case 9: GetDigit = "Nine" Case Anders: GetDigit = "" End Select End Function
De code van de functie is lang maar gemakkelijk te begrijpen.
Om deze code te gebruiken, plaatst u een module in VBE en kopieert u deze. En de functie is klaar om direct op het blad te worden gebruikt. Het zal het getal omzetten in woorden, met name in de indeling van de Indiase roepie.
Dus ja jongens, dit is hoe je een aangepaste functie in Excel kunt gebruiken om getallen naar woorden om te zetten. Ik hoop dat dit nuttig is. Als je twijfels hebt over dit artikel of een andere functie, vraag het dan in de opmerkingen hieronder.
Maak een VBA-functie om array terug te geven| Om een array te retourneren met behulp van een aangepaste functie in Excel, gebruiken we een iets andere syntaxis voor het schrijven van de aangepaste functie. Deze functie retourneert een reeks waarden in plaats van slechts één waarde.
Arrays in Excel-formule|De arrays zijn verzamelingswaarden van hetzelfde type in elke technische taal. In Excel is het hetzelfde, maar wordt iets anders behandeld dan andere programmeertalen…
Hoe een door de gebruiker gedefinieerde functie te creëren via VBA| Leer hoe u door de gebruiker gedefinieerde functies in Excel kunt maken.
Een door de gebruiker gedefinieerde functie (UDF) uit een andere werkmap gebruiken met VBA in Microsoft Excel| Gebruik de door de gebruiker gedefinieerde functie in een andere werkmap van Excel.
Retourneer foutwaarden van door de gebruiker gedefinieerde functies met behulp van VBA in Microsoft Excel| Leer hoe u foutwaarden kunt retourneren vanuit een door de gebruiker gedefinieerde functie.
Populaire artikels:
50 Excel-snelkoppelingen om uw productiviteit te verhogen | Word sneller in uw taak. Met deze 50 sneltoetsen werk je nog sneller in Excel.
Hoe de Excel VERT.ZOEKEN-functie te gebruiken| Dit is een van de meest gebruikte en populaire functies van Excel die wordt gebruikt om waarde op te zoeken uit verschillende bereiken en bladen.
Hoe de Excel te gebruiken? AANTAL.ALS-functie| Tel waarden met voorwaarden met behulp van deze geweldige functie. U hoeft uw gegevens niet te filteren om een specifieke waarde te tellen. Countif-functie is essentieel om uw dashboard voor te bereiden.
Hoe de SUMIF-functie in Excel te gebruiken? | Dit is een andere essentiële functie van het dashboard. Dit helpt u bij het optellen van waarden voor specifieke voorwaarden.
