En este artículo te mostraré dos formas rápidas y gratuitas de convertir números de moneda en palabras en inglés en Excel 2019, 2016, 2013 y otras versiones.

Microsoft Excel es un programa estupendo para calcular esto y aquello. Inicialmente se desarrolló para procesar grandes matrices de datos, pero también permite crear registros contables como facturas, evaluaciones o balances de forma rápida y eficaz.

En los documentos de pago más o menos sólidos es necesario duplicar los valores numéricos con su forma verbal. Es mucho más difícil falsificar los números mecanografiados que los escritos a mano. Algún estafador puede intentar hacer 8000 de 3000, mientras que es casi imposible sustituir en secreto "tres" por "ocho".

Así que lo que necesitas no es sólo convertir números a palabras en Excel (por ejemplo, 123,45 a "ciento veintitrés, cuarenta y cinco"), sino deletrear dólares y céntimos (por ejemplo, 29,95 $ como "veintinueve dólares y noventa y nueve céntimos" ), libras y peniques para GBP, euros y céntimos de euro para EUR, etc.

Incluso las últimas versiones de Excel no tienen una herramienta incorporada para deletrear números, por no hablar de las versiones anteriores. Pero ahí es cuando Excel es realmente bueno. Siempre se puede mejorar su funcionalidad utilizando fórmulas en todos sus

macros VBA o complementos de terceros.

A continuación encontrarás dos formas de convertir números de cifras a palabras

Y, posiblemente, necesite convertir Palabras a Números en Excel

Nota. Si busca el conversión de números a texto Para ello, puede utilizar la función TEXTO o algunas otras formas descritas en Cómo cambiar números a texto en Excel.

SpellNumber Macro VBA para convertir números en palabras

Como ya he mencionado, Microsoft no quería añadir una herramienta para esta tarea. Sin embargo, cuando vieron cuántos usuarios la necesitaban, crearon y publicaron la macro VBA especial en su sitio web. La macro hace lo que su nombre SpellNumber sugiere. Todas las demás macros que he encontrado se basan en el código de Microsoft.

Puede encontrar la macro mencionada como "spellnumber formula". Sin embargo, no es una fórmula, sino una función de macro, o para ser más precisos Función definida por el usuario de Excel (UDF).

La opción spellnumber es capaz de escribir dólares y centavos. Si necesita una moneda diferente, puede cambiar " dólar " y " cent " con el nombre del tuyo.

Si no eres un experto en VBA, a continuación encontrarás una copia del código. Si aún así no quieres o no tienes tiempo para solucionar esto, utiliza esta solución.

1. Abra el libro de trabajo donde necesita deletrear los números.
2. Pulse Alt+F11 para abrir la ventana del editor de Visual Basic.
3. Si tiene varios libros abiertos, compruebe que el libro de trabajo necesario está activo utilizando la lista de proyectos de la esquina superior izquierda del editor (uno de los elementos del libro de trabajo aparece resaltado en azul).
4. En el menú del editor vaya a Inserte -> Módulo .
5. Deberías ver una ventana llamada TuLibro - Módulo1. Selecciona todo el código del cuadro de abajo y pégalo en esta ventana.

   Option Explicit 'Función principal Function DeletrearNúmero( ByVal MiNúmero) Dim Dólares, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Mil " Place(3) = " Millón " Place(4) = " Mil Millones " Place(5) = " Trillón " MiNúmero = Trim(Str(MiNúmero)) DecimalPlace = InStr(MiNúmero, "." ) If DecimalPlace> 0 Then Cents = GetTens(Left(Mid(MiNúmero, 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 = "OneDollar" 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 Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber,3) ' Convierte la posición de las centenas. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Convierte la posición de las decenas y las unidades. 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 Function GetTens(TensText) Dim Result As String Result = ""' Anular el valor de la función temporal. If Val(Left(TensText, 1)) = 1 Then ' Si valor entre 10-19... Select Case Val(TensText) Case 10: Resultado = "Diez" Case 11: Resultado = "Once" Case 12: Resultado = "Doce" Case 13: Resultado = "Trece" Case 14: Resultado = "Catorce" Case 15: Resultado = "Quince" Case 16: Resultado = "Dieciséis" Case 17: Resultado = "Diecisiete" Case 18: Resultado = "Dieciocho" Case 19: Resultado ="Diecinueve" Caso Else End Select Else ' Si valor entre 20-99... Select Caso Val(Left(TensText, 1)) Caso 2: Resultado = "Veinte " Caso 3: Resultado = "Treinta " Caso 4: Resultado = "Cuarenta " Caso 5: Resultado = "Cincuenta " Caso 6: Resultado = "Sesenta " Caso 7: Resultado = "Setenta " Caso 8: Resultado = "Ochenta " Caso 9: Resultado = "Noventa " Caso Else End Select Resultado = Resultado & GetDigit _ (Right(TensText, 1)) ' RecuperarEnd If GetTens = Result End Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "Uno" Case 2: GetDigit = "Dos" Case 3: GetDigit = "Tres" Case 4: GetDigit = "Cuatro" Case 5: GetDigit = "Cinco" Case 6: GetDigit = "Seis" Case 7: GetDigit = "Siete" Case 8: GetDigit = "Ocho" Case 9: GetDigit = "Nueve" Case Else : GetDigit = "" End Select End Function

