I fogli di calcolo sono utilizzati da molte persone nel loro lavoro quotidiano, rendendoli un elemento importante del loro ufficio. Mentre la maggior parte delle persone utilizza i fogli di calcolo in modo ragionevolmente basilare, alcuni utenti avanzati trovano difficile o complicato convertire il numero in parole In questa guida abbiamo affrontato questo problema e abbiamo fornito quattro diversi metodi per convertire il numero in parole in Excel. Inoltre, ci sono tre più metodi per conversione di numeri in formati di testo .

Scarica il libro di lavoro

Potete scaricare la cartella di lavoro che abbiamo utilizzato in questo articolo da qui sotto ed esercitarvi da soli.

4 modi per convertire numeri in parole in Excel

Questa sezione dell'articolo spiega come convertire i numeri in parole in Excel. Inoltre, dimostreremo quattro per eseguire l'operazione. Per la conduzione della sessione, utilizzeremo Versione Microsoft 365 .

1. Uso delle funzioni combinate in Excel per convertire i numeri in parole

La formula di Excel che abbiamo utilizzato si basa su quattro funzioni. Il SINISTRA , MID , TESTO , e SCEGLIERE funzioni.

In primo luogo, la sintassi del SINISTRA è la seguente:

In pratica, questa funzione viene utilizzata per estrarre i caratteri dal testo.

Testo: La stringa di testo da cui estrarre i caratteri.

num_caratteri [Opzionale]: Il numero di caratteri da estrarre, partendo da sinistra. Per impostazione predefinita, num_chars=1 .

In secondo luogo, la sintassi del MID è la seguente:

In realtà, questa funzione viene utilizzata per estrarre il testo dall'interno di una stringa.

Testo: Il testo da estrarre.

numero_inizio: La posizione del primo carattere da estrarre.

num_chars: Il numero di caratteri da estrarre.

In terzo luogo, la sintassi del TESTO è la seguente:

Infine, questa funzione converte un numero in un testo in formato numerico.

valore: Il numero da convertire.

formato_testo: Il formato numerico da utilizzare.

Successivamente, la sintassi dell'elemento SCEGLIERE è la seguente:

Questa funzione ottiene un valore da un elenco in base alla posizione.

indice_num: Il valore da scegliere. Un numero compreso tra 1 e 254 .

valore1: Il primo valore tra cui scegliere.

valore2 [opzionale]: Il secondo valore tra cui scegliere.

• In questo caso, convertiremo il numero nel campo Numeri in parole colonna.

• Ora, scrivete la seguente formula nel C5 cellulare.

