Convertire i numeri in parole in Excel – Una guida completa

Limitazioni di questo metodo:

• Funziona esclusivamente in Excel per Microsoft 365, grazie alla funzione TRANSLATE().
• L’output dipende in larga misura dalla corretta formattazione della funzione BAHTTEXT().
• Questo metodo è ideale per le valute dotate sia di un'unità principale che di un'unità secondaria, come il baht thailandese (ad esempio, dollari e centesimi). Non è invece consigliato per valute che non seguono una struttura analoga.

Metodo 2: Usa una funzione definita dall’utente in VBA

In questa sezione scoprirai come utilizzare una funzione definita dall’utente (UDF) basata su VBA per convertire valori numerici in parole, con formato valuta inglese preimpostato sui dollari statunitensi (USD).

Passaggio 1: Inserisci il codice VBA

1. Apri il foglio di lavoro in cui vuoi utilizzare questa funzionalità.
2. Premi «Alt» + «F11» per aprire la finestra di Microsoft Visual Basic for Applications.
3. Nell’editor, fai clic su «Inserisci» > «Modulo» e incolla il codice VBA seguente.

   Function SpellNumberToEnglish(ByVal pNumber)
   'Update by Extendoffice
   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 Function

   

4. Premi «Alt» + «Q» per tornare al foglio di lavoro.

Passaggio 2: Applica la funzione

1. In una cella, inserisci la formula seguente e premi «Invio».
   =SpellNumberToEnglish(A2)
2. Trascina quindi il quadratino di riempimento per estendere la formula alle altre righe, secondo le tue esigenze. I tuoi numeri verranno ora convertiti in lettere, ad esempio:

   

Adatta ad altre valute:

La funzione restituisce valori in «Dollaro/i» e «Cent(esim)o/i», codificati esclusivamente per l’USD. Per convertire numeri in altre valute, ad esempio la «Sterlina britannica», devi modificare manualmente le unità principali e secondarie nelle righe di codice seguenti.

Salva la cartella di lavoro come file con macro

Per impostazione predefinita, le funzioni VBA non vengono conservate a meno che la cartella di lavoro non venga salvata come cartella con macro:

1. Premi «Ctrl» + «S» per salvare.
2. E seleziona il pulsante «Torna indietro» nel messaggio popup relativo alle macro.
   Nota: se il popup mostra solo «Sì», «No» e «Guida», fai clic su «No».

   

3. Nella finestra «Salva con nome».
   1. Scegli una posizione in cui salvare il file.
   2. Seleziona «Cartella di lavoro con macro di Excel (*.xlsm)» dall’elenco a discesa «Specifica formato di salvataggio».
   3. Fai clic su «Salva».

      

Limitazioni della funzione VBA SpellNumberToEnglish

• Questa funzione restituisce risultati esclusivamente in inglese.
• Non supporta altre lingue (ad esempio francese o tedesco) né gestisce strutture valutarie in cui l’unità monetaria precede il numero (come in «Rupees One Hundred» nell’inglese indiano).

• Se non salvi la cartella di lavoro come cartella con macro (.xlsm), la funzione andrà persa una volta chiuso Excel.
• Se salvata come file .xlsx standard, tutto il codice VBA verrà rimosso.

• Quando invii il file con macro ad altri utenti, all’apertura verrà visualizzato un avviso di sicurezza: «Le macro sono state disabilitate».
• Alcuni utenti potrebbero esitare ad abilitare le macro per timore di rischi per la sicurezza, decidendo così di non utilizzare il file.

• Eventuali modifiche ai termini o alla formattazione della valuta richiedono un intervento manuale sul codice VBA.
• Non è adatto agli utenti meno esperti di macro o scripting.

Metodo 3: Usa Kutools per Excel (nessuna formula o VBA necessari)

Se installi «Kutools per Excel», puoi sfruttare la sua funzione «Converti in parole» per trasformare numeri in inglese — sia in forma di valuta che in parole semplici — e in decine di altre lingue e valute, tra cui EUR, GBP, JPY e molte altre.

Se cerchi una soluzione facile da usare, senza codice e versatile per convertire Converti in parole in Excel, Kutools per Excel offre una funzione dedicata «Converti in parole» che supporta:

• Inglese (USD, GBP, EUR, ecc.)
• Decine di altre lingue e valute (ad esempio, Yen giapponese, Rupia indiana, Yuan cinese)
• Formato valuta o parole semplici (ad esempio, «Centootto» invece di «Centootto dollari»)

