logo
search
list

Tartalomjegyzék

2 egyszerű módszer a számok szöveggé alakítására indiai rúpiában az Excelben:
A Microsoft Office legjobb ingyenes alternatívája - WPS Office
Gyakori kérdések (GYIK):
Összegzés:

Hogyan alakítsuk a számokat szöveggé indiai rúpiában az Excelben

Közzétette Algirdas Jasaitis

calendar

2026-09-24

views

868

likes

59

Amikor az Excelben számokkal dolgozik, a hivatalos dokumentumok vagy az egyértelműség kedvéért néha számokkal és betűkkel is meg kell jelenítenie azokat. Az Excel azonban nem rendelkezik beépített módszerrel erre, különösen az indiai rúpia esetében. Így előfordulhat, hogy bonyolult képleteket, külső eszközöket kell használnia, vagy manuálisan kell elvégeznie a feladatot.

Ebben az útmutatóban lépésről lépésre bemutatunk egy egyszerű módszert, amellyel az Excel segítségével a számokat szavakká alakíthatja az indiai rúpiához.

2 egyszerű módszer a számok indiai rúpia szavakká alakítására az Excelben:

Természetesen mindenekelőtt egy megfelelő Microsoft Excel letöltésre van szüksége!

1. módszer: Számok szavakká alakítása indiai rúpiában VBA-kóddal

Mielőtt a számokat VBA-kód segítségével szavakká alakítaná indiai rúpiában, előfordulhat, hogy hozzá kell adnia a Fejlesztőeszközök lapot a menüszalaghoz a VBA-funkció megnyitásához.

Íme az Excel Fejlesztőeszközök lapjának engedélyezésének lépései:

1. lépés: Nyissa meg azt az Excel-táblázatot, amely tartalmazza az átalakítani kívánt számokat.


Átalakítandó szám a táblázatban


2. lépés: Kattintson a Fájl menüre, és válassza a Beállítások lehetőséget a listából.


Fájl beállítások Alt: Beállítások gomb


3. lépés: Az Excel beállításaiban válassza a Menüszalag testreszabása lehetőséget.


Beállítások lap és Menüszalag testreszabása gomb


4. lépés: Válassza a Minden lap lehetőséget a Választható parancsok helye beállításnál.


Parancsok kiválasztása a listából a Minden lap kijelölésével


5. lépés: Keresse meg a Fejlesztőeszközök lehetőséget a listában, és kattintson a Hozzáadás gombra.


Fejlesztőeszközök lap és Hozzáadás gomb


6. lépés: Kattintson az OK gombra.


Fejlesztőeszközök lap hozzáadása és OK gomb


Használja a Word, Excel és PPT programokat INGYENESEN

Íme a számok indiai rúpia szavakká alakításának lépései VBA-kód segítségével:

1. lépés: Nyissa meg azt az Excel-táblázatot, amely tartalmazza az átalakítani kívánt számokat.


Átalakítandó szám a táblázatban


2. lépés: Kattintson a Fejlesztőeszközök lapra. Ha nem látja ezt a lapot, kövesse a fenti lépéseket az engedélyezéséhez.


Fejlesztőeszközök lap


3. lépés: Kattintson a Visual Basic elemre, vagy használja az Alt + F11 billentyűkombinációt.


Visual Basic gomb


4. lépés: Kattintson a Beszúrás gombra, és válassza a Modul lehetőséget.


Kattintson a Beszúrás > Modul lehetőségre


5. lépés: Illessze be a hivatkozásban megadott VBA-kódot.

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


Beillesztett VBA-kód a hivatkozásban


5. lépés: Mentse (Ctrl + S), és zárja be a VBA-szerkesztőt. Mentéskor válassza az Excel makróbarát munkafüzet lehetőséget.


Fájltípus


6. lépés: Írja be a =RupeeFormat(megjelenítendő cella) képletet abba a cellába, ahol meg szeretné jeleníteni a szöveget, majd nyomja meg az Enter billentyűt.


képlet =RupeeFormat(megjelenítendő cella)


7. lépés: Az eredmény megjelenik. Húzza lefelé a képlet más cellákra történő alkalmazásához.


Az összes cella eredménye megjelenik


A kijelölt tartományban lévő számok indiai rúpiát jelölő szavakká alakulnak.