6. Pulsa Ctrl+S para guardar el libro actualizado.

   Tendrás que volver a guardar el libro de trabajo. Cuando intentes guardar el libro de trabajo con una macro aparecerá el mensaje " Las siguientes funciones no pueden guardarse en un libro de trabajo sin macros "

   

   Haga clic en No. Cuando aparezca un nuevo cuadro de diálogo, elija la opción Guardar como. En el campo " Guardar como tipo "elige la opción " Libro Excel habilitado para macros ".

   

Utilice la macro SpellNumber en sus hojas de cálculo

Ahora puede utilizar la función SpellNumber en sus documentos Excel. Introduzca =NúmeroDeRelato(A2) en la celda donde necesitas obtener el número escrito en palabras. Aquí A2 es la dirección de la celda con el número o cantidad.

Aquí puedes ver el resultado:

¡Voilà!

Copie rápidamente la función SpellNumber en otras celdas.

Si necesita convertir toda la tabla, no sólo 1 celda, coloque el cursor del ratón en la esquina inferior derecha de la celda con la fórmula hasta que se convierta en una pequeña cruz negra:

Haz clic con el botón izquierdo y arrástralo por la columna para rellenar la fórmula. Suelta el botón para ver los resultados:

Nota. Tenga en cuenta que si utiliza SpellNumber con un enlace a otra celda, la suma escrita se actualizará cada vez que cambie el número de la celda de origen.

También puede introducir el número directamente en la función, por ejemplo, =NúmeroDeHechizo(29.95) (29,95 - sin las comillas ni el símbolo del dólar).

Desventajas de usar macros para deletrear números en Excel

En primer lugar, debe conocer VBA para modificar el código según sus necesidades. Es necesario pegar el código para cada libro en el que piense modificarlo. De lo contrario, tendrá que crear un archivo de plantilla con macros y configurar Excel para que cargue este archivo en cada inicio.

La principal desventaja de utilizar una macro es que si envías el libro de trabajo a otra persona, ésta no verá el texto a menos que la macro esté incorporada en el libro de trabajo. E incluso si está incorporada, recibirá una alerta de que hay macros en el libro de trabajo.

Deletrea números en palabras con un complemento especial

Para los usuarios de Excel que necesitan deletrear sumas rápidamente pero no tienen tiempo para aprender VBA o encontrar soluciones, hemos creado una herramienta especial que puede realizar rápidamente la conversión de sumas a palabras para algunas divisas populares. Conozca el complemento Spell Number incluido en la última versión de nuestra Ultimate Suite para Excel.

Además de estar lista para usar, la herramienta es realmente flexible a la hora de convertir cantidades en texto:

• Puede seleccionar una de las siguientes monedas: USD, EUR, GBP, BIT, AUD.
• Deletrea la parte fraccionaria en céntimos, peniques o céntimos de bit.
• Elija cualquier caso de texto para el resultado: minúsculas, mayúsculas, título o frase.
• Deletrea la parte decimal de diferentes maneras.
• Incluir u omitir céntimos cero.

El complemento es compatible con todas las versiones modernas, incluidas Excel 365, Excel 2029, Excel 2016, Excel 2013 y Excel 2010. No dude en explorar otras capacidades en la página de inicio del producto enlazada anteriormente.

Y ahora, veamos esta utilidad de deletreo de números en acción:

1. Seleccione una celda vacía para el resultado.
2. En el Ablebits en la pestaña Servicios grupo, haga clic en Número de hechizo .
3. En el Número de vertido que aparece, configure lo siguiente:
   • Para el Seleccione su número seleccione la celda que contiene el importe que desea que se escriba como texto.
   • Especifique el actualmente , letra mayúscula y la forma en que el parte decimal del número debe escribirse.
   • Define si se incluyen o no los céntimos cero.
   • Elija si desea insertar el resultado como valor o fórmula.
4. En la parte inferior de la ventana de diálogo, previsualizar Si está satisfecho con el resultado, haga clic en Hechizo Si no, prueba con otros ajustes.

La siguiente captura de pantalla muestra las opciones predeterminadas y el número escrito en B2. Observe que hay una fórmula (más concretamente, una función definida por el usuario) en la barra de fórmulas:

Y esta es una rápida demostración de cómo se pueden deletrear otras monedas:

Consejos y notas:

• Porque el Número de hechizo se diseñó para manejar casos de uso reales como facturas y otros documentos financieros, sólo puede convertir un número a la vez.
• Para deletrear un columna de números inserte una fórmula en la primera celda y, a continuación, copie la fórmula hacia abajo.
• Si existe la posibilidad de que sus datos de origen cambien en el futuro, lo mejor es insertar el resultado como fórmula por lo que se actualiza automáticamente a medida que cambia el número original.
• Al elegir el resultado como fórmula una opción personalizada función definida por el usuario (Si piensa compartir su libro de trabajo con alguien que no tenga instalado Ultimate Suite, recuerde sustituir las fórmulas por valores antes de compartirlo.

Conversión inversa: palabras inglesas en números

Francamente, no me imagino por qué podría necesitarlo. Por si acaso... :)

Parece que el MVP de Excel, Jerry Latham, creó dicha función definida por el usuario (UDF) de Excel como WordsToDigits Convierte palabras inglesas en números.

Puede descargar el libro de trabajo WordsToDigits de Jerry para ver el código UDF. Aquí también encontrará sus ejemplos de cómo utilizar la función.

Puede ver cómo funciona la función en la hoja " Ejemplos de entradas ", donde también podrá introducir sus propios ejemplos. Si piensa emplear WordsToDigits en sus documentos, le informamos de que esta función tiene restricciones. Por ejemplo, no reconoce las fracciones introducidas en palabras. Encontrará todos los detalles en la página " Información ".