Neste artigo mostrarei dúas formas rápidas e gratuítas de converter números de moeda en palabras en inglés en Excel 2019, 2016, 2013 e outras versións.

Microsoft Excel é un excelente programa para calcular isto e aquilo. Inicialmente foi desenvolvido para procesar grandes matrices de datos. Non obstante, tamén permite crear rexistros contables como facturas, avaliacións ou balances de forma rápida e eficaz.

En documentos de pago máis ou menos sólidos é necesario duplicar os valores numéricos coa súa forma de palabra. É moito máis difícil falsificar números escritos que os escritos a man. Algún estafador pode tentar facer 8000 de 3000, mentres que é case imposible substituír secretamente "tres" por "oito". "cento vinte e tres, corenta cinco"), pero escribe dólares e céntimos (por exemplo, 29,95 $ como "vinte e nove dólares e noventa e nove céntimos"), libras e peniques por GBP, euros e céntimos de euro por EUR, etc.

Tampouco as versións máis recentes de Excel non teñen unha ferramenta integrada para a ortografía dos números, sen esquecer as versións anteriores. Pero é entón cando Excel é realmente bo. Sempre podes mellorar a súa funcionalidade usando fórmulas en todas as súas

combinacións, macros VBA ou complementos de terceiros.

A continuación atoparás dúas formas de converter números de cifras a palabras

E, posiblemente, pode ter que faceloconverter palabras en números en Excel

Nota. Se estás a buscar a conversión de número a texto , o que significa que queres que Excel vexa o teu número como texto, é algo diferente. Para iso, pode usar a función TEXTO ou algunhas outras formas descritas en Como cambiar números a texto en Excel.

Macro VBA SpellNumber para converter números en palabras

Como xa mencionei , Microsoft non quería engadir unha ferramenta para esta tarefa. Non obstante, cando viron cantos usuarios o necesitaban, crearon e publicaron a macro especial de VBA no seu sitio web. A macro fai o que suxire o seu nome SpellNumber. Todas as outras macros que atopei están baseadas no código de Microsoft.

Podes atopar a macro mencionada como "fórmula do número de ortografía". Non obstante, non é unha fórmula, senón unha función macro ou, para ser máis precisos, Función definida polo usuario de Excel (UDF).

A opción de número de ortografía pode escribir dólares e centavos. Se precisas unha moeda diferente, podes cambiar " dólar " e " céntimo " co nome da túa.

Se non es un tipo experto en VBA , a continuación atoparás unha copia do código. Se aínda non queres ou non tes tempo para resolver isto, utiliza esta solución.

