'%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}
Når du jobber med tall i Excel, trenger du noen ganger å vise dem med både tall og ord for offisielle dokumenter eller klarhet. Men Excel har ikke en innebygd måte å gjøre dette på, spesielt for indiske rupier. Så du kan ende opp med å bruke kompliserte formler, eksterne verktøy, eller gjøre det manuelt.
I denne guiden vil vi lære deg en enkel trinn-for-trinn-metode for å konvertere tall til ord for indiske rupier i Excel.
2 enkle måter å konvertere tall til ord i indiske rupier i Excel:
Selvfølgelig må du fremfor alt først skaffe en riktig Microsoft Excel-nedlasting!
Metode 1: Konverter tall til ord i indiske rupier med VBA-kode
Før du konverterer tall til ord for indiske rupier ved hjelp av VBA-kode, må du kanskje legge til Utvikler-fanen på båndet for å åpne VBA-funksjonene.
Slik aktiverer du Utvikler-fanen i Excel:
Trinn 1: Åpne Excel-regnearket som inneholder tallene du vil konvertere.
Trinn 2: Klikk på Fil og velg Alternativer i listen
Trinn 3: I Excel-alternativer velger du Tilpass båndet
Trinn 4: Velg Alle faner under alternativet Velg kommandoer fra
Trinn 5: Finn Utvikler i listen og klikk på Legg til
Trinn 6: Klikk på OK
Slik konverterer du tall til ord i indiske rupier ved hjelp av VBA-kode:
Trinn 1: Åpne Excel-regnearket som inneholder tallene du vil konvertere.
Trinn 2: Klikk på Utvikler-fanen. Hvis du ikke ser denne fanen, følger du trinnet ovenfor for å aktivere den.
Trinn 3: Klikk på Visual Basic eller bruk hurtigtasten Alt + F11
Trinn 4: Klikk på Sett inn og velg Modul.
Trinn 5: Lim inn VBA-koden som er gitt i referansen.
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 |
|---|
Trinn 5: Lagre (Ctrl + S) og lukk VBA-redigereren. Velg Excel-arbeidsbok med makroer når du lagrer
Trinn 6: Skriv inn formelen =RupeeFormat(visningscelle) i cellen der du vil at ordet skal vises, og trykk Enter
Trinn 7: Resultatet vises. Dra ned for å bruke formelen på andre celler
Tallene i det valgte området vil bli konvertert til ord i indiske rupier.
Metode 2: Konvertering av tall til ord i indiske rupier i Excel (vanlig metode)
Lær den vanlige metoden for å konvertere tall til ord i indiske rupier i Excel, et praktisk trinn når du klargjør fakturaer for bokføring.
Trinn 1: Åpne Excel-regnearket som inneholder tallene du vil konvertere.
Trinn 2: Høyreklikk på arkenavnet og velg Vis kode for å åpne VBA-applikasjonen. Det er også nyttig for dataanalyse i Excel.
Trinn 3: Klikk på Sett inn og velg Modul.
Trinn 4: Lim inn VBA-koden som er gitt i referansen.
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 |
|---|
Trinn 5: Velg Excel-arbeidsbok med makroer som lagringstype. Lukk VBA-redigeringsvinduet
Trinn 6: Sett inn formelen =RupeeFormat(visningscelle) i den valgte cellen for å vise resultatet.
Trinn 7: Dra ned for å bruke formelen på andre celler etter at resultatene vises i den valgte cellen
Tallene i det valgte området vil bli konvertert til ord i indiske rupier.
Det beste gratisalternativet til Microsoft Office - WPS Office
Foruten Microsoft Office, vil jeg tilby deg en annen app. Dette er WPS Office. Så hva er WPS?
WPS Office er en gratis kontorpakke som er kompatibel med Microsoft Office. Den inkluderer et tekstbehandlingsprogram, regneark, presentasjonsprogramvare og en PDF-leser, slik at du enkelt kan åpne, redigere og lagre filer. Den er også enkel å bruke, selv for folk uten tidligere erfaring med kontorpakker.
Ikke bare det, WPS Office er en kraftig kontorpakke som tilbyr et bredt spekter av funksjoner. Det er et godt alternativ til NeoOffice, spesielt for studenter og bedrifter med et begrenset budsjett.
Ta en rask titt på noen av funksjonene til WPS:
● Gratis å bruke Word, Excel og PPT. Kraftig PDF-verktøysett
● Rikt utvalg av maler
● Rike funksjoner; det er CV-assistenter, smarte skjemaer, skjermopptak, filreparasjon og andre små verktøy integrert i produktet
● Produktet er lettvektig på kun 200 MB, og det opptar minimalt med datamaskinminne.
● Mac-versjonen av WPS Office er svært kraftig. Microsoft Office overser opplevelsen til Mac-brukere, noe som WPS Office veier opp for
● Støtter nettdokumenter (WPS AirPage) og samarbeidsredigering for flere personer
● WPS Office støtter også Linux-systemer, Android og iOS-systemer. For å bruke WPS Office-produkter på forskjellige systemer trenger du bare å logge inn på samme konto, så kan alle filene synkroniseres
Føler du at WPS Office er det beste valget for deg og vil laste det ned? Besøk det offisielle nettstedet: https://www.wps.com og last ned nå.
Slik laster du ned WPS Office
Trinn 1: Besøk nettsiden til WPS Office: wps.com.
Trinn 2: Klikk på «Gratis nedlasting»-knappen
Trinn 3: Velg hvor du vil lagre WPS Office -> Lagre
Trinn 4: Dobbeltklikk på WPS Office-filen i nedlastingsmappen din, klikk på «Kjør» og følg instruksjonene på skjermen for å installere
Trinn 5: Etter at det er fullført, kan du nyte all kraften til WPS Office
Ofte stilte spørsmål:
Spørsmål 1: Hvordan konverterer jeg valuta til tekst i Excel VBA?
Du kan bruke VBA (Visual Basic for Applications) til å konvertere valuta til tekst i Excel. Du må skrive en egendefinert VBA-makro for å utføre denne konverteringen. Du kan finne eksempler og kodesnutter på nettet, eller konsultere dokumentasjonen for Excel VBA for veiledning.
Spørsmål 2: Hvordan konverterer jeg valuta til ordtekst i Excel?
For å konvertere valuta til ord i Excel, bruker du vanligvis en kombinasjon av funksjoner og egendefinert formatering. Du kan finne ulike opplæringsprogrammer og guider på nettet som forklarer hvordan du oppnår dette.
Spørsmål 3: Hvordan formaterer du tall i Excel for indiske rupier?
For å formatere tall i Excel for indiske rupier, kan du bruke de innebygde alternativene for valutaformatering. Velg cellen eller området du vil formatere, gå til «Tall»-fanen i dialogboksen for formatering av celler, og velg kategorien «Valuta». Derfra kan du velge «₹ Engelsk (India)» som valutasymbol.
Spørsmål 4: Hvordan konverterer jeg tall til tekst automatisk i Excel?
Det er flere måter å konvertere tall til tekst automatisk i Excel på. Du kan bruke Excel-funksjoner som TEKST, KJEDE.SAMMEN eller egendefinert formatering. Du kan også bruke VBA-makroer for mer avansert automatisering.
Spørsmål 5: Hvordan konverterer jeg amerikanske dollar til indiske rupier i Excel?
For å konvertere amerikanske dollar til indiske rupier i Excel, kan du bruke en kombinasjon av Excel-funksjoner og webtjenester eller eksterne datakilder som gir valutakurser. Excels «Valuta»-format kan også brukes til å vise beløp i indiske rupier etter at du har hentet inn valutakurser.
Spørsmål 6: Ønsker du å bruke Excel Online for å gjøre arbeidet enklere?
Hvis du foretrekker å jobbe i skyen, tilbyr Excel Online de samme kraftige funksjonene for å hjelpe deg med å administrere og rense dataene dine fra hvor som helst. Med Excel Online kan du bruke de samme funksjonene for å fjerne tegn fra venstre eller høyre side av dataene dine, noe som gjør det til et flott alternativ for de som trenger fleksibilitet eller ikke har tilgang til skrivebordsversjonen av Excel.
Sammendrag:
Lær hvordan du enkelt konverterer numeriske beløp til ord i indiske rupier i Excel, ved å bruke enten VBA-kode eller en vanlig metode. Først aktiverer du Utvikler-fanen i Excel, legger til den angitte VBA-koden, og bruker formelen =RupeeFormat(visningscelle).
Alternativt kan du høyreklikke på arkenavnet for å få tilgang til VBA, sette inn en modul, lime inn koden og bruke den samme formelen. Disse brukervennlige metodene er også kompatible med WPS Office, et gratis alternativ til Microsoft Office, som gjør presis og profesjonell dokumentformatering til en lek.
'%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)