Passaggi per l’utilizzo:

1. Seleziona le celle contenenti i numeri che desideri convertire.
2. Seleziona «Kutools» > «Contenuto» > «Converti in parole».
3. Nella finestra di dialogo «Numeri in parole di valuta», devi:
   1. Scegli la lingua e lo stile di valuta preferiti (ad esempio, Inglese – Stati Uniti per USD)
   2. Fai clic su «OK».

      

Opzionale: seleziona «Non convertire in valuta» se preferisci termini inglesi semplici (senza «dollari» o «centesimi»).

I numeri selezionati verranno ora convertiti automaticamente nelle corrispondenti parole di valuta, in base alle tue impostazioni.

Operazione inversa: converti parole di valuta in numeri

Se hai un elenco di importi in valuta scritti in parole inglesi, ad esempio:

e desideri convertirli in numeri effettivi in Excel (ad esempio, 123,45), puoi utilizzare una funzione personalizzata definita dall’utente in VBA (UDF) come segue.

Passaggio 1: Apri l’editor VBA e inserisci il codice VBA

1. Apri la tua cartella di lavoro Excel.
2. Premi «Alt» + «F11» per aprire l’editor di Microsoft Visual Basic for Applications (VBA).
3. Nell’editor VBA, fai clic su «Inserisci» > «Modulo».
4. Copia e incolla il seguente codice VBA nella finestra vuota del modulo:

   Function WordsToNumber(ByVal Txt As String) As Double
   'Updated by Extendoffice
       Dim x As Object: Set x = CreateObject("Scripting.Dictionary")
       Dim units, tens, specials
       Dim part As String, parts() As String
       Dim total As Double, partial As Double, multiplier As Double
       Dim i As Long, word As String
       
       Txt = LCase(Trim(Txt))
       Txt = Replace(Txt, ",", "")
       Txt = Replace(Txt, "-", " ")
       Txt = Replace(Txt, " and ", " ")
       Txt = Replace(Txt, "  ", " ")
       
       ' Setup basic number words
       x.Add "zero", 0: x.Add "one", 1: x.Add "two", 2: x.Add "three", 3
       x.Add "four", 4: x.Add "five", 5: x.Add "six", 6: x.Add "seven", 7
       x.Add "eight", 8: x.Add "nine", 9: x.Add "ten", 10: x.Add "eleven", 11
       x.Add "twelve", 12: x.Add "thirteen", 13: x.Add "fourteen", 14
       x.Add "fifteen", 15: x.Add "sixteen", 16: x.Add "seventeen", 17
       x.Add "eighteen", 18: x.Add "nineteen", 19: x.Add "twenty", 20
       x.Add "thirty", 30: x.Add "forty", 40: x.Add "fifty", 50
       x.Add "sixty", 60: x.Add "seventy", 70: x.Add "eighty", 80
       x.Add "ninety", 90: x.Add "hundred", 100: x.Add "thousand", 1000
       x.Add "million", 1000000: x.Add "billion", 1000000000
       
       Dim dollarPart As String, centPart As String
       Dim dollarValue As Double, centValue As Double
       
       ' Split into dollars and cents
       If InStr(Txt, "dollar") > 0 Then
           dollarPart = Trim(Split(Txt, "dollar")(0))
       End If
       If InStr(Txt, "cent") > 0 Then
           centPart = Trim(Split(Txt, "cent")(0))
           If InStr(centPart, "dollar") > 0 Then
               centPart = Trim(Split(centPart, "dollar")(1))
           End If
       End If
       
       dollarValue = ParseWordsToNumber(dollarPart, x)
       centValue = ParseWordsToNumber(centPart, x)
       
       WordsToNumber = dollarValue + centValue / 100
   End Function
   
   Private Function ParseWordsToNumber(ByVal Txt As String, x As Object) As Double
       Dim parts() As String: parts = Split(Txt, " ")
       Dim total As Double, current As Double
       Dim i As Long, val As Double
       
       For i = 0 To UBound(parts)
           If x.exists(parts(i)) Then
               val = x(parts(i))
               Select Case val
                   Case 100
                       If current = 0 Then current = 1
                       current = current * val
                   Case Is >= 1000
                       If current = 0 Then current = 1
                       total = total + current * val
                       current = 0
                   Case Else
                       current = current + val
               End Select
           End If
       Next i
       
       total = total + current
       ParseWordsToNumber = total
   End Function