1. Abre o caderno de traballo onde precisas escribir os números.
2. Preme Alt +F11 para abrir a xanela do editor de Visual Basic.
3. Se ten varios libros abertos, comprobe que o libro de traballo necesario está activo usandoa lista de proxectos na esquina superior esquerda do editor (un dos elementos do libro de traballo está resaltado en azul).
4. No menú do editor vai a Inserir -> Módulo .
5. Deberías ver unha xanela chamada YourBook - Module1. Seleccione todo o código no marco de abaixo e pégueo nesta xanela.

   Opción Explícita 'Función principal Función 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) = " Billón " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) Se DecimalPlace > 0 Entón 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 & Lugar(Contador) & Dólares If Len(MyNumber) > 3 Entón MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" Finalizar se Count = Count + 1 Loop Seleccionar caso Dólares Caso "" Dólares = "Sen dólares" Caso "Un" Dólares = "Un dólar" Caso Else Dollars = Dollars & "Dólares" Fin Seleccione Seleccionar caso Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Caso Else Cents = " and " & Centavos & " Centavos " End Select SpellNumber = Dólares & Función Cents End Función GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Sair Function MyNumber = Right( "000" & MyNumber, 3) ' Converte o lugar das centenas. Se Mid(MyNumber, 1, 1) "0" Entón Resultado = GetDigit(Mid(MyNumber, 1, 1)) & " Cen " Termina se ' Converte o lugar das decenas e das unidades. Se Mid(MyNumber, 2, 1) "0" Entón Resultado = Resultado & GetTens(Mid(MyNumber, 2)) Else Result = Resultado & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Resultado End Function Function GetTens(TensText) Dim Result As String Result = "" ' Anular o valor da función 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 " Caso 13: Resultado = "Trece" Caso 14: Resultado = "Catorce" Caso 15: Resultado = "Quince" Caso 16: Resultado = "Dezaseis" Caso 17: Resultado = "Dezasete" Caso 18: Resultado = "Dezaoito" Caso 19: Resultado = "Dezanove" Caso Outro Final Seleccione Outro ' Se o valor está entre 20 e 99... Seleccione Case Val(Left(TensText, 1)) Caso 2: Resultado = "Vinte " Caso 3: Resultado = "Trinta " Caso 4: Resultado = "Corenta " Caso 5: Resultado = " Cincuenta " Caso 6: Resultado = " Sesenta " Caso 7: Resultado = " Setenta " Caso 8: Resultado = " Oitenta " Caso 9: Resultado = " Noventa " Caso Outro Final Seleccionar resultado = Resultado & GetDigit _ (Right(TensText, 1)) ' Recuperar o lugar. End If GetTens = Resultado Finalizar Función Función GetDigit(Díxito) Seleccione maiúsculas e minúsculasVal(Díxito) Caso 1: GetDigit = "Un" Caso 2: GetDigit = "Dous" Caso 3: GetDigit = "Tres" Caso 4: GetDigit = "Catro" Caso 5: GetDigit = "Cinco" Caso 6: GetDigit = " Seis" Caso 7: GetDigit = "Sete" Caso 8: GetDigit = "Oito" Caso 9: GetDigit = "Nove" Caso Outros: GetDigit = "" Finalizar Selección Finalizar Función

6. Preme Ctrl+S para gardar o libro de traballo actualizado.

   Terá que volver gardar o seu libro de traballo. Cando intentes gardar o libro de traballo cunha macro, aparecerá a mensaxe " As seguintes funcións non se poden gardar nun libro sen macros "

   

   Fai clic en Non. Cando vexas un novo diálogo, escolleu a opción Gardar como. No campo " Gardar como tipo " escolla a opción " Libro de traballo habilitado para macros de Excel ".

   

Utilice a macro SpellNumber en as túas follas de traballo

Agora podes usar a función SpellNumber nos teus documentos de Excel. Introduce =SpellNumber(A2) na cela onde precisas escribir o número en palabras. Aquí A2 é o enderezo da cela co número ou cantidade.

Aquí podes ver o resultado:

Voila!

Copia rapidamente a función SpellNumber noutras celas.

Se cómpre converter a táboa enteira, non só 1 cela, coloque o cursor do rato na esquina inferior dereita da cela coa fórmula ata que se converta nunha pequena cruz negra:

Prema co botón esquerdo e arrástreo polo columna para cubrir a fórmula. Solta o botón para ver os resultados:

Nota. Por favorten en conta que se usa SpellNumber cunha ligazón a outra cela, a suma escrita actualizarase cada vez que se cambie o número da cela de orixe.

Tamén pode introducir o número directamente na función, para exemplo, =SpellNumber(29.95) (29,95 - sen comiñas e o signo do dólar).

Inconvenientes de usar macro para deletrear números en Excel

En primeiro lugar, debes coñecer VBA para modificar o código segundo o teu necesidades. É necesario pegar o código de cada libro de traballo, onde pensa cambialo. En caso contrario, terás que crear un ficheiro de modelo con macros e configurar Excel para cargar este ficheiro en cada inicio.

A principal desvantaxe de usar unha macro é que se envías o libro de traballo a outra persoa, esta persoa non o fará. ver o texto a menos que a macro estea integrada no libro de traballo. E aínda que estea incorporado, recibirán unha alerta de que hai macros no libro de traballo.