2. módszer: Számok szavakká alakítása indiai rúpiában az Excelben (Általános módszer)

Ismerje meg a számok indiai rúpia szavakká alakításának általános módszerét az Excelben, amely egy praktikus lépés, amikor számlákat készít a könyveléshez.

1. lépés: Nyissa meg azt az Excel-táblázatot, amely tartalmazza az átalakítani kívánt számokat.


Átalakítandó szám a táblázatban


2. lépés: Kattintson a jobb gombbal a munkalap nevére, és válassza a Kód megjelenítése lehetőséget a VBA-alkalmazás megnyitásához. Ez hasznos lehet az Excelben történő adatelemzéshez is.


Munkalap fül és Kód megjelenítése gomb


3. lépés: Kattintson a Beszúrás gombra, és válassza a Modul lehetőséget.


Kattintson a Beszúrás > Modul lehetőségre


4. lépés: Illessze be a hivatkozásban megadott VBA-kódot.

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


Beillesztett VBA-kód a hivatkozásban


5. lépés: Válassza az Excel makróbarát munkafüzet lehetőséget a Fájltípusnál. Zárja be a VBA-szerkesztő ablakát.


Fájltípus


6. lépés: Illessze be a =RupeeFormat(megjelenítendő cella) képletet a kiválasztott cellába az eredmény megjelenítéséhez.


képlet =RupeeFormat(megjelenítendő cella)


7. lépés: Húzza lefelé a képlet más cellákra történő alkalmazásához, miután az eredmény megjelent a kiválasztott cellában.


Az összes cella eredménye megjelenik


A kijelölt tartományban lévő számok indiai rúpiát jelölő szavakká alakulnak.

Ingyenes Office letöltés
  • Használja a Word, Excel és PPT programokat INGYENESEN, hirdetések nélkül.

  • Szerkessze PDF-fájljait a hatékony PDF-eszköztárral.

  • Microsoft-szerű felület. Könnyen tanulható. 100%-os kompatibilitás.

  • Növelje termelékenységét a WPS bőséges, ingyenes Word-, Excel-, PPT- és önéletrajz-sablonjaival.

100%-osan biztonságos
avatar
Algirdas Jasaitis

A legjobb ingyenes alternatíva a Microsoft Office helyett – WPS Office

A Microsoft Office mellett egy másik alkalmazást is ajánlok. Ez a WPS Office. Tehát mi is az a WPS?


WPS Office


A WPS Office egy ingyenes, nyílt forráskódú irodai programcsomag, amely kompatibilis a Microsoft Office-szal. Tartalmaz szövegszerkesztőt, táblázatkezelőt, prezentációkészítőt és PDF-olvasót, így könnyedén megnyithatja, szerkesztheti és mentheti a fájlokat. Használata is egyszerű, még azok számára is, akik korábban nem dolgoztak irodai programcsomagokkal.

Ezenkívül a WPS Office egy nagy teljesítményű irodai programcsomag, amely funkciók széles skáláját kínálja. Jó alternatívája a NeoOffice-nak, különösen diákok és szűkebb költségvetésből gazdálkodó vállalkozások számára.

Vessen egy pillantást a WPS néhány funkciójára:

●  Ingyenesen használható Word, Excel és PPT. Hatékony PDF-eszköztár

●  Gazdag sablontár

●  Gazdag funkciók: önéletrajz-asszisztensek, intelligens űrlapok, képernyőrögzítés, fájljavítás és más integrált kis eszközök találhatók a termékben

● A termék pehelysúlyú, csupán 200 MB, és kevés memóriát foglal a számítógépen.

● A WPS Office Mac-verziója rendkívül erős. A Microsoft Office figyelmen kívül hagyja a Mac-felhasználók élményét, amelyet a WPS Office pótolni tud.

● Támogatja az online dokumentumokat (WPS AirPage) és a többszemélyes, együttműködésen alapuló szerkesztést.

● A WPS Office a Linux-, Android- és iOS-rendszereket is támogatja. Ahhoz, hogy a WPS Office-termékeket különböző rendszereken használja, csupán ugyanabba a fiókba kell bejelentkeznie, és minden fájlja szinkronizálható.


Ingyenes letöltés több platformon


