En aquest article us mostraré dues maneres ràpides i gratuïtes de convertir números de moneda en paraules en anglès a Excel 2019, 2016, 2013 i altres versions.

Microsoft Excel és un excel·lent programa per calcular això i allò. Inicialment es va desenvolupar per processar grans matrius de dades. Tanmateix, també permet crear registres comptables com factures, avaluació o balanços de manera ràpida i eficaç.

En documents de pagament més o menys sòlids és necessari duplicar els valors numèrics amb la seva forma verbal. És molt més difícil falsificar números escrits que els escrits a mà. Alguns estafadors poden intentar fer 8000 de 3000, mentre que és gairebé impossible substituir secretament "tres" per "vuit". "cent vint-i-tres, quaranta-cinc"), però escriviu dòlars i cèntims (p. ex., 29,95 dòlars com a "vint-i-nou dòlars i noranta-nou cèntims"), lliures i cèntims per GBP, euros i cèntims d'euro per EUR, etc.

Fins i tot les darreres versions d'Excel no tenen una eina integrada per escriure números, per no parlar de les versions anteriors. Però és llavors quan Excel és realment bo. Sempre podeu millorar la seva funcionalitat utilitzant fórmules en totes les seves

combinacions, macros VBA o complements de tercers.

A continuació trobareu dues maneres de convertir números de xifres a paraules

I, possiblement, potser ho necessiteuconvertir Paraules en Nombres a Excel

Nota. Si busqueu la conversió de nombre a text , que vol dir que voleu que Excel vegi el vostre número com a text, és una cosa una mica diferent. Per a això, podeu utilitzar la funció TEXT o algunes altres maneres descrites a Com canviar números a text a Excel.

Macro VBA SpellNumber per convertir números en paraules

Com ja he esmentat , Microsoft no volia afegir cap eina per a aquesta tasca. Tanmateix, quan van veure quants usuaris ho necessitaven, van crear i publicar la macro especial de VBA al seu lloc web. La macro fa el que suggereix el seu nom SpellNumber. Totes les altres macros que he trobat es basen en el codi de Microsoft.

Podeu trobar la macro esmentada com a "fórmula del número d'ortografia". Tanmateix, no és una fórmula, sinó una funció macro, o per ser més precisos Funció definida per l'usuari d'Excel (UDF).

L'opció spellnumber és capaç d'escriure dòlars i cèntims. Si necessiteu una altra moneda, podeu canviar " dòlar " i " cent " amb el nom de la vostra.

Si no sou un home expert en VBA , a continuació trobareu una còpia del codi. Si encara no voleu o no teniu temps per solucionar-ho, utilitzeu aquesta solució.

