Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com convertir ràpidament / canviar números a paraules en Excel?

Si teniu una columna de valors numèrics en un full de càlcul i ara heu de convèncer-los a les seves paraules equivalents en anglès (com es mostra a la següent pantalla). Aquí parlaré d'un mètode per canviar de forma ràpida i senzilla els números a les paraules d'anglès.

doc-numbers-to-words1

Converteix els números en paraules en anglès amb la funció definida per l'usuari


fletxa blau dreta bombolla Converteix els números en paraules en anglès amb la funció definida per l'usuari


No hi ha funcions o fórmules que us poden ajudar a resoldre aquesta tasca directament a Excel, però podeu crear una funció definida per l'usuari per acabar-la. Feu els passos següents:

1. Mantingueu premut el botó ALT + F11 tecles i obre el Finestra de Microsoft Visual Basic per a aplicacions.

2. Clic Insereix > Mòduls, i enganxeu el següent codi al Finestra de mòduls.

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. Deseu i tanqueu aquest codi i torneu el full de treball, en una cel·la en blanc, introduïu aquesta fórmula = NumberstoWords (A2)( A2 és la cel·la que voleu convertir el número a la paraula en anglès), vegeu la captura de pantalla:

doc-numbers-to-words1

4. A continuació, premeu Enter , i seleccioneu cel·la C2, arrossegueu l'identificador de farciment al rang que voleu que contingui aquesta fórmula. Tots els valors numèrics s'han convertit en les paraules corresponents en anglès.

doc-numbers-to-words1

Nota: Quan necessiteu copiar aquests resultats a altres cel·les, copieu-los i enganxeu-los com a valors.


Article relacionat:

Com esbrinar o convertir números a paraules en anglès d'Excel?



Eines de productivitat recomanades

Pestanya d'Office

estrella d&#39;or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d&#39;or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d&#39;or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a 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.
    Abu Arwa · 19 days ago
    Thank you so very much it solve my problem
  • To post as a guest, your comment is unpublished.
    Adnan · 1 months ago
    how can i get 0 = - or zero
  • To post as a guest, your comment is unpublished.
    Shreepad S M Gandhi · 2 months 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 · 3 months ago
    Thank you extendOfficea
  • To post as a guest, your comment is unpublished.
    Rayees Ahmed · 3 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".