I cookie ci aiutano i nostri servizi. Utilizzando i nostri servizi, l'utente accetta di utilizzare i cookie.
Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come convertire / cambiare rapidamente i numeri in parole in Excel?

Se si dispone di una colonna di valori numerici in un foglio di lavoro, e ora è necessario confinarli in equivalenti parole inglesi (come mostrato nella figura seguente). Qui parlerò di un metodo per cambiare i numeri in inglese velocemente e facilmente.

doc-numeri-to-words1

Convertire i numeri in parole inglesi con la funzione definita dall'utente


freccia blu bolla destra Convertire i numeri in parole inglesi con la funzione definita dall'utente


Non ci sono caratteristiche o formule che possono aiutarti a risolvere questa attività direttamente in Excel, ma puoi creare una Funzione definita dall'utente per completarla. Si prega di fare con i seguenti passaggi:

1. Tenere premuto il tasto ALT + F11 chiavi, e apre il Finestra di Microsoft Visual Basic per applicazioni.

2. Clic inserire > Moduloe incollare il seguente codice nel Finestra del modulo.

Function NumberstoWords(ByVal pNumber)
'Updateby20140220
Dim Dollars
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
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
NumberstoWords = Dollars
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

3. Salva e chiudi questo codice e torna al foglio di lavoro, in una cella vuota, inserisci questa formula = NumberstoWords (A2)( A2 è la cella in cui vuoi convertire il numero in inglese), vedi screenshot:

doc-numeri-to-words1

4. Quindi premere entrare chiave, selezionare C2 e trascinare il quadratino di riempimento sull'intervallo in cui si desidera contenere questa formula. Tutti i valori numerici sono stati convertiti in corrispondenti parole inglesi.

doc-numeri-to-words1

Note: Quando devi copiare questi risultati in altre celle, copialo e incollali come valori.


Articolo correlato:

Come compitare o convertire i numeri in parole inglesi in Excel?



Strumenti di produttività consigliati

Office Tab

stella d&#39;oro1 Porta pratiche schede ad Excel e ad altri software Office, proprio come Chrome, Firefox e il nuovo Internet Explorer.

Kutools for Excel

stella d&#39;oro1 Stupefacente! Aumenta la tua produttività in 5 minuti. Non servono abilità speciali, risparmiate due ore al giorno!

stella d&#39;oro1 300 Nuove funzionalità per Excel, rendono Excel molto semplice e potente:

  • Unisci cella / righe / colonne senza perdere dati.
  • Combina e consolida più fogli e cartelle di lavoro.
  • Confronta intervalli, copia intervalli multipli, conversione testo in data, unità e conversione valuta.
  • Contare in base a colori, totali parziali cercapersone, ordinamento avanzato e filtro super,
  • Altro Seleziona / Inserisci / Elimina / Testo / Formato / Link / Commento / Cartelle di lavoro / Fogli di lavoro Strumenti ...

Schermata di Kutools per Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Adnan · 23 days ago
    how can i get 0 = - or zero
  • To post as a guest, your comment is unpublished.
    Shreepad S M Gandhi · 28 days ago
    I have an own set of formula combinations to convert numbers from 0 (zero) to 9999999 (Ninety Nine Lakhs Ninety Nine Thousand Nine Hundred Ninety Nine).

    (This number is the upper limit for my method. It will return an error for any number out of this range). Secondly, as it is Excel formula based method, only one cell can be converted at a time.
    Send your request to shreepadg at the rate gmail dot com
  • To post as a guest, your comment is unpublished.
    Apatel · 2 months ago
    Thank you extendOfficea
  • To post as a guest, your comment is unpublished.
    Rayees Ahmed · 2 months ago
    there is a bug when my amount is "618475" it says "Six Hundred Eighteen Thousand Four Hundred Seventy Five" instead of "six lac eighteen thousand four hundred seventy five".
  • To post as a guest, your comment is unpublished.
    Keycee · 4 months ago
    Thanks


    Its working! :)