Kun käsittelet lukuja Excelissä, toisinaan ne on esitettävä sekä numeroina että sanoina virallisia asiakirjoja tai selkeyttä varten. Excelissä ei kuitenkaan ole tähän sisäänrakennettua toimintoa, etenkään Intian rupioiden kohdalla. Siksi saatat joutua käyttämään monimutkaisia kaavoja, ulkoisia työkaluja tai tekemään sen manuaalisesti.
Tässä oppaassa opetamme sinulle yksinkertaisen, vaiheittaisen menetelmän, jolla voit muuttaa luvut Intian rupioita tarkoittaviksi sanoiksi Excelissä.
2 helppoa tapaa muuntaa luvut sanoiksi Intian rupioina Excelissä:
Ennen kaikkea sinun on tietysti ensin hankittava asianmukainen Microsoft Excel -lataus!
Tapa 1: Muunna luvut sanoiksi Intian rupioina VBA-koodilla
Ennen kuin muunnat luvut sanoiksi Intian rupioina VBA-koodin avulla, sinun on ehkä lisättävä Kehitystyökalut-välilehti valintanauhaasi avataksesi VBA-toiminnon.
Näin otat Kehitystyökalut-välilehden käyttöön Excelissä:
Vaihe 1: Avaa Excel-laskentataulukko, joka sisältää luvut, jotka haluat muuntaa.

Vaihe 2: Napsauta Tiedosto-välilehteä ja valitse luettelosta Asetukset.

Vaihe 3: Valitse Excelin asetuksista Mukauta valintanauhaa.

Vaihe 4: Valitse Kaikki välilehdet -vaihtoehto Valitse komennot mistä -pudotusvalikosta.

Vaihe 5: Etsi luettelosta Kehitystyökalut ja napsauta Lisää.

Vaihe 6: Napsauta OK.

Seuraavaksi käymme läpi vaiheet, joilla luvut muunnetaan sanoiksi Intian rupioina VBA-koodin avulla:
Vaihe 1: Avaa Excel-laskentataulukko, joka sisältää luvut, jotka haluat muuntaa.

Vaihe 2: Napsauta Kehitystyökalut-välilehteä. Jos et näe tätä välilehteä, ota se käyttöön noudattamalla yllä olevia ohjeita.

Vaihe 3: Napsauta Visual Basic tai käytä pikanäppäintä Alt + F11.

Vaihe 4: Napsauta Lisää ja valitse Moduuli.

Vaihe 5: Liitä viitteessä annettu VBA-koodi.
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 |
|---|

Vaihe 5: Tallenna (Ctrl + S) ja sulje VBA-editori. Valitse tallennettaessa Excelin makrot salliva työkirja.

Vaihe 6: Kirjoita kaava =RupeeFormat(näytettävä_solu) soluun, johon haluat sanan näkyvän, ja paina Enter.

Vaihe 7: Tulos tulee näkyviin. Vedä alaspäin kopioidaksesi kaavan muihin soluihin.

Valitun alueen luvut muunnetaan sanoiksi Intian rupioina.
Tapa 2: Lukujen muuntaminen sanoiksi Intian rupioina Excelissä (yleinen tapa)
Opi yleinen menetelmä lukujen muuntamiseksi sanoiksi Intian rupioina Excelissä. Tämä on kätevä vaihe, kun laadit laskuja kirjanpitoa varten.
Vaihe 1: Avaa Excel-laskentataulukko, joka sisältää luvut, jotka haluat muuntaa.

Vaihe 2: Napsauta taulukon nimeä hiiren kakkospainikkeella ja valitse Näytä koodi avataksesi VBA-sovelluksen. Se on hyödyllinen myös data-analyysissä Excelissä.

Vaihe 3: Napsauta Lisää ja valitse Moduuli.

Vaihe 4: Liitä viitteessä annettu VBA-koodi.
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 |
|---|

Vaihe 5: Valitse tallennusmuodoksi Excelin makrot salliva työkirja. Sulje VBA-editorin ikkuna.

Vaihe 6: Lisää kaava =RupeeFormat(näytettävä_solu) valittuun soluun näyttääksesi tuloksen.

Vaihe 7: Vedä alaspäin kopioidaksesi kaavan muihin soluihin, kun tulos on ilmestynyt valittuun soluun.

Valitun alueen luvut muunnetaan sanoiksi Intian rupioina.
Paras ilmainen vaihtoehto Microsoft Officelle – WPS Office
Microsoft Officen lisäksi haluan esitellä sinulle toisen sovelluksen. Se on WPS Office. Mikä WPS oikein on?

