Convertire i numeri in parole

Importante :  Il presente articolo è stato tradotto automaticamente, vedere la dichiarazione di non responsabilità. Per visualizzare la versione inglese dell'articolo, fare clic qui.

Excel 2013 e Excel 2016 non dispone di una funzione predefinita che visualizza i numeri come le parole inglesi in una cella del foglio di calcolo, ma è possibile aggiungere questa funzionalità incollare il codice della funzione SpellNumber in un foglio modulo. Questa funzione consente di convertire gli importi in dollari e centesimi in parole.

Se si desidera convertire valori numerici in formato testo senza visualizzarle come parole, utilizzare la funzione testo .

In questo articolo

Creare la funzione SpellNumber per convertire i numeri in parole

  1. Usare i tasti di scelta rapida ALT+F11 per aprire Visual Basic Editor.

    Nota : È possibile accedere anche Visual Basic Editor per visualizzare la scheda sviluppo nella barra multifunzione.

  2. Fare clic sulla scheda Inserisci e fare clic su Modulo.

    Scegliere Modulo dal menu Inserisci.
  3. Copiare le righe di codice seguenti.

    Nota : Noto come funzione macro, questo codice automatizza l'attività di conversione dei numeri in testo in tutto il foglio di calcolo.

    Option Explicit

    'Main Function

    Function SpellNumber(ByVal MyNumber)

    Dim Dollars, Cents, Temp

    Dim DecimalPlace, Count

    ReDim Place(9) As String

    Place(2) = " Thousand "

    Place(3) = " Million "

    Place(4) = " Billion "

    Place(5) = " Trillion "

    ' String representation of amount.

    MyNumber = Trim(Str(MyNumber))

    ' Position of decimal place 0 if none.

    DecimalPlace = InStr(MyNumber, ".")

    ' Convertire centesimi e impostare MyNumber su importo in euro.

    If DecimalPlace > 0 Then

    Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))

    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

    End If

    Count = 1

    Do While MyNumber <> ""

    Temp = GetHundreds(Right(MyNumber, 3))

    If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars

    If Len(MyNumber) > 3 Then

    MyNumber = Left(MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = ""

    End If

    Count = Count + 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

    SpellNumber = Dollars & Cents

    End Function

    ' Converts a number from 100-999 into text

    Function GetHundreds(ByVal MyNumber)

    Dim Result As String

    If Val(MyNumber) = 0 Then Exit Function

    MyNumber = Right("000" & MyNumber, 3)

    ' Convert the hundreds place.

    If Mid(MyNumber, 1, 1) <> "0" Then

    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "

    End If

    ' Convert the tens and ones place.

    If Mid(MyNumber, 2, 1) <> "0" Then

    Result = Result & GetTens(Mid(MyNumber, 2))

    Else

    Result = Result & GetDigit(Mid(MyNumber, 3))

    End If

    GetHundreds = Result

    End Function

    ' Converte un numero compreso tra 10 e 99 in testo.

    Function GetTens(TensText)

    Dim Result As String

    Result = "" ' Null out the temporary function value.

    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...

    Select Case Val(TensText)

    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 ' If value between 20-99...

    Select Case Val(Left(TensText, 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(TensText, 1)) ' Retrieve ones place.

    End If

    GetTens = Result

    End Function

    ' Converte un numero da 1 a 9 in testo.

    Function GetDigit(Digit)

    Select 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 = ""

    End Select

    End Function

  4. Incollare le righe di codice nella casella Modulo1 (codice).

    Codice incollato nella casella Modulo1 (codice).
  5. Fare clic su File, quindi fare clic su Chiudi e torna a Microsoft Excel dal menu Excel. La funzione SpellNumber è ora pronta per l'uso.

    Nota : Questa funzione è valida solo per il file di Excel attualmente aperto. Per usare questa funzione in un altra cartella di lavoro di Excel, è necessario ripetere la procedura per copiare e incollare il codice nel file.

Inizio pagina

Usare la funzione SpellNumber in singole celle

  1. Digitare la formula =SpellNumber(valore) nella cella in cui si vuole visualizzare un numero scritto, sostituendo valore con un numero a scelta.

  2. Premere Invio sulla tastiera.

    Ad esempio, se si digita =SpellNumber(22.50), nella cella si leggerà Ventidue euro e cinquanta centesimi.

    Suggerimento : Per convertire i numeri in testo in una cella separata, sostituire il valore numerico con un riferimento di cella nella formula SpellNumber. Ad esempio, digitare =SpellNumber(A1) per visualizzare il valore scritto della cella A1.

Inizio pagina

Salvare la cartella di lavoro con funzione SpellNumber

Excel non può salvare una cartella di lavoro con funzioni macro nel formato d cartella di lavoro senza macro standard. Se si fa clic su File > Salva viene visualizzata la finestra di dialogo Progetto VB. Fare clic su No.

Nella finestra di dialogo Progetto VB fare clic su No.

È possibile salvare il file come un Modello con attivazione macro di Excel per mantenere il file nel formato corrente.

  1. Fare clic su File > Salva con nome.

  2. Fare clic sul menu a discesa Tipo file e selezionare Excel Macro-Enabled Template.

    Scegliere Modello con attivazione macro di Excel.
  3. Fare clic su Salva.

Inizio pagina

Nota : Dichiarazione di non responsabilità per la traduzione automatica: Il presente articolo è stato tradotto tramite un software di traduzione automatica e non da una persona. Microsoft offre le traduzioni automatiche per consentire a coloro che non conoscono la lingua inglese di leggere gli articoli sui prodotti, sui servizi e sulle tecnologie Microsoft. Dal momento che l'articolo è stato tradotto automaticamente, potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli.

Vedere anche

TESTO

Amplia le tue competenze
Esplora i corsi di formazione
Ottieni in anticipo le nuove caratteristiche
Partecipa al programma Office Insider

Queste informazioni sono risultate utili?

Grazie per i tuoi commenti e suggerimenti

Grazie per il tuo feedback! Potrebbe essere utile metterti in contatto con uno dei nostri operatori del supporto di Office.

×