Deletrear números en palabras mediante un complemento especial

Para os usuarios de Excel que precisan deletrear sumas rapidamente pero non teñen tempo para aprender VBA ou buscar solucións, creamos unha ferramenta especial que pode realizar rapidamente a conversión de cantidade en palabras para algunhas moedas populares. Coñece o complemento Spell Number incluído na última versión da nosa Ultimate Suite para Excel.

Ademais de estar lista para o seu uso, a ferramenta é realmente flexible á hora de converter cantidades en texto:

• Podes seleccionar unha das opciónsas seguintes moedas: USD, EUR, GBP, BIT, AUD.
• Escribe a fracción en céntimos, centavos ou céntimos de bit.
• Escolle calquera caso de texto para o resultado: minúscula, MAIÚSCULAS , maiúsculas e minúsculas do título ou da frase.
• Eletrear a parte decimal de diferentes xeitos.
• Incluír ou omitir cero centavos.

O complemento admite todos os elementos modernos. versións que inclúen Excel 365, Excel 2029, Excel 2016, Excel 2013 e Excel 2010. Non dubides en explorar outras capacidades na páxina de inicio do produto que aparece na ligazón anterior.

E agora vexamos esta utilidade de ortografía de números en acción. :

1. Seleccione unha cela baleira para o resultado.
2. Na pestana Ablebits , no grupo Utilidades , faga clic en Deletrear o número .
3. Na ventá de diálogo Número derramado que aparece, configure as seguintes cousas:
   • Para a caixa Seleccione o seu número , escolla a cela que contén a cantidade que desexa que se escriba como texto.
   • Especifique a actualmente , maiúsculas e a forma en que o decimal debe escribirse a parte do número.
   • Define se queres incluír cero centavos ou non.
   • Escolla se inserir o resultado como valor ou fórmula.
4. Na parte inferior da xanela de diálogo, previsualiza o resultado. Se estás satisfeito coa forma en que está escrito o teu número, fai clic en Deletrear . En caso contrario, proba diferentes opcións de configuración.

A captura de pantalla a continuación mostra a configuración predeterminadaopcións e o número escrito en B2. Observe unha fórmula (máis precisamente, unha función definida polo usuario) na barra de fórmulas:

E esta é unha demostración rápida de como se poden escribir outras moedas:

Consellos e notas:

• Debido a que o complemento Número de ortografía foi deseñado para xestionar casos de uso da vida real, como facturas e outros documentos financeiros, só pode converter un número a un tempo.
• Para escribir unha columna de números , insira unha fórmula na primeira cela e, a continuación, copie a fórmula cara abaixo.
• Se hai posibilidades de que os teus datos de orixe poden cambiar no futuro, o mellor é inserir o resultado como fórmula , para que se actualice automaticamente a medida que cambie o número orixinal.
• Ao escoller o resultado como fórmula , insírese unha función definida polo usuario personalizada (UDF). Se pensas compartir o teu libro de traballo con alguén que non teña instalado Ultimate Suite, recorda substituír as fórmulas por valores antes de compartir.

Conversión inversa: palabras inglesas en números

Francamente , Non podo imaxinar por que podes necesitalo. Por se acaso... :)

Parece que o MVP de Excel, Jerry Latham, creou unha función definida polo usuario de Excel (UDF) como WordsToDigits . Converte as palabras en inglés de novo en número.

Podes descargar o caderno de traballo de Jerry's WordsToDigits para ver o código UDF. Aquí tamén atoparás os seus exemplos de como usar ofunción.

Podes ver como funciona a función na folla " Entradas de mostra ", onde tamén poderás introducir os teus propios exemplos. Se pensas empregar WordsToDigits nos teus documentos, infórmate de que esta función ten restricións. Por exemplo, non recoñece as fraccións introducidas nas palabras. Atoparás todos os detalles na ficha " Información ".