logo
search
list

Sisällysluettelo

2 helppoa tapaa muuttaa luvut sanoiksi Intian rupioina Excelissä:
Paras ilmainen vaihtoehto Microsoft Officelle - WPS Office
Usein kysytyt kysymykset:
Yhteenveto:

Miten muuttaa luvut sanoiksi Intian rupioina Excelissä

Julkaissut Algirdas Jasaitis

calendar

2026-09-24

views

868

likes

59

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.


Muunnettava luku taulukossa


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


Tiedosto Asetukset, Alt: Asetukset-painike


Vaihe 3: Valitse Excelin asetuksista Mukauta valintanauhaa.


Asetukset-välilehti ja Mukauta valintanauhaa -painike


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


Valitse komennot luettelosta Kaikki välilehdet -vaihtoehto valittuna


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


Kehitystyökalut-välilehti ja Lisää-painike


Vaihe 6: Napsauta OK.


Kehitystyökalut-välilehti on lisätty ja OK-painike


Käytä Wordia, Exceliä ja PPT:tä ILMAISEKSI

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.


Muunnettava luku taulukossa


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


Kehitystyökalut-välilehti


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


Visual Basic -painike


Vaihe 4: Napsauta Lisää ja valitse Moduuli.


Napsauta Lisää > Moduuli-vaihtoehto


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


VBA-koodi lisätty viitteeseen


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


Tallennusmuoto


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


kaava =RupeeFormat(näytettävä_solu)


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


Kaikkien solujen tulokset näkyvät


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.


Muunnettava luku taulukossa


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


Taulukko-välilehti ja Näytä koodi -painike


Vaihe 3: Napsauta Lisää ja valitse Moduuli.


Napsauta Lisää > Moduuli-vaihtoehto


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


VBA-koodi lisätty viitteeseen


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


Tallennusmuoto


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


kaava =RupeeFormat(näytettävä_solu)


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


Kaikkien solujen tulokset näkyvät


Valitun alueen luvut muunnetaan sanoiksi Intian rupioina.

Lataa Office ilmaiseksi
  • Käytä Wordia, Exceliä ja PPT:tä ILMAISEKSI ilman mainoksia.

  • Muokkaa PDF-tiedostoja tehokkaalla PDF-työkalupaketilla.

  • Microsoftia vastaava käyttöliittymä. Helppo oppia. 100-prosenttinen yhteensopivuus.

  • Paranna tuottavuuttasi WPS:n runsailla ja ilmaisilla Word-, Excel-, PPT- ja ansioluettelomalleilla.

100 % turvallinen
avatar
Algirdas Jasaitis

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


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.


Ilmainen lataus useille alustoille


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.


Valitse


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


Tallenna WPS Office -tiedosto


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


Suorita ohjelmisto


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.

100 % turvallinen


Algirdas Jasaitis

15 years of office industry experience, tech lover and copywriter. Follow me for product reviews, comparisons, and recommendations for new apps and software.