Convertir Números A Palabras En Excel: Cómo Hacerlo Fácilmente En 2023
Excel es una herramienta muy útil en la gestión de datos, cálculos y análisis financieros. Una de las funciones más solicitadas por los usuarios es la capacidad de convertir números a palabras en Excel. Aunque puede parecer una tarea complicada, existen varias formas de hacerlo fácilmente. En este artículo, te mostraremos cómo convertir números a palabras en Excel en 2023.
Uso de la función TEXTO()
La función TEXTO() es una de las formas más fáciles de convertir números a palabras en Excel. Esta función es una combinación de la función CONCATENAR() y la función ELEGIR().
Para utilizar la función TEXTO(), sigue estos pasos:
- Selecciona una celda para el resultado.
- Escribe la siguiente fórmula en la barra de fórmulas: =TEXTO(A1,"Escriba aquí el formato de palabras que desea").
- Reemplaza "A1" con la celda que contiene el número que deseas convertir.
- Reemplaza "Escriba aquí el formato de palabras que desea" con el formato deseado. Por ejemplo, puedes usar "Dólares" para convertir un número en dólares.
- Pulsa Enter para obtener el resultado.
Ejemplo:
Supongamos que tienes el número 1234 en la celda A1. Para convertirlo en palabras, escribe la siguiente fórmula en otra celda:
=TEXTO(A1,"Mil doscientos treinta y cuatro")
Al pulsar Enter, obtendrás el resultado: "Mil doscientos treinta y cuatro".
Uso de la función PROPER()
La función PROPER() también puede ser utilizada para convertir números a palabras en Excel. Esta función convierte el primer carácter de cada palabra en mayúscula y los demás en minúscula.
Para utilizar la función PROPER(), sigue estos pasos:
- Selecciona una celda para el resultado.
- Escribe la siguiente fórmula en la barra de fórmulas: =PROPER(TEXT(A1,"Escriba aquí el formato de palabras que desea")).
- Reemplaza "A1" con la celda que contiene el número que deseas convertir.
- Reemplaza "Escriba aquí el formato de palabras que desea" con el formato deseado. Por ejemplo, puedes usar "Dólares" para convertir un número en dólares.
- Pulsa Enter para obtener el resultado.
Ejemplo:
Supongamos que tienes el número 1234 en la celda A1. Para convertirlo en palabras, escribe la siguiente fórmula en otra celda:
=PROPER(TEXT(A1,"Mil doscientos treinta y cuatro"))
Al pulsar Enter, obtendrás el resultado: "Mil Doscientos Treinta Y Cuatro".
Uso de macros
Otra forma de convertir números a palabras en Excel es mediante el uso de macros. Las macros son pequeños programas que automatizan tareas repetitivas en Excel.
Para crear una macro de conversión de números a palabras, sigue estos pasos:
- Pulsa Alt + F11 para abrir el editor de Visual Basic.
- En el menú Insertar, selecciona Módulo.
- Escribe el siguiente código:
Function 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) =" Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") If DecimalPlace > 0 Then 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 & 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 ="One Dollar" 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 Private Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If 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 Private Function GetTens(TensText) Dim Result As String Result ="" ' Null out the temporary function value. 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" Case 13: Result ="Thirteen" Case 14: Result ="Fourteen" Case 15: Result ="Fifteen" Case 16: Result ="Sixteen" Case 17: Result ="Seventeen" Case 18: Result ="Eighteen" Case 19: Result ="Nineteen" Case Else End Select Else ' If value between 20-99... Select Case Val(Left(TensText, 1)) Case 2: Result ="Twenty " Case 3: Result ="Thirty " Case 4: Result ="Forty " Case 5: Result ="Fifty " Case 6: Result ="Sixty " Case 7: Result ="Seventy " Case 8: Result ="Eighty " Case 9: Result ="Ninety " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function Private Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit ="One" Case 2: GetDigit ="Two" Case 3: GetDigit ="Three" Case 4: GetDigit ="Four" Case 5: GetDigit ="Five" Case 6: GetDigit ="Six" Case 7: GetDigit ="Seven" Case 8: GetDigit ="Eight" Case 9: GetDigit ="Nine" Case Else: GetDigit ="" End Select End Function
- Pulsa Alt + Q para cerrar el editor de Visual Basic.
- En la hoja de Excel, escribe el siguiente código en una celda:
=SpellNumber(A1)
Reemplaza "A1" con la celda que contiene el número que deseas convertir.
Al pulsar Enter, obtendrás el resultado en palabras.
Conclusión
Como has visto, existen varias formas de convertir números a palabras en Excel. Puedes utilizar la función TEXTO() o PROPER() para hacerlo fácilmente, o crear una macro para automatizar la tarea. Esperamos que este artículo te
Posting Komentar untuk "Convertir Números A Palabras En Excel: Cómo Hacerlo Fácilmente En 2023"