Úgy érzi, hogy a WPS Office a legjobb választás az Ön számára, és szeretné letölteni? Kérjük, látogasson el a hivatalos weboldalra: https://www.wps.com, és töltse le most.

A WPS Office letöltése

1. lépés: Látogasson el a WPS Office weboldalára: wps.com.

2. lépés: Kattintson az "Ingyenes letöltés" gombra.


Válassza ki a(z)


3. lépés: Válassza ki a helyet, ahová a WPS Office-t menteni szeretné -> Mentés


WPS Office fájl mentése


4. lépés: Kattintson duplán a letöltött WPS Office fájlra, kattintson a "Futtatás" gombra, és kövesse a képernyőn megjelenő utasításokat a telepítéshez.


Szoftver futtatása


5. lépés: A befejezés után élvezheti a WPS Office minden előnyét.

Gyakori kérdések (GYIK):

1. kérdés: Hogyan konvertálhatok pénznemet szöveggé az Excel VBA-ban?

  • A pénznemek szöveggé alakításához az Excelben használhatja a VBA-t (Visual Basic for Applications). Ehhez egy egyéni VBA-makrót kell írnia. Számos példát és kódrészletet találhat online, vagy útmutatásért áttanulmányozhatja az Excel VBA dokumentációját.

2. kérdés: Hogyan alakíthatom a pénznemet szöveges szavakká az Excelben?

  • A pénznemek szavakká alakításához az Excelben általában a függvények és az egyéni formázás kombinációját használják. Számos oktatóanyagot és útmutatót találhat online, amelyek elmagyarázzák a folyamat lépéseit.

3. kérdés: Hogyan formázhatom a számokat az Excelben indiai rúpiához?

  • A számok indiai rúpiára történő formázásához az Excelben használhatja a beépített Pénznem formázási lehetőségeket. Jelölje ki a formázni kívánt cellát vagy tartományt, lépjen a Cellaformázás párbeszédpanel "Szám" fülére, és válassza a "Pénznem" kategóriát. Innen választhatja ki az "₹ angol (India)" pénznemszimbólumot.

4. kérdés: Hogyan konvertálhatok számokat szöveggé az Excelben automatikusan?

  • Többféleképpen is automatikusan szöveggé alakíthatja a számokat az Excelben. Használhat Excel-függvényeket, például a SZÖVEG, az ÖSSZEFŰZ függvényt vagy egyéni formázást. Fejlettebb automatizáláshoz VBA-makrókat is alkalmazhat.

5. kérdés: Hogyan válthatok amerikai dollárt indiai rúpiára az Excelben?

Az amerikai dollár indiai rúpiára váltásához az Excelben használhatja az Excel-függvények, valamint a valutaárfolyamokat biztosító webszolgáltatások vagy külső adatforrások kombinációját. Az Excel "Pénznem" formátuma szintén használható az összegek indiai rúpiában történő megjelenítésére, miután lekérte az árfolyamokat.

5. kérdés: Szeretné az Excel Online-t használni a könnyebb munkavégzés érdekében?

  • Ha szívesebben dolgozik a felhőben, az Excel Online ugyanazokat a hatékony funkciókat kínálja, hogy bárhonnan kezelhesse és megtisztíthassa adatait. Az Excel Online-nal ugyanazokkal a függvényekkel távolíthat el karaktereket az adatok bal vagy jobb oldaláról, így nagyszerű választás azok számára, akiknek rugalmasságra van szükségük, vagy nem férnek hozzá az Excel asztali verziójához.

Összegzés:

Ismerje meg, hogyan alakíthatja át egyszerűen a számösszegeket szavakká indiai rúpiában az Excelben, akár VBA-kód, akár egy általános módszer segítségével. Először engedélyezze a Fejlesztőeszközök lapot az Excelben, adja hozzá a mellékelt VBA-kódot, és használja a =RupeeFormat(megjelenítendő cella) képletet.

Másik megoldásként kattintson a jobb gombbal a munkalap nevére a VBA eléréséhez, szúrjon be egy modult, illessze be a kódot, és alkalmazza ugyanazt a képletet. Ezek a felhasználóbarát módszerek a WPS Office-szal, a Microsoft Office ingyenes alternatívájával is kompatibilisek, így a precíz és professzionális dokumentumformázás gyerekjátékká válik.

100%-osan biztonságos


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.