¿Cómo convertir un valor numérico en una palabra en inglés?

El Office Software Excel, ofrece a los usuarios la opción de realizar varias operaciones sobre los datos en los campos de la hoja de cálculo. Se puede usar una función definida por el usuario para convertir un valor numérico a una palabra en inglés . Cierto conocimiento de conceptos de programación tales como funciones y técnicas de bucle ayudaría a comprender y escribir las funciones, pero no es esencial. Hay muchos recursos disponibles en Internet donde las funciones que se pueden usar para convertir un valor numérico a una palabra en inglés se pueden descargar e incluir en las hojas de cálculo de Excel de forma gratuita.

Para convertir un valor numérico en una palabra en inglés, aquí está la fórmula que necesitará :

Esta es una publicación del foro, gracias a rajput391

A continuación, encontrará el código para ingresar en su hoja de Excel:

1. Presione Alt + F11> copiar y compilar en el módulo (si el módulo no muestra el módulo de inserción, haga clic en insertar en la barra de menú> Módulo)

2. Alt + Q Guardar código y volver a la hoja de Excel

3. Insertar> función> definido por el usuario> A1 o celda relevante

 Palabras de función (fig, Punto opcional = "Punto") Como cadena Dim dígito (14) Como Integer alpha = Array ("", "One", "Two", "Three", "Four", "Five", "Six ", " Siete ", " Ocho ", " Nueve ", " Diez ", " Once ", " Doce ", " Trece ", " Catorce ", " Quince ", " Dieciséis ", " Diecisiete ", " Dieciocho ", "Diecinueve", "Veinte", "Treinta", "Cuarenta", "Cincuenta", "Sesenta", "Setenta", "Ochenta", "Noventa") figi = Trim (StrReverse (Str (Int (Abs) )))) Para i = 1 A Len (figi) dígito (i) = Mid (figi, i, 1) Siguiente Para i = 2 A Len (figi) Paso 3 Si dígito (i) = 1 Luego dígito (i) = dígito (i - 1) + 10: dígito (i - 1) = 0 Más: Si dígito (i)> 1 Luego dígito (i) = dígito (i) + 18 Fin si es siguiente Para i = 1 A Len (figi ) Si (i Mod 3) = 0 Y dígito (i)> 0 Luego palabras = "cien" y palabras Si (i Mod 3) = 1 Y dígito (i) + dígito (i + 1) + dígito (i + 2 )> 0 Entonces _ palabras = Elija (i / 3, "mil", "millón", "mil millones") y palabras palabras = Recortar (alfa (dígito (i)) y "" & palabras) Siguiente Si fig Int (fig. ) Entonces figc = StrReverse (figi) If figc = 0 Then figc = "" figd = Trim (WorksheetFunction.Su bstitute (Str (Abs (fig)), figc & ".", "")) words = Trim (words & "" & point) For i = 1 To Len (figd) If Val (Mid (figd, i, 1) ))> 0 Luego, las palabras = palabras y "" & alpha (Mid (figd, i, 1)) Else: words = words & "Zero" End If Next End If If fig <0 Then words = "Negative" & words End Función