=CHOOSE(LEFT(TEXT(B5, "000000000.00″))+1,, "Uno", "Due", "Tre", "Quattro", "Cinque", "Sei", "Sette", "Otto", "Nove")

&IF(–LEFT(TEXT(B5,”000000000.00″))=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),2,1)=0,–MID(TEXT(B5,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

&SCEGLIERE(MID(TEXT(B5, "000000000.00″),2,1)+1,, "Venti ", "Trenta ", "Quaranta ", "Cinquanta ", "Sessanta ", "Settanta ", "Ottanta ", "Novanta ")

&IF(-MID(TEXT(B5, "000000000.00″),2,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),

SCELTA(MID(TEXT(B5, "000000000.00″),3,1)+1, "Dieci", "Undici", "Dodici", "Tredici", "Quattordici", "Quindici", "Sedici", "Diciassette", "Diciotto", "Diciannove"))

&IF((–LEFT(TEXT(B5,”000000000.00″))+MID(TEXT(B5,”000000000.00″),2,1)+MID(TEXT(B5,”000000000.00″),3,1))=0,,IF(AND((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1)+MID(TEXT(B5,”000000000.00″),7,1))=0,(–MID(TEXT(B5,”000000000.00″),8,1)+RIGHT(TEXT(B5,”000000000.00″)))>0),” Million and “,” Million “))

&SCELTA(MID(TEXT(B5, "000000000.00″),4,1)+1,, "Uno", "Due", "Tre", "Quattro", "Cinque", "Sei", "Sette", "Otto", "Nove")

&IF(–MID(TEXT(B5,”000000000.00″),4,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),5,1)=0,–MID(TEXT(B5,”000000000.00″),6,1)=0),” Hundred”,” Hundred and”))

&SCEGLIERE(MID(TEXT(B5, "000000000.00″),5,1)+1,," Venti"," Trenta"," Quaranta"," Cinquanta"," Sessanta"," Settanta"," Ottanta"," Novanta")

&IF(-MID(TEXT(B5, "000000000.00″),5,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1,," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine"),CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Ten"," Eleven"," Twelve"," Thirteen"," Fourteen"," Fifteen"," Sixteen"," Seventeen"," Eighteen"," Nineteen"))

&IF((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1))=0,,IF(OR((–MID(TEXT(B5,”000000000.00″),7,1)+MID(TEXT(B5,”000000000.00″),8,1)+MID(TEXT(B5,”000000000.00″),9,1))=0,–MID(TEXT(B5,”000000000.00″),7,1)0),” Thousand “,” Thousand and “))

&SCELTA(MID(TEXT(B5, "000000000.00″),7,1)+1,, "Uno", "Due", "Tre", "Quattro", "Cinque", "Sei", "Sette", "Otto", "Nove")

&IF(–MID(TEXT(B5,”000000000.00″),7,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),8,1)=0,–MID(TEXT(B5,”000000000.00″),9,1)=0),” Hundred “,” Hundred and “))&

SCELTA(MID(TEXT(B5, "000000000.00″),8,1)+1,, "Venti ", "Trenta ", "Quaranta ", "Cinquanta ", "Sessanta ", "Settanta ", "Ottanta ", "Novanta ")

&IF(-MID(TEXT(B5, "000000000.00″),8,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1, "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen"))

L'intera formula può sembrare complicata a prima vista, ma si tratta essenzialmente della ripetizione di una singola porzione. Quindi, se si riesce a comprendere la formula prima della formula, dovreste essere in grado di capire il resto.

• Successivamente, premere ENTRARE .

Il risultato è il seguente.

Ripartizione della formula:

All'inizio, il TESTO viene utilizzata per trasformare il numero in un valore "000000000.00" formato testo.

TEXT(B7,”000000000.00″)

Dopo di che, il SINISTRA viene utilizzata per estrarre il carattere più a sinistra dal numero e ci permette di identificare se il numero restituito è zero o qualsiasi altro valore.

LEFT(TEXT(B7,”000000000.00″))

Successivamente, il SCEGLIERE viene utilizzata per rappresentare il numero estratto con parole appropriate.

SCELTA(SINISTRA(TESTO(B7, "000000000.00″))+1,, "Uno", "Due", "Tre", "Quattro", "Cinque", "Sei", "Sette", "Otto", "Nove")

Ora controlla se il valore è zero o meno. Se è zero non visualizza nulla.

SCELTA(SINISTRA(TESTO(B7, "000000000.00″))+1,, "Uno", "Due", "Tre", "Quattro", "Cinque", "Sei", "Sette", "Otto", "Nove")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,

Verrà visualizzato "Cento" se il prossimo due i numeri sono zero Altrimenti, verrà visualizzato "Cento e".

SCELTA(SINISTRA(TESTO(B7, "000000000.00″))+1,, "Uno", "Due", "Tre", "Quattro", "Cinque", "Sei", "Sette", "Otto", "Nove")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,IF(AND(–MID(TEXT(B7,”000000000.00″),2,1)=0,–MID(TEXT(B7,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

Questa formula non richiede VBA È un metodo eccellente per trasformare i numeri in parole, ma ha un'altra caratteristica due Uno, non è in grado di rappresentare perfettamente i numeri decimali dopo i punti. Due, il limite massimo di numero è 999, 999, 999 ... In realtà Il signor Pete M. ha ideato questa formula.

• A questo punto, è possibile scrivere la formula per le altre righe o semplicemente usare Funzione di riempimento automatico di Excel .

Infine, riceverete tutte le convertire i numeri in parole .

Per saperne di più: Come convertire un numero in testo con 2 cifre decimali in Excel (5 modi)

2. Applicazione della funzione VLOOKUP per convertire i numeri in parole

È possibile applicare il VLOOKUP funzione per convertire i numeri in parole In questo caso è necessario inserire prima tutti i numeri in parole e poi si può usare questa funzione per convertire qualsiasi numero in parole.

Passi:

• Per prima cosa, scrivete manualmente tutti i numeri in parole nella Colonna C .

• Ora, utilizzare la seguente formula nel campo C12 cellulare.

• Quindi, premere ENTRARE .

Ripartizione della formula

In questa formula, il VLOOKUP restituirà un valore da un array dato.

• In primo luogo, B12 è il valore di ricerca che cerca nella tabella data.
• In secondo luogo, B4:C9 è il array di tabelle in cui cerca l'elemento valore target .
• Terzo, 2 è il numero di colonne della tabella da cui deve essere restituito un valore.
• Quarto, Falso denota un esatto partita.

Per saperne di più: Come convertire un numero in testo per VLOOKUP in Excel (2 modi)

Letture simili

• Come convertire un numero in testo in Excel con l'apostrofo
• Convertire un numero in testo con il triangolo verde in Excel
• Come convertire un numero in testo con le virgole in Excel (3 metodi semplici)
• Convertire un numero in testo senza notazione scientifica in Excel
• Come convertire i numeri di peso in parole in Excel (con semplici passaggi)

3. Utilizzo di un VBA per convertire numeri in parole in Excel

La parte più interessante è che potete costruire il vostro funzione propria a convertire i numeri in parole in Excel. Inoltre, è possibile utilizzare il codice VBA per sviluppare un definito I passaggi sono indicati di seguito.

Passi :

• In primo luogo, è necessario scegliere il Sviluppatore quindi selezionare Visual Basic.

• Ora, dal Inserire si deve selezionare Modulo .

• A questo punto, è necessario annotare quanto segue Codice nel Modulo .

 Function number_converting_into_words(ByVal MyNumber) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_string_Num Dim x_pnt As String Dim x_numb As String Dim x_P() As Variant Dim x_DP Dim x_cnt As Integer Dim x_output, x_T As String Dim x_my_len As Integer On Error Resume Next x_P = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ") x_numb =Trim(Str(MyNumber)) x_DP = InStr(x_numb, ".") x_pnt = "" x_string_Num = "" If x_DP> 0 Then x_pnt = " point " x_string = Mid(x_numb, x_DP + 1) x_string_pnt = Left(x_string, Len(x_numb) - x_DP) For whole_num = 1 To Len(x_string_pnt) x_string = Mid(x_string_pnt, whole_num, 1) x_pnt = x_pnt & get_digit(x_string) & " " Next whole_num x_numb = Trim(Left(x_numb, x_DP - 1)) End If x_cnt = 0x_output = "" x_T = "" x_my_len = 0 x_my_len = Int(Len(Str(x_numb)) / 3) If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1 Do While x_numb "" If x_my_len = x_cnt Then x_T = get_hundred_digit(Right(x_numb, 3), False) Else If x_cnt = 0 Then x_T = get_hundred_digit(Right(x_numb, 3), True) Else x_T = get_hundred_digit(Right(x_numb, 3), False) End If End If If x_T "" Then x_output = x_T& x_P(x_cnt) & x_output End If If Len(x_numb)> 3 Then x_numb = Left(x_numb, Len(x_numb) - 3) Else x_numb = "" End If x_cnt = x_cnt + 1 Loop x_output = x_output & x_pnt number_converting_into_words = x_output End Function Function get_hundred_digit(xHDgt, y_b As Boolean) Dim x_R_str As String Dim x_string_Num As String Dim x_string As String Dim y_I As Integer Dim y_bb As Booleanx_stringa_Num = xHDgt x_R_str = "" On Error Resume Next y_bb = True If Val(x_stringa_Num) = 0 Then Exit Function x_stringa_Num = Right("000" & x_stringa_Num, 3) x_stringa = Mid(x_stringa_Num, 1, 1) If x_stringa "0" Then x_R_str = get_digit(Mid(x_stringa_Num, 1, 1) & "Hundred " Else If y_b Then x_R_str = "and " y_bb = False Else x_R_str = " " y_bb = False End If End If If Mid(x_stringa_Num, 2, 2)"00" Allora x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb) End If get_hundred_digit = x_R_str End Function Function get_ten_digit(x_TDgt, y_b As Boolean) Dim x_string As String Dim y_I As Integer Dim x_array_1() As Variant Dim x_array_2() As Variant Dim x_T As Boolean x_array_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ","Diciotto ", "Diciannove ") x_array_2 = Array("", "", "Venti ", "Trenta ", "Quaranta ", "Cinquanta ", "Sessanta ", "Settanta ", "Ottanta ", "Novanta ") x_stringa = "" x_T = True On Error Resume Next If Val(Left(x_TDgt, 1)) = 1 Then y_I = Val(Right(x_TDgt, 1)) If y_b Then x_string = "and " x_string = x_string & x_array_1(y_I) Else y_I = Val(Left(x_TDgt, 1)) If Val(Left(x_TDgt, 1)> 1 Then If y_b Thenx_stringa = "e " x_stringa = x_stringa & x_array_2(Val(Left(x_TDgt, 1))) x_T = False End If If x_stringa = "" Then If y_b Then x_stringa = "e " End If If If Right(x_TDgt, 1) "0" Then x_stringa = x_stringa & get_digit(Right(x_TDgt, 1)) End If End If get_ten_digit = x_stringa End Function Function get_digit(xDgt) Dim x_stringa As String Dim x_array_1() As Variant x_array_1 = Array("Zero ","Uno ", "Due ", "Tre ", "Quattro ", "Cinque ", "Sei ", "Sette ", "Otto ", "Nove ") x_stringa = "" On Error Resume Next x_stringa = x_array_1(Val(xDgt)) get_digit = x_stringa Fine Funzione 

• Ora è necessario salvare il file codice .
• Quindi, è necessario andare nella sezione Foglio di lavoro Excel .

A questo punto, è possibile utilizzare il proprio definito A tal fine, è necessario seguire i passaggi indicati.

Passi:

• A questo punto, selezionare la cella che si desidera visualizzare come risultato della conversione (nel nostro caso, la cella C5 ).
• Quindi, inserire il comando Segno di uguale (=) Nella cella dovrebbe essere possibile digitare le formule.
• Dopodiché, digitate " =numero_convertito_in_parole " o selezionare l'opzione numero_convertito_in_parole dal menu a discesa.
• Successivamente, selezionare la cella con il valore numerico che si desidera convertire in parole (nel nostro caso, la cella B5 ).
• Infine, premere il tasto ENTRARE pulsante.

Il risultato sarà la conversione del numero di cella selezionato nelle parole corrispondenti. Infine, è possibile copiare questa formula anche nelle altre celle.

Per saperne di più: Come convertire un valore numerico in parole inglesi in Excel

4. Utilizzare VBA per scrivere valute in Excel

Questo metodo è simile all'ultimo. Funziona anche inserendo un modulo con il comando VBA (Visual Basic for Application) e utilizzarlo come funzione. La differenza rispetto all'ultimo metodo è che converte i numeri in parole di valuta appropriate. Inoltre, di seguito viene fornito un esempio.

A questo punto, seguite i passaggi seguenti per applicare questo metodo:

• In primo luogo, seguire metodo-3 per inserire il modulo.
• In secondo luogo, scrivere il seguente codice in Modulo 2 .

 Function Convert_Number_into_word_with_currency(ByVal whole_number) Dim converted_into_dollar, converted_into_cent my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") whole_number = Trim(Str(whole_number)) x_decimal = InStr(whole_number, ".") If x_decimal> 0 Then converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2)) whole_number =Trim(Left(whole_number, x_decimal - 1)) End If xIndex = 1 Do While whole_number "" xHundred = "" xValue = Right(whole_number, 3) If Val(xValue) 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) "0" Then xHundred = get_digit(Mid(xValue, 1, 1)) & " Hundred " End If If Mid(xValue, 2, 1) "0" Then xHundred =xCento & get_ten(Mid(xValue, 2)) Altrimenti xCento = xCento & get_digit(Mid(xValue, 3) Fine Se Fine Se xCento "" Allora convertito_in_dollaro = xCento & my_ary(xIndex) & Dollaro Fine Se Len(numero_intero)> 3 Allora numero_intero = Left(numero_intero, Len(numero_intero) - 3) Altrimenti numero_intero = "" Fine SexIndex = xIndex + 1 Loop Select Caso convertito_dollaro Caso "" convertito_dollaro = " Zero Dollari" Caso "Uno" convertito_dollaro = " Un Dollaro" Caso Else convertito_dollaro = convertito_dollaro & "Dollari" End Select Caso convertito_cent Caso "" convertito_centro = " e Zero Cent" Caso "Uno"convert_into_cent = " e un centesimo" Caso Else convert_into_cent = " e " & convert_into_cent & "centesimi" End Select Convert_Number_into_word_with_currency = convert_into_dollar & convert_into_cent End Function Function get_ten(pTens) Dim my_output As String my_output = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Case 10: my_output= "Dieci" Caso 11: my_output = "Undici" Caso 12: my_output = "Dodici" Caso 13: my_output = "Tredici" Caso 14: my_output = "Quattordici" Caso 15: my_output = "Quindici" Caso 16: my_output = "Sedici" Caso 17: my_output = "Diciassette" Caso 18: my_output = "Diciotto" Caso 19: my_output = "Diciannove" Caso Else End Select ElseSelect Caso Val(Left(pTens, 1)) Caso 2: my_output = "Twenty " Caso 3: my_output = "Thirty " Caso 4: my_output = "Forty " Caso 5: my_output = "Fifty " Caso 6: my_output = "Sixty " Caso 7: my_output = "Seventy " Caso 8: my_output = "Eighty " Caso 9: my_output = "Ninety " Caso Else End Select my_output = my_output & get_digit(Right(pTens, 1)) End If get_ten =my_output End Function Funzione get_digit(pDigit) Select Case Val(pDigit) Case 1: get_digit = "Uno" Case 2: get_digit = "Due" Case 3: get_digit = "Tre" Case 4: get_digit = "Quattro" Case 5: get_digit = "Cinque" Case 6: get_digit = "Sei" Case 7: get_digit = "Sette" Case 8: get_digit = "Otto" Case 9: get_digit = "Nove" Case Else: get_digit = "" End Select EndFunzione 

Di conseguenza, è possibile utilizzare il proprio definito funzione denominata Convertire_numero_in_parola_con_valuta A tal fine, è necessario seguire i passaggi indicati.

Passi:

• Ora è necessario selezionare una cella in cui si desidera conservare il risultato. Noi abbiamo selezionato la cella C5 cellulare.
• Quindi, è necessario utilizzare la formula corrispondente nel file C5 cellulare.

• Successivamente, premere ENTRARE .

• Infine, utilizzare il file Excel Funzione di riempimento automatico per il resto delle cellule C6:C9 .

Infine, otterrete tutto l'importo convertito.

Per saperne di più: Come convertire un numero in testo e mantenere gli zeri finali in Excel (4 modi)

Come convertire un numero in formato testo in Excel

Finora abbiamo parlato di come convertire i numeri in parole in Excel. Questa sezione dell'articolo spiega come cambiare i numeri in formato testo È il metodo più semplice e veloce per convertire i numeri in testo.

Seguite i passaggi indicati per applicare questo metodo:

• Innanzitutto, selezionare la cella o le celle con valori numerici che si desidera convertire in testo (nel nostro caso, la cella C5:C9 )
• In secondo luogo, andare alla pagina Casa e selezionare la scheda Testo dal menu a discesa della categoria di celle sotto la voce Numero sezione.

Di conseguenza, il valore numerico delle celle selezionate viene convertito in testo, come si può capire osservando gli allineamenti. Per impostazione predefinita, in Excel i testi sono allineati a sinistra e i numeri a destra.

Oppure si può premere CTRL+1 per aprire la finestra denominata Formattare le celle e selezionare l'opzione Numero e selezionare l'opzione Testo categoria da lì.

Per saperne di più: Excel VBA per convertire numeri in testo (4 esempi)

Sezione pratica

Per fare pratica, abbiamo aggiunto una parte di pratica su ogni foglio nella parte destra.

Conclusione

Abbiamo cercato di fare di questo articolo una guida definitiva su come convertire i numeri in parole o testi appropriati in MS Excel Inoltre, abbiamo ristretto il campo sette In questo articolo sono state descritte diverse tecniche in modo che possiate scegliere l'opzione ideale più adatta alla vostra situazione specifica. Speriamo che abbiate trovato la soluzione che cercavate. Lasciate un commento se avete suggerimenti o domande. Grazie.