Passaggio 2: Applica la funzione nel tuo foglio

1. Premi «Alt» + «Q» per tornare subito a Excel.
2. Inserisci questa formula in qualsiasi cella vuota e premi «Invio». Trascina il «Quadratino di riempimento» verso il basso per ottenere tutti gli altri risultati.
   =WordsToNumber(A2)

   

Conclusione

Convertire Converti in parole—o parole nuovamente in numeri—non è una funzionalità nativa di Excel, ma questa guida ha dimostrato che esistono diverse soluzioni pratiche a seconda delle proprie esigenze:

• Gli utenti Microsoft 365 possono sfruttare funzioni integrate avanzate come TRANSLATE per convertire importi in valuta in parole inglesi direttamente tramite formule, in particolare per le valute strutturate in «unità principale + unità secondaria».
• Le funzioni definite dall’utente in VBA offrono una maggiore flessibilità sia per la conversione di “Converti in parole” sia per il processo inverso (parole di valuta → valori numerici). Tuttavia, comportano rischi legati alla sicurezza delle macro e sono più adatte a utenti esperti di programmazione.
• Kutools per Excel offre l’opzione più semplice, multilingue e ricca di funzionalità: non richiede formule né codice e supporta decine di valute e lingue.
• Se devi riconvertire le parole in numeri, la soluzione VBA colma efficacemente questa lacuna, anche se potrebbe richiedere operazioni di pulizia—ad esempio, la rimozione delle virgole—per garantire risultati precisi.

Che tu stia preparando documenti finanziari, automatizzando la stampa degli assegni o semplicemente migliorando la presentazione dei dati, scegliere il metodo giusto ti permette di ottenere risultati professionali e precisi.

Migliori Strumenti per la Produttività in Office

🤖	KUTOOLS AI Assistente: Rivoluziona Analisi dei dati in base a:Esecuzione Intelligente   |  Genera Codice|  Crea formule personalizzate  |  Analizza Dati e Genera Grafici|  Richiama Funzioni avanzate…
	Funzionalità Popolari:Trova, Evidenzia o Contrassegna Duplicati   |  Elimina righe vuote   |  Combinare Colonne o Celle senza Perdere Dati   |   Arrotondamento senza usare la formula...
	Super RICERCA.VERT:VLookup con Criteri Multipli  |  VLookup con Valori Multipli  |   VLookup tra Fogli Multipli   |   Corrispondenza approssimativa....
	Elenco a discesa avanzato:Crea Rapidamente un Elenco a Discesa   |  Elenco a Discesa Dipendente   |  Elenco a Discesa con Selezione Multipla....
	Gestione Colonne:Aggiungi un Numero Specifico di Colonne|Sposta Colonne|Attiva/Disattiva lo Stato di Visibilità delle Colonne Nascoste|Confronta Intervalli e Colonne...
	Funzionalità in Evidenza:Attenzione della griglia   |  Visualizzazione Design   |Barra delle formule avanzata   | Gestione Cartelle di Lavoro e Fogli   |  Biblioteca di risorse(Testo Automatico)|  Selettore di Date   |  Unisci fogli di lavoro  |  Crittografa/Decrittografa celle   | Invia Email da Lista   |  Super Filtri   |   Filtro speciale(Filtra celle con testo in grassetto/corsivo/barrato...) ...
	Principali Set di Strumenti 15:12 Strumentiper il Testo(Aggiungi testo,Elimina Caratteri Specifici, ...)|   50+Tipidi Grafico(Diagramma di Gantt, ...)|   40+ Formule Pratiche(Calcola l'età in base alla data di nascita, ...)|   19 Strumentidi Inserimento(Inserisci Codice QR,Inserisci Immagine dal Percorso, ...)|   12 Strumentidi Conversione(Converti in parole,Conversione del tasso di cambio, ...)|   7 StrumentiUnisci e Dividi(Unione avanzata righe,Dividi celle, ...)|... e molto altro

Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!

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

Maggiori dettagli su Kutools per Excel...Scarica Gratuitamente...

---

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!

Maggiori dettagli su Office Tab...Scarica Gratuitamente...

---

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

Maggiori dettagli su Kutools for Office...Scarica Gratuitamente...