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.

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.

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

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

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

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

Í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.

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.

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

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

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 |
|---|

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.

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.

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

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.

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.

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

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 |
|---|

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.

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.

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.

A kijelölt tartományban lévő számok indiai rúpiát jelölő szavakká alakulnak.
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?

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ó.

Ú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.

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

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.

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.