WPS Office on ilmainen toimistopaketti, joka on yhteensopiva Microsoft Officen kanssa. Se sisältää tekstinkäsittelyohjelman, laskentataulukon, esitysohjelman ja PDF-lukuohjelman, joten voit helposti avata, muokata ja tallentaa tiedostoja. Sitä on myös helppo käyttää, jopa ilman aiempaa kokemusta toimisto-ohjelmistoista.
Ei siinä vielä kaikki: WPS Office on tehokas toimistopaketti, joka tarjoaa laajan valikoiman ominaisuuksia. Se on erinomainen vaihtoehto esimerkiksi NeoOfficelle, erityisesti opiskelijoille ja budjettitietoisille yrityksille.
Luo nopea katsaus joihinkin WPS:n ominaisuuksiin:
● Wordin, Excelin ja PPT:n ilmainen käyttö. Tehokas PDF-työkalupaketti.
● Laaja mallipohjakirjasto
● Monipuoliset toiminnot: tuotteeseen on integroitu ansioluetteloavustajia, älykkäitä lomakkeita, näytöntallennin, tiedostonkorjaus ja muita hyödyllisiä työkaluja.
● Ohjelmisto on kevyt (vain 200 Mt) ja vie vain vähän tietokoneen muistia.
● WPS Officen Mac-versio on erittäin tehokas. WPS Office paikkaa Microsoft Officen puutteet Mac-käyttäjien kokemuksen suhteen.
● Tukee verkkoasiakirjoja (WPS AirPage) ja usean henkilön yhteismuokkausta.
● WPS Office tukee myös Linux-, Android- ja iOS-käyttöjärjestelmiä. Voit käyttää WPS Office -tuotteita eri laitteilla kirjautumalla sisään samalle tilille, jolloin kaikki tiedostot synkronoituvat.

Tuntuuko WPS Office sinulle sopivimmalta valinnalta ja haluat ladata sen? Vieraile virallisella verkkosivustolla osoitteessa https://www.wps.com ja lataa se heti.
Kuinka ladata WPS Office
Vaihe 1: Vieraile WPS Officen verkkosivustolla osoitteessa wps.com.
Vaihe 2: Napsauta "Ilmainen lataus" -painiketta.

Vaihe 3: Valitse sijainti, johon haluat tallentaa WPS Officen -> Tallenna.

Vaihe 4: Kaksoisnapsauta WPS Office -tiedostoa Lataukset-kansiossasi, valitse "Suorita" ja noudata näytöllä näkyviä asennusohjeita.

Vaihe 5: Asennuksen päätyttyä voit nauttia kaikista WPS Officen ominaisuuksista.
Usein kysytyt kysymykset (UKK):
Kysymys 1: Kuinka muunnan valuutan tekstiksi Excelissä VBA:n avulla?
Voit käyttää VBA:ta (Visual Basic for Applications) muuntaaksesi valuutan tekstiksi Excelissä. Sinun on kirjoitettava mukautettu VBA-makro tämän muunnoksen suorittamiseksi. Löydät verkosta esimerkkejä ja koodinpätkiä, tai voit etsiä ohjeita Excelin VBA-dokumentaatiosta.
Kysymys 2: Kuinka muuntaa valuutta sanalliseksi tekstiksi Excelissä?
Valuutan muuntamiseen sanoiksi Excelissä käytetään yleensä funktioiden ja mukautetun muotoilun yhdistelmää. Verkosta löytyy useita opetusohjelmia ja oppaita, joissa selitetään, miten tämä tehdään.
Kysymys 3: Kuinka alustaa luvut Excelissä Intian rupioiksi?
Voit alustaa luvut Intian rupioiksi Excelissä käyttämällä sisäänrakennettuja valuuttamuotoiluvaihtoehtoja. Valitse alustettava solu tai solualue, siirry Muotoile solut -valintaikkunan "Luku"-välilehdelle ja valitse "Valuutta"-luokka. Täältä voit valita valuuttasymboliksi "₹ Englanti (Intia)".
Kysymys 4: Kuinka voin muuntaa luvut tekstiksi Excelissä automaattisesti?
Excelissä on useita tapoja muuntaa luvut automaattisesti tekstiksi. Voit käyttää Excel-funktioita, kuten TEKSTI tai KETJUTA, tai mukautettua muotoilua. Monimutkaisempaa automaatiota varten voit käyttää myös VBA-makroja.
Kysymys 5: Kuinka muuntaa Yhdysvaltain dollarit Intian rupioiksi Excelissä?
Voit muuntaa Yhdysvaltain dollarit Intian rupioiksi Excelissä käyttämällä Excelin funktioiden ja valuuttakursseja tarjoavien verkkopalveluiden tai ulkoisten tietolähteiden yhdistelmää. Excelin "Valuutta"-muotoilua voidaan myös käyttää summien näyttämiseen Intian rupioina, kun valuuttakurssit on noudettu.
Kysymys 6: Haluatko käyttää Excel Onlinea työn helpottamiseksi?
Jos työskentelet mieluummin pilvessä, Excel Online tarjoaa samat tehokkaat ominaisuudet tietojesi hallintaan ja siivoamiseen mistä tahansa. Excel Onlinen avulla voit käyttää samoja funktioita poistaaksesi merkkejä tietojesi vasemmalta tai oikealta puolelta, mikä tekee siitä erinomaisen vaihtoehdon niille, jotka tarvitsevat joustavuutta tai joilla ei ole pääsyä Excelin työpöytäversioon.
Yhteenveto:
Opi muuntamaan numeeriset summat helposti sanoiksi Intian rupioina Excelissä käyttämällä joko VBA-koodia tai yleistä menetelmää. Ota ensin Kehitystyökalut-välilehti käyttöön Excelissä, lisää annettu VBA-koodi ja käytä =RupeeFormat(näytettävä_solu) -kaavaa.
Vaihtoehtoisesti voit napsauttaa taulukon nimeä hiiren kakkospainikkeella siirtyäksesi VBA:han, lisätä moduulin, liittää koodin ja käyttää samaa kaavaa. Nämä helppokäyttöiset menetelmät ovat yhteensopivia myös WPS Officen (ilmainen vaihtoehto Microsoft Officelle) kanssa, mikä tekee tarkasta ja ammattimaisesta asiakirjojen muotoilusta vaivatonta.





