'%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}
Quando lavori con i numeri in Excel, a volte devi mostrarli sia in numeri sia in lettere per documenti ufficiali o per maggiore chiarezza. Excel però non dispone di una funzione integrata per farlo, soprattutto per le rupie indiane. Potresti quindi ritrovarti a usare formule complicate, strumenti esterni o a farlo manualmente.
In questa guida ti mostreremo un metodo semplice e graduale per convertire i numeri in lettere per le rupie indiane usando Excel.
2 modi semplici per convertire i numeri in parole in rupie indiane in Excel:
Naturalmente, prima di tutto devi procurarti un download di Microsoft Excel adeguato!
Metodo 1: convertire i numeri in parole in rupie indiane con il codice VBA
Prima di convertire i numeri in parole in rupie indiane usando il codice VBA, potrebbe essere necessario aggiungere la scheda Sviluppo nella barra multifunzione per aprire la funzione VBA.
Ecco i passaggi per abilitare la scheda Sviluppo in Excel:
Passaggio 1: apri il foglio di calcolo Excel che contiene i numeri che vuoi convertire.
Passaggio 2: fai clic su File e scegli Opzioni nell'elenco
Passaggio 3: in Opzioni di Excel scegli Personalizza barra multifunzione
Passaggio 4: scegli Tutte le schede nel menu a discesa Scegli comandi da
Passaggio 5: trova Sviluppo nell'elenco e fai clic su Aggiungi
Passaggio 6: fai clic su OK
Ecco i passaggi per convertire i numeri in parole in rupie indiane usando il codice VBA:
Passaggio 1: apri il foglio di calcolo Excel che contiene i numeri che vuoi convertire.
Passaggio 2: fai clic sulla scheda Sviluppo. Se non vedi questa scheda, segui i passaggi precedenti per abilitarla
Passaggio 3: fai clic su Visual Basic oppure usa la scorciatoia da tastiera Alt + F11
Passaggio 4: fai clic su Inserisci e scegli Modulo.
Passaggio 5: incolla il codice VBA fornito nel riferimento.
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 |
|---|
Passaggio 5: salva (Ctrl + S) e chiudi l'editor VBA. Al momento del salvataggio scegli Cartella di lavoro con attivazione macro di Excel.
Passaggio 6: inserisci la formula =RupeeFormat(cella da visualizzare) nella cella in cui vuoi mostrare il testo e premi Invio
Passaggio 7: verrà visualizzato il risultato. Trascina verso il basso per applicare la formula alle altre celle
I numeri nell'intervallo selezionato verranno convertiti in parole in rupie indiane.
Metodo 2: convertire i numeri in parole in rupie indiane in Excel (metodo comune)
Impara il metodo comune per convertire i numeri in parole in rupie indiane in Excel, un passaggio utile quando prepari fatture per la contabilità.
Passaggio 1: apri il foglio di calcolo Excel che contiene i numeri da convertire.
Passaggio 2: fai clic con il pulsante destro del mouse sul nome del foglio e seleziona Visualizza codice per aprire l'applicazione VBA. È utile anche per l'analisi dei dati in Excel.
Passaggio 3: fai clic su Inserisci e scegli Modulo.
Passaggio 4: incolla il codice VBA fornito nel riferimento.
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 |
|---|
Passaggio 5: scegli Cartella di lavoro con attivazione macro di Excel nel campo Tipo file. Chiudi la finestra dell'editor VBA
Passaggio 6: inserisci la formula =RupeeFormat(cella da visualizzare) nella cella selezionata per mostrare il risultato.
Passaggio 7: trascina verso il basso per applicare la formula alle altre celle dopo la comparsa del risultato nella cella selezionata
I numeri nell'intervallo selezionato verranno convertiti in parole in rupie indiane.
Migliore alternativa gratuita a Microsoft Office: WPS Office
Oltre a Microsoft Office, ti propongo un'altra app: WPS Office. Ma cos'è WPS?
WPS Office è una suite per ufficio gratuita e open source compatibile con Microsoft Office. Include un elaboratore di testi, un foglio di calcolo, un software per presentazioni e un lettore PDF, così puoi aprire, modificare e salvare facilmente i file. È inoltre facile da usare, anche per chi non ha esperienza con le suite per ufficio.
Non solo: WPS Office è una potente suite per ufficio che offre un'ampia gamma di funzioni. È una buona alternativa a NeoOffice, soprattutto per studenti e aziende con un budget limitato.
Dai un'occhiata ad alcune delle funzioni di WPS:
● Uso gratuito di Word, Excel e PPT. Potente toolkit PDF
● Ampio archivio di modelli
● Funzioni complete: assistenti per curriculum, moduli intelligenti, registrazione dello schermo, riparazione dei file e altri piccoli strumenti integrati nel prodotto
● Il peso del prodotto è di soli 200 MB e occupa poca memoria del computer.
● La versione per Mac di WPS Office è molto potente. Microsoft Office trascura l'esperienza degli utenti Mac, una lacuna che WPS Office può colmare.
● Supporta documenti online (WPS AirPage), modifica collaborativa tra più persone
● WPS Office supporta anche i sistemi Linux, Android e iOS. Per usare i prodotti WPS Office su sistemi diversi, ti basta accedere allo stesso account e tutti i file possono essere sincronizzati
Pensi che WPS Office sia la scelta migliore per te e vuoi scaricarlo? Visita il sito ufficiale: https://www.wps.com e scaricalo subito.
Come scaricare WPS Office
Passaggio 1: visita il sito web di WPS Office: wps.com.
Passaggio 2: fai clic sul pulsante «Scarica gratis»
Passaggio 3: seleziona la posizione in cui vuoi salvare WPS Office -> Salva
Passaggio 4: fai doppio clic sul file di WPS Office nella cartella Download, fai clic su «Esegui» e segui le istruzioni sullo schermo per installare
Passaggio 5: al termine, puoi sfruttare tutta la potenza di WPS Office
Domande frequenti:
D1: Come posso convertire una valuta in testo in Excel VBA?
Puoi usare VBA (Visual Basic for Applications) per convertire la valuta in testo in Excel. Dovrai scrivere una macro VBA personalizzata per eseguire questa conversione. Puoi trovare esempi e frammenti di codice online oppure consultare la documentazione di Excel VBA per indicazioni.
D2: Come convertire una valuta in parole in Excel?
Per convertire una valuta in parole in Excel, in genere si usa una combinazione di funzioni e formattazione personalizzata. Puoi trovare online numerosi tutorial e guide che spiegano come farlo.
D3: Come si formattano i numeri in Excel per le rupie indiane?
Per formattare i numeri in Excel per le rupie indiane, puoi usare le opzioni di formattazione valuta integrate. Seleziona la cella o l'intervallo da formattare, vai alla scheda «Numero» nella finestra di dialogo Formato celle e scegli la categoria «Valuta». Da lì puoi selezionare «₹ Inglese (India)» come simbolo di valuta.
D4: Come posso convertire automaticamente i numeri in testo in Excel?
Esistono diversi modi per convertire automaticamente i numeri in testo in Excel. Puoi usare funzioni di Excel come TESTO, CONCATENA o la formattazione personalizzata. Puoi anche usare le macro VBA per un'automazione più avanzata.
D5: Come convertire i dollari statunitensi in rupie indiane in Excel?
Per convertire i dollari statunitensi in rupie indiane in Excel, puoi usare una combinazione di funzioni di Excel e servizi web o origini dati esterne che forniscono i tassi di cambio. Puoi anche usare il formato «Valuta» di Excel per visualizzare gli importi in rupie indiane dopo aver ottenuto i tassi di cambio.
D5. Vuoi usare Excel Online per lavorare con maggiore semplicità?
Se preferisci lavorare nel cloud, Excel Online offre le stesse potenti funzionalità per aiutarti a gestire e pulire i tuoi dati da qualsiasi luogo. Con Excel Online puoi usare le stesse funzioni per rimuovere i caratteri dal lato sinistro o destro dei dati, un'ottima opzione per chi ha bisogno di flessibilità o non ha accesso alla versione desktop di Excel.
Riepilogo:
Scopri come convertire facilmente gli importi numerici in parole in rupie indiane in Excel, usando il codice VBA o un metodo comune. Per prima cosa abilita la scheda Sviluppo in Excel, aggiungi il codice VBA fornito e usa la formula =RupeeFormat(cella da visualizzare).
In alternativa, fai clic con il pulsante destro del mouse sul nome del foglio per accedere a VBA, inserisci un modulo, incolla il codice e usa la stessa formula. Questi metodi intuitivi sono compatibili anche con WPS Office, un'alternativa gratuita a Microsoft Office, e rendono la formattazione precisa e professionale dei documenti un gioco da ragazzi.
'%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)