1. Obre el llibre de treball on has d'escriure els números.
2. Premeu Alt. +F11 per obrir la finestra de l'editor de Visual Basic.
3. Si teniu diversos llibres oberts, comproveu que el llibre de treball necessari estigui actiu mitjançantla llista de projectes a l'extrem superior esquerre de l'editor (un dels elements del llibre de treball està ressaltat amb blau).
4. Al menú de l'editor aneu a Insereix -> Mòdul .
5. Hauria de veure una finestra anomenada YourBook - Module1. Seleccioneu tot el codi del marc següent i enganxeu-lo a aquesta finestra.

   Opció Explícita 'Funció principal Funció SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Milion " Place(4) = " Mil milions " Place(5) = " Bilió " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) Si DecimalPlace > 0 Aleshores centaus = 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 & Lloc(Recompte) & Dòlars If Len(MyNumber) > 3 Aleshores MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" Finalitza si Recompte = Compte + 1 bucle Seleccioneu Cas Dòlars Cas "" Dòlars = "Sense dòlars" Cas "Un" Dòlars = "Un dòlar" Cas Else Dollars = Dollars & "Dòlars" Final Selecció Seleccioneu caixa Cèntims Caixa "" Cèntims = " i sense cèntims" Cas "One" Cents = "i One Cents" Caixa Else Cents = " i " & Cèntims & " Cèntims " End Select SpellNumber = dòlars & Funció Cents End Funció GetHundreds(ByVal MyNumber) Atenuació del resultat com a cadena Si Val(MyNumber) = 0 Aleshores Surt Function MyNumber = Right( "000" & MyNumber, 3) ' Converteix el lloc de les centenes. Si Mitjà(El meuNúmero, 1, 1) "0" Aleshores Resultat = GetDigit(Mid(El meuNúmero, 1, 1)) & " Cent " End If ' Converteix el lloc de les desenes i les unitats. If Mid(MyNumber, 2, 1) "0" Aleshores Resultat = Resultat & GetTens(Mid(MyNumber, 2)) Else Result = Resultat & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = "" ' Invalida el valor de la funció temporal. 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" " Cas 13: Resultat = "Tretze" Cas 14: Resultat = "Catorze" Cas 15: Resultat = "Quinze" Cas 16: Resultat = "Setze" Cas 17: Resultat = "Dset" Cas 18: Resultat = "Dvuit" Cas 19: Resultat = "Dnou" Cas Else Final Seleccioneu Else ' Si el valor entre 20 i 99... Seleccioneu Case Val(Left(TensText, 1)) Cas 2: Resultat = "Vint " Cas 3: Resultat = "Trenta " Cas 4: Resultat = "Quaranta" Cas 5: Resultat = "Cinquanta" Cas 6: Resultat = "Seixanta" Cas 7: Resultat = "Setanta" Cas 8: Resultat = "Vuitanta" Cas 9: Resultat = "Noranta" Cas Un altre Final Seleccioneu el resultat = Resultat & GetDigit _ (Right(TensText, 1)) ' Recuperar el lloc. Finalitzar si GetTens = Resultat Finalitzar la funció Funció GetDigit(Dígit) Seleccioneu majúscules i minúsculesVal(Dígit) Cas 1: GetDigit = "Un" Cas 2: GetDigit = "Dos" Cas 3: GetDigit = "Tres" Cas 4: GetDigit = "Quatre" Cas 5: GetDigit = "Cinc" Cas 6: GetDigit = " Sis" Cas 7: GetDigit = "Set" Cas 8: GetDigit = "Vuit" Cas 9: GetDigit = "Nou" Cas Un altre: GetDigit = "" Finalitzar la selecció Finalitzar la funció

   Vegeu també: Excel: compareu dues columnes per a les coincidències i les diferències
6. Premeu Ctrl+S per desar el llibre de treball actualitzat.

   Haureu de tornar a desar el vostre llibre de treball. Quan intenteu desar el llibre de treball amb una macro, apareixerà el missatge " Les funcions següents no es poden desar al llibre de treball sense macro "

   

   Feu clic a No. Quan vegeu un diàleg nou, trieu l'opció Desa com a. Al camp " Desa com a tipus ", trieu l'opció " Llibre de treball amb macros d'Excel ".

   

Utilitza la macro SpellNumber a els vostres fulls de treball

Ara podeu utilitzar la funció SpellNumber als vostres documents d'Excel. Introduïu =SpellNumber(A2) a la cel·la on necessiteu escriure el número amb paraules. Aquí A2 és l'adreça de la cel·la amb el número o l'import.

Aquí podeu veure el resultat:

Voila!

Copieu ràpidament la funció SpellNumber a altres cel·les.

Si cal convertir tota la taula, no només 1 cel·la, col·loqueu el cursor del ratolí a la cantonada inferior dreta de la cel·la amb la fórmula fins que es converteixi en una petita creu negra:

Feu clic amb el botó esquerre i arrossegueu-la per columna per omplir la fórmula. Deixeu anar el botó per veure els resultats:

Nota. Si us plautingueu en compte que si feu servir SpellNumber amb un enllaç a una altra cel·la, la suma escrita s'actualitzarà cada vegada que es canviï el número de la cel·la d'origen.

També podeu introduir el número directament a la funció, per exemple, =SpellNumber(29.95) (29,95 - sense cometes i el signe del dòlar).

Inconvenients d'utilitzar macro per escriure números a Excel

En primer lloc, heu de conèixer VBA per modificar el codi segons el vostre necessitats. Cal enganxar el codi per a cada llibre de treball, on penseu canviar-lo. En cas contrari, haureu de crear un fitxer de plantilla amb macros i configurar Excel per carregar aquest fitxer a cada inici.

