Come convertire il numero in lettere di testo Excel 2019 o Excel 2016

Microsoft Excel è uno degli strumenti più potenti con cui sarà possibile gestire e controllare grandi quantità di dati di vario tipo (numeri, date, testo, ecc.), grazie alle sue centinaia di funzioni, formule e strumenti integrati che ti permettono di avere il controllo totale su ogni dato inserito nei fogli di calcolo attivi. Una delle attività che possono essere ricorrenti o utili in Excel, sia nel 2016 che nel 2019, è la conversione dei numeri in lettere. Ciò è particolarmente utile se ci troviamo in un'area contabile o finanziaria, poiché aiuta a generare i valori direttamente in lettere, cosa comune quando si controllano gli assegni, ad esempio ..

Sebbene Microsoft Excel 2016 e il nuova edizione 2019 sono piene di funzioni, Excel non ha una funzione integrata che è responsabile della visualizzazione dei numeri come parole in un foglio di calcolo, il che può essere un problema o un fallimento per molti utenti. Per ottenere questa conversione, dobbiamo creare un codice funzione SpellNumber in un modulo VBA (Visual Basic for Applications) che automatizzerà questa azione.

AdminGuides spiegherà in dettaglio come farlo in Microsoft Excel 2019 ma lo stesso processo si applica a Excel 2016 ..

Crea la funzione SpellNumber per convertire i numeri in parole in Microsoft Excel 2019, 2016

Per eseguire questo processo dobbiamo accedere a Visual Basic Editor (VBE) finestra a cui si accede utilizzando i seguenti tasti.

+ F11 Alt + F11

Un altro metodo alternativo è quello di utilizzare il menu Programmatore, se non ce l'hai (ricorda che è disabilitato di default), dobbiamo andare nel menu 'File / Opzioni' e poi andare alla sezione 'Personalizza la barra multifunzione':

Lì andiamo a destra e attiveremo il 'Programmatore' ?? box e fare clic su OK, ricorda che con questo menu sarà possibile:

• Scrivi macro

• Usa comandi XML.

• Usa ActiveX controlli.

• Esegui macro registrate in precedenza.

• Crea applicazioni da utilizzare con i programmi di Microsoft Office.
• Utilizza i controlli del modulo in Microsoft Excel.

• Lavora con ShapeSheet in Microsoft Visio.

• Crea nuove forme e gallerie di simboli in Microsoft Visio.

Una volta accediamo alla finestra di Visual Basic Editor, andiamo al 'Inserisci' ?? menu e lì selezioniamo il 'Modulo'? opzione:

Nella nuova finestra visualizzata incolleremo il seguente contenuto:

 Opzione Explicit 'Funzione principale Funzione SpellNumber (ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place (9) As String Place (2) = 'Thousand' Place (3) = 'Millon' Place (4) = 'Billon' Place (5) = 'Trillon' 'Rappresentazione in stringa dell'importo. MyNumber = Trim (Str (MyNumber)) 'Posizione della posizione decimale 0 se nessuna. DecimalPlace = InStr (MyNumber,'. ')' Converti i centesimi e imposta MyNumber sull'importo in dollari. Se DecimalPlace u0026 gt; 0 Allora Cents = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) u0026 amp; '00', 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) End if Count = 1 Do While MyNumber u0026 lt; u0026 gt; '' Temp = GetHundreds (Right (MyNumber, 3)) If Temp u0026 lt; u0026 gt; '' Allora Dollars = Temp u0026 amp; Luogo (conteggio) u0026 amp; Dollars If Len (MyNumber) u0026 gt; 3 Allora MyNumber = Left (MyNumber, Len (MyNumber) - 3) Else MyNumber = '' End if Count = Count + 1 Loop Select Case Dollars Case '' Dollars = 'Non ci sono dollari' Case 'One' Dollars = 'One Dollar 'Case Else Dollars = Dollars u0026 amp; 'Dollars' Fine seleziona Seleziona Case Cents Case '' Cents = 'Senza centesimi' Case 'One' Cents = 'E un penny' Case Else Cents = 'e' u0026 amp; Centesimi e amp; 'Centesimi' Fine seleziona SpellNumber = Dollars u0026 amp; Cents End function 'Converte un numero da 100-999 in testo Funzione GetHundreds (ByVal MyNumber) Dim Result As String If Val (MyNumber) = 0 Then Exit Function MyNumber = Right (' 000 'u0026 amp; MyNumber, 3)' Converte le centinaia posto. Se Mid (MyNumber, 1, 1) u0026 lt; u0026 gt; '0' Quindi Risultato = GetDigit (Mid (MyNumber, 1, 1)) u0026 amp; 'Mil' End if 'Converte le decine e le unità. Se Mid (MyNumber, 2, 1) u0026 lt; u0026 gt;' 0 'Then Result = Result u0026 amp; GetTens (Mid (MyNumber, 2)) Else Result = Result u0026 amp; GetDigit (Mid (MyNumber, 3)) End if GetHundreds = Result End function 'Converte un numero da 10 a 99 in testo. Funzione GetTens (TensText) Dim Result As String Result = '' 'Annulla il valore temporaneo della funzione. If Val (Left (TensText, 1)) = 1 Then' If value between 10-19 ... Select Case Val (TensText) Caso 10: Risultato = 'Dieci' Caso 11: Risultato = 'Una volta' Caso 12: Risultato = 'Dodici' Caso 13: Risultato = 'Tredici' Caso 14: Risultato = 'Quattordici' Caso 15: Risultato = 'Quindici' Caso 16 : Risultato = 'Sedici' Caso 17: Risultato = 'Diciassette' Caso 18: Risultato = 'Diciotto' Caso 19: Risultato = 'Diciannove' Caso Else Fine seleziona Else 'Se il valore è compreso tra 20-99 ... Seleziona Caso Val (sinistra (TensText, 1)) Caso 2: Risultato = 'Venti' Caso 3: Risultato = 'Trenta' Caso 4: Risultato = 'Quaranta' Caso 5: Risultato = 'Cinquanta' Caso 6: Risultato = 'Sessanta' Caso 7: Risultato = 'Settanta' Caso 8: Risultato = 'ottanta' Caso 9: Risultato = 'Novanta' Caso Else Fine seleziona Risultato = Risultato u0026 amp; GetDigit (Right (TensText, 1)) 'Recupera il posto. End if GetTens = Result End function 'Converte un numero da 1 a 9 in testo. Funzione GetDigit (Digit) Seleziona Case Val (Digit) 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 =' 'Fine seleziona Fine funzione 

Dopo aver inserito questo script nell'editor di Excel, procediamo a salvarlo per attività future, per questo andiamo a dal menu 'File / Salva come' e nella finestra selezioniamo l'opzione 'Cartella Excel abilitata per le macro' e assegniamo un nome allo stesso Fare clic su Salva e saremo pronti per utilizzare questa formula creata.

Fatto ciò, possiamo utilizzare due metodi per convertire i numeri in lettere in Excel 2019 o 2016, questi sono:

 = Spel lNumber (Cell) 

 = SpellNumber (18.45)