Lompat ke konten Lompat ke sidebar Lompat ke footer

Widget HTML #1

Convertir Números A Palabras En Excel: Cómo Hacerlo Fácilmente En 2023

Spell Number In Excel Pesos
Spell Number In Excel Pesos from spelol.netlify.app

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:

  1. Selecciona una celda para el resultado.
  2. Escribe la siguiente fórmula en la barra de fórmulas: =TEXTO(A1,"Escriba aquí el formato de palabras que desea").
  3. Reemplaza "A1" con la celda que contiene el número que deseas convertir.
  4. 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.
  5. 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:

  1. Selecciona una celda para el resultado.
  2. Escribe la siguiente fórmula en la barra de fórmulas: =PROPER(TEXT(A1,"Escriba aquí el formato de palabras que desea")).
  3. Reemplaza "A1" con la celda que contiene el número que deseas convertir.
  4. 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.
  5. 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:

  1. Pulsa Alt + F11 para abrir el editor de Visual Basic.
  2. En el menú Insertar, selecciona Módulo.
  3. 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
  1. Pulsa Alt + Q para cerrar el editor de Visual Basic.
  2. 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"