El principal desavantatge d'utilitzar una macro és que si envieu el llibre de treball a una altra persona, aquesta persona no ho farà. veure el text tret que la macro estigui integrada al llibre de treball. I fins i tot si està integrat, rebran una alerta que hi ha macros al llibre de treball.

Escriu números en paraules mitjançant un complement especial

Per als usuaris d'Excel que necessiten escriure sumes ràpidament però no tenen temps per aprendre VBA o trobar solucions, hem creat una eina especial que pot realitzar ràpidament la conversió de quantitat a paraules per a algunes monedes populars. Si us plau, compliu amb el complement Spell Number inclòs amb la darrera versió de la nostra Ultimate Suite per a Excel.

A més d'estar llesta per al seu ús, l'eina és molt flexible a l'hora de convertir quantitats a text:

• Podeu seleccionar una de les opcionsmonedes següents: USD, EUR, GBP, BIT, AUD.
• Escriu la fracció en cèntims, cèntims o bitcents.
• Trieu qualsevol majúscula per al resultat: minúscules, MAJÚSCULES , majúscules i minúscules del títol o majúscules de la frase.
• Escriu la part decimal de diferents maneres.
• Inclou o omet zero cèntims.

El complement admet tots els elements moderns. versions que inclouen Excel 365, Excel 2029, Excel 2016, Excel 2013 i Excel 2010. Si us plau, no dubteu a explorar altres funcions a la pàgina d'inici del producte enllaçada més amunt.

I ara, veiem aquesta utilitat d'ortografia de números en acció. :

1. Seleccioneu una cel·la buida per al resultat.
2. A la pestanya Ablebits , al grup Utilitats , feu clic a Escriu el número .
3. A la finestra de diàleg Número de vessament que apareix, configureu les coses següents:
   • Per al quadre Seleccioneu el vostre número , trieu la cel·la que conté la quantitat que voleu escriure com a text.
   • Especifiqueu el actualment , majúscules i la forma en què el decimal la part del nombre s'ha d'escriure.
   • Definiu si voleu incloure zero cèntims o no.
   • Trieu si voleu inserir el resultat com a valor o com a fórmula.
4. A la part inferior de la finestra de diàleg, previsualitza el resultat. Si esteu satisfet amb la manera com està escrit el vostre número, feu clic a Ortografia . En cas contrari, proveu diferents paràmetres.

La captura de pantalla següent mostra la configuració predeterminada.opcions i el nombre escrit en B2. Observeu una fórmula (més precisament, una funció definida per l'usuari) a la barra de fórmules:

I aquesta és una demostració ràpida de com es poden escriure altres monedes:

Consells i notes:

• Com que el complement Número d'ortografia s'ha dissenyat per gestionar casos d'ús reals, com ara factures i altres documents financers, només pot convertir un número a la vegada.
• Per escriure una columna de números , inseriu una fórmula a la primera cel·la i després copieu-la cap avall.
• Si hi ha possibilitats que les vostres dades d'origen poden canviar en el futur, és millor inserir el resultat com a fórmula , de manera que s'actualitzi automàticament a mesura que canvia el número original.
• Quan trieu el resultat com a fórmula , s'insereix una funció definida per l'usuari personalitzada (UDF). Si teniu previst compartir el vostre quadern de treball amb algú que no tingui instal·lat Ultimate Suite, recordeu substituir les fórmules per valors abans de compartir-les.

Conversió inversa: paraules angleses en números

Francament , No puc imaginar per què el necessiteu. Per si de cas... :)

Sembla que l'Excel MVP, Jerry Latham, va crear una funció definida per l'usuari d'Excel (UDF) com a WordsToDigits . Torna a convertir les paraules angleses en nombre.

Podeu baixar el llibre de treball de Jerry's WordsToDigits per veure el codi UDF. Aquí també trobareu els seus exemples de com utilitzar elfunció.

Podeu veure com funciona la funció al full " Entrades de mostra ", on també podreu introduir els vostres propis exemples. Si teniu previst utilitzar WordsToDigits als vostres documents, tingueu en compte que aquesta funció té restriccions. Per exemple, no reconeix les fraccions introduïdes en paraules. Trobareu tots els detalls al full " Informació ".