'%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 arbejder med tal i Excel, har du nogle gange brug for at vise dem både som tal og ord til officielle dokumenter eller for tydelighedens skyld. Men Excel har ikke en indbygget måde at gøre det på, især ikke for indiske rupees. Du kan derfor ende med at bruge komplicerede formler, eksterne værktøjer eller gøre det manuelt.
I denne guide lærer vi dig en enkel trin-for-trin-metode til at konvertere tal til ord for indiske rupees ved hjælp af Excel.
2 nemme måder at konvertere tal til ord i indiske rupees i Excel:
Først og fremmest skal du naturligvis have en ordentlig Microsoft Excel-download!
Metode 1: Konverter tal til ord i indiske rupees med VBA-kode
Før du konverterer tal til ord i indiske rupees ved hjælp af VBA-kode, skal du muligvis tilføje fanen Udvikler på båndet for at åbne VBA-funktionen.
Her er trinnet til at aktivere fanen Udvikler i Excel:
Trin 1: Åbn det Excel-regneark, der indeholder de tal, du vil konvertere.
Trin 2: Klik på Filer, og vælg Indstillinger på listen.
Trin 3: Vælg Tilpas båndet i Excel-indstillinger.
Trin 4: Vælg Alle faner i indstillingen Vælg kommandoer fra.
Trin 5: Find Udvikler på listen, og klik på Tilføj
Trin 6: Klik på OK
Her er nu trinnet til at konvertere tal til ord i indiske rupees ved hjælp af VBA-kode:
Trin 1: Åbn det Excel-regneark, der indeholder de tal, du vil konvertere.
Trin 2: Klik på fanen Udvikler. Hvis du ikke kan se denne fane, skal du følge trinnet ovenfor for at aktivere den.
Trin 3: Klik på Visual Basic, eller brug tastaturgenvejen Alt + F11
Trin 4: Klik på Indsæt, og vælg Modul.
Trin 5: Indsæt den VBA-kode, der er angivet i referencen.
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 |
|---|
Trin 5: Gem (Ctrl + S), og luk VBA-editoren. Vælg Excel-makroaktiveret projektmappe, når du gemmer
Trin 6: Indtast formlen =RupeeFormat(visningscelle) i den celle, hvor du vil have ordet vist, og tryk på Enter
Trin 7: Resultatet vises. Træk ned for at anvende formlen på andre celler
Tallene i det valgte område konverteres til ord i indiske rupees.
Metode 2: Konvertering af tal til ord i indiske rupees i Excel (almindelig metode)
Lær den almindelige metode til at konvertere tal til ord i indiske rupees i Excel, et praktisk trin, når du udarbejder fakturaer til bogføring.
Trin 1: Åbn det Excel-regneark, der indeholder de tal, du vil konvertere.
Trin 2: Højreklik på arkets navn, og vælg Vis kode for at åbne VBA-programmet. Det er også nyttigt til dataanalyse i Excel.
Trin 3: Klik på Indsæt, og vælg Modul.
Trin 4: Indsæt den VBA-kode, der er angivet i referencen.
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 |
|---|
Trin 5: Vælg Excel-makroaktiveret projektmappe under Gem som type. Luk VBA-editoren.
Trin 6: Indsæt formlen =RupeeFormat(visningscelle) i den valgte celle for at vise resultatet.
Trin 7: Træk ned for at anvende formlen på andre celler, når resultaterne vises i den valgte celle
Tallene i det valgte område konverteres til ord i indiske rupees.
Bedste gratis alternativ til Microsoft Office – WPS Office
Ud over Microsoft Office vil jeg præsentere en anden app for dig: det er WPS Office. Så hvad er WPS?
WPS Office er en gratis og open source-kontorpakke, der er kompatibel med Microsoft Office. Den indeholder et tekstbehandlingsprogram, et regneark, præsentationssoftware og en PDF-læser, så du nemt kan åbne, redigere og gemme filer. Den er desuden nem at bruge, selv for personer uden erfaring med kontorpakker.
WPS Office er ikke blot det – det er også en kraftfuld kontorpakke med en bred vifte af funktioner. Den er et godt alternativ til NeoOffice, især for studerende og virksomheder med et stramt budget.
Få et hurtigt overblik over nogle af funktionerne i WPS:
● Gratis brug af Word, Excel og PPT. Kraftfuld PDF-værktøjspakke
● Omfattende skabelonbibliotek
● Rige funktioner: Der er CV-assistenter, smarte formularer, skærmoptagelse, filreparation og andre små værktøjer integreret i produktet
● Produktet fylder kun 200 MB og bruger kun lidt af computerens hukommelse.
● Mac-versionen af WPS Office er meget kraftfuld. Microsoft Office overser Mac-brugernes oplevelse, hvilket WPS Office kan kompensere for.
● Understøtter onlinedokumenter (WPS AirPage) og samarbejdsredigering for flere personer
● WPS Office understøtter også Linux-, Android- og iOS-systemer. For at bruge WPS Office-produkter på forskellige systemer skal du blot logge ind på den samme konto, så synkroniseres alle filer.
Synes du, at WPS Office er det bedste valg for dig, og vil du downloade det? Så besøg dette officielle websted: https://www.wps.com, og download nu.
Sådan downloader du WPS Office
Trin 1: Besøg WPS Office-webstedet: wps.com.
Trin 2: Klik på knappen "Gratis download"
Trin 3: Vælg det sted, hvor du vil gemme WPS Office -> Gem
Trin 4: Dobbeltklik på WPS Office-filen i din downloadmappe, klik på "Kør", og følg vejledningen på skærmen for at installere
Trin 5: Når installationen er færdig, kan du nyde alle fordelene ved WPS Office
Ofte stillede spørgsmål:
Q1: Hvordan konverterer jeg valuta til tekst i Excel VBA?
Du kan bruge VBA (Visual Basic for Applications) til at konvertere valuta til tekst i Excel. Du skal skrive en brugerdefineret VBA-makro for at udføre denne konvertering. Du kan finde eksempler og kodestykker online eller se Excel VBA-dokumentationen for vejledning.
Q2: Hvordan konverterer jeg valuta til ord som tekst i Excel?
For at konvertere valuta til ord i Excel bruger du typisk en kombination af funktioner og brugerdefineret formatering. Du kan finde forskellige selvstudier og vejledninger online, der forklarer, hvordan du gør dette.
Q3: Hvordan formaterer du tal i Excel til indiske rupees?
For at formatere tal i Excel til indiske rupees kan du bruge de indbyggede valutaformateringsindstillinger. Vælg den celle eller det område, du vil formatere, gå til fanen "Tal" i dialogboksen Formater celler, og vælg kategorien "Valuta". Derfra kan du vælge "₹ Engelsk (Indien)" som valutasymbol.
Q4: Hvordan konverterer jeg tal til tekst i Excel automatisk?
Der er flere måder at konvertere tal til tekst automatisk i Excel på. Du kan bruge Excel-funktioner som TEKST, SAMMENKÆDNING eller brugerdefineret formatering. Du kan også bruge VBA-makroer til mere avanceret automatisering.
Q5: Hvordan konverterer jeg US-dollar til indiske rupees i Excel?
For at konvertere US-dollar til indiske rupees i Excel kan du bruge en kombination af Excel-funktioner og webtjenester eller eksterne datakilder, der leverer valutakurser. Excels "Valuta"-format kan også bruges til at vise beløb i indiske rupees, når du har hentet valutakurserne.
Q5. Vil du bruge Excel Online til lettere arbejde?
Hvis du foretrækker at arbejde i skyen, tilbyder Excel Online de samme kraftfulde funktioner, så du kan administrere og rydde op i dine data hvor som helst. Med Excel Online kan du bruge de samme funktioner til at fjerne tegn fra venstre eller højre side af dine data, hvilket gør det til en god mulighed for dem, der har brug for fleksibilitet, eller som ikke har adgang til en desktopversion af Excel.
Resumé:
Lær, hvordan du nemt konverterer numeriske beløb til ord i indiske rupees i Excel ved hjælp af enten VBA-kode eller en almindelig metode. Aktivér først fanen Udvikler i Excel, tilføj den medfølgende VBA-kode, og brug formlen =RupeeFormat(visningscelle).
Alternativt kan du højreklikke på arkets navn for at få adgang til VBA, indsætte et modul, indsætte koden og bruge den samme formel. Disse brugervenlige metoder er også kompatible med WPS Office, et gratis alternativ til Microsoft Office, hvilket gør præcis og professionel dokumentformatering til en leg.
'%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)
