Come convertire rapidamente una valuta in parole in Excel?
Quando lavori con dati finanziari in Excel, potrebbe capitarti di dover convertire numeri in valuta espressi in cifre in parole, ad esempio per compilare l’importo di un assegno. Purtroppo, Excel non include una funzione integrata per questa operazione, ma esistono due metodi efficaci per ottenere il risultato desiderato. Questo articolo ti guiderà passo passo nell’utilizzo di entrambi gli approcci, aiutandoti a scegliere quello più adatto alle tue esigenze.
Converti in lettere la valuta Converti in parole con codice VBA
Converti in lettere la valuta Converti in parole con Kutools per Excel 
Converti in lettere la valuta Converti in parole con codice VBA
In Excel non è possibile convertire rapidamente i numeri in parole in inglese se non ricorrendo a VBA.
1. Premi i tasti «Alt + F11» per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fai clic su «Inserisci» > «Modulo» e incolla il seguente codice VBA nella nuova finestra del modulo.
VBA: Converti numeri in valuta in parole inglesi
Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
xHundred = ""
xValue = Right(pNumber, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & GetTens(Mid(xValue, 2))
Else
xHundred = xHundred & GetDigit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
Dollars = xHundred & arr(xIndex) & Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) - 3)
Else
pNumber = ""
End If
xIndex = xIndex + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(pTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function3. Salva quindi questo codice e premi Chiudi questa finestra per tornare al foglio di lavoro. Seleziona una cella vuota e inserisci la formula: =SpellNumberToEnglish(A2)(dove A2 contiene l'importo in valuta), quindi premi Invio. Trascina infine il quadratino di riempimento verso il basso per applicare la formula a tutte le celle desiderate. Vedi screenshot:
Converti in lettere la valuta Converti in parole con la pratica funzione Scrivi i Numeri in Parole
Per chi preferisce evitare VBA, Kutools per Excel offre un metodo semplicissimo – con un solo clic – per convertire i numeri in parole. La funzione «Converti in parole» di Kutools per Excel supporta oltre 40 formati valutari diversi, rendendola la soluzione ideale per reportistica finanziaria e transazioni internazionali. In pochi clic, gli utenti possono trasformare valori numerici in testo valutario perfettamente formattato in molteplici lingue, tra cui USD, EUR, GBP, JPY, CNY e molte altre, eliminando le conversioni manuali e riducendo al minimo gli errori.
1. Seleziona i numeri in formato valuta, quindi fai clic su «Kutools» > «Contenuto» > «Converti in parole». Vedi screenshot:
2. Nella finestra di dialogo «Converti importo da minuscolo a maiuscolo», scegli la lingua da utilizzare; in questo esempio selezionerò l’opzione «English» dall’elenco a discesa «Languages». Vedi screenshot:
3. Fai clic su «OK» o «Applica». I numeri in valuta selezionati saranno così convertiti in parole corrispondenti alla valuta scelta.
Convertire i numeri in valuta scritta a parole in Excel è semplice ed efficiente, sia con VBA che con Kutools per Excel. Grazie a uno di questi metodi, potrai automatizzare la reportistica finanziaria ed eliminare gli errori causati dalla digitazione manuale. Se vuoi scoprire altri trucchi e suggerimenti per Excel, il nostro sito web offre migliaia di tutorial per aiutarti a padroneggiare Excel.
Demo: Converti numeri in valuta in parole con Kutools per Excel
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi