Cómo convertir números a las palabras en MS Excel

Microsoft desarrolló una aplicación adicional que creará una función de números -a- palabras en Excel. La función convierte el valor numérico de una celda de hoja de cálculo en el texto , por ejemplo , $ 1.29 aparecerá como un dólar y veinte y nueve centavos . Para convertir números a las palabras en Excel , la función se debe crear manualmente mediante el Editor de Visual Basic , que viene de serie en todas las aplicaciones de Office. Después de la función se ha creado, se puede acceder a través de la barra de herramientas de Excel para convertir números a las palabras en una hoja de cálculo . Instrucciones
Crear la función Números -a- Las palabras en Excel
1

Abra el programa Microsoft Excel.

2 Mantenga pulsada la tecla Alt y pulse F11 para abrir el Editor de Visual Basic .
3

Elija "Insertar " de la barra de herramientas y haga clic en " módulos".
4

Copie y pegue o escriba el siguiente Microsoft fórmula en el módulo:

Opción Explicit'Main FunctionFunction SpellNumber ( ByVal MiNumero ) Dólares Dim , centavos, TempDim DecimalPlace , CountReDim Place ( 9 ) Como StringPlace ( 2 ) = Place " Mil " ( 3 ) = "Million " Place ( 4 ) =" mil millones " Place ( 5 ) =" trillón " ' representación String de amount.MyNumber = Trim ( Str. ( MiNumero ) ) ' Posición del decimal 0 si none.DecimalPlace = InStr ( MiNumero ,". " ) ' Convertir centavos de dólar y establecer MiNumero al dólar amount.If DecimalPlace > 0 ThenCents = Gettens (Izquierda ( Mid ( MiNumero , DecimalPlace + 1 ) & _ "00 " , 2 ) ) MiNumero = Trim (Left ( MiNumero , DecimalPlace - 1 )) End IfCount = 1Do Mientras MiNumero < > "" temp = GetHundreds (Derecho ( MiNumero , 3 ) ) Si Temperatura < > " " Entonces Dólares = Temperatura y lugar ( conde ) y DollarsIf Len ( MiNumero ElseDollars ) ElseMyNumber = "" End IfCount = Cuenta + 1LoopSelect DollarsCase Case " " Dólares = " No Dólares " Caso Dólares = caso 3 "One" " One Dollar " = -) > 3 ThenMyNumber = izquierda ( MiNumero , Len ( MiNumero ) Dólares y " Dólares " End SelectSelect CentsCase Case " Cents " = " y sin centavos " caso " Uno " Cents = " y un centavo " ElseCents caso = " y" & Cents & " centavos " End SelectSpellNumber = Dólares y CentsEnd Función

' Convierte un número de 100 a 999 en textFunction GetHundreds ( ByVal MiNumero ) Resultado As StringIf Val ( MiNumero ) = 0 THEN EXIT FunctionMyNumber = Right (" 000" y MiNumero , 3 ) " Convertir los cientos place.If Mid ( MiNumero , 1 , 1 ) < > " 0 " ThenResult = GetDigit ( Mid ( MiNumero , 1 , 1 ) ) y " Cien " End If 'Convertir las decenas y unidades place.If medio ( MiNumero , 2 , 1 ) < > " 0 " ThenResult = Resultado y Gettens ( Mid ( MiNumero , 2 ) ) = Resultado ElseResult y GetDigit ( Mid ( MiNumero , 3 )) End IfGetHundreds = ResultEnd Función

' convierte un número del 10 al 99 en text.Function Gettens ( TensText ) Resultado As StringResult = "" ' nula la función temporal value.If Val ( Left ( TensText , 1 )) = 1 entonces ' Si el valor entre 10-19 ... Select ( TensText ) Case Val caso 10: Resultado = Case " Ten" 11 : Resultado = Case " Once " 12 : Resultado = Case "Doce " 13 : Resultado = Case " Thirteen" 14 : Resultado = caso " Catorce " 15 : Resultado = Case " Fifteen" 16 : Resultado = Case " Sixteen" 17 : Resultado = Case " Seventeen" 18 : Resultado = Case " Eighteen" 19 : Resultado = Case " Nineteen " ElseEnd SelectElse ' Si el valor entre 20-99 ... Seleccionar (izquierda ( TensText , 1 ) ) Case Val caso 2 : Resultado = Case " Twenty" 3 : Resultado = Case "Treinta " 4 : Resultado = Case "Cuarenta " 5 : Resultado = Case " cincuenta " 6 : Resultado = Case " Sixty" 7 : Resultado = Case " Setenta " 8 : Resultado = Case "Ochenta " 9 : Resultado = Case "Noventa " ElseEnd selectResult = Resultado y GetDigit _ ( Right ( TensText , 1 ) ) ' Recuperar los place.End IfGetTens = ResultEnd Función

' Convierte un número del 1 al 9 en text.Function GetDigit ( Digit ) Select ( Digit ) Case Val caso 1 : GetDigit = Case "One" 2 : GetDigit = " Dos " caso 3 : GetDigit =" "Caso 4 : GetDigit = " Tres " Case 5 : GetDigit =" cuatro " Case 6 : GetDigit =" Cinco Seis "Caso 7 : GetDigit =" Seven " caso 8: GetDigit =" Ocho " caso 9 : GetDigit = Case "Nine" Else: . GetDigit = "" End SelectEnd Función
5

Elige SpellNumber desde el menú desplegable del módulo
Cambiar Números de las palabras en una hoja de cálculo
6

Abrir una hoja de cálculo de Excel.
7

Seleccione la celda en la que desea convertir números en texto , haga clic en la celda.
Página 8

clic en la pestaña Insertar función /Insert ( fx) .
9

Haga clic en " Definido por el usuario " en el menú de la izquierda y haga clic en " SpellNumber " en el menú de la derecha .
10

Escriba el número que desea convertir en palabras.
11

Haga clic en " Aceptar". El número aparecerá en la celda como texto

.