Consulta: como cambiar en excel numeros a palabras

Respuesta: Para convertir números a palabras en Excel, puedes utilizar una función personalizada de VBA (Visual Basic para Aplicaciones). Excel no tiene una función integrada para convertir números a palabras en versiones anteriores a 365, pero puedes crear una propia. Aquí te explico cómo hacerlo:

### Paso 1: Abrir el Editor de VBA
1. Abre Excel.
2. Presiona `Alt` + `F11` para abrir el Editor de VBA.

### Paso 2: Crear un Módulo
1. En el Editor de VBA, haz clic en `Insertar -> Módulo` para crear un nuevo módulo.

### Paso 3: Pegar el Código VBA
1. Copia y pega el siguiente código en el módulo que acabas de crear:
```vba
Function NumeroLetra(ByVal MyNumber)
Dim Units As String
Dim Tens As String
Dim StrMyNumber As String
Dim DecimalPlace As Integer
Dim OutputString As String
Dim Place(9) As String
Place(2) = " mil "
Place(3) = " millones "
Place(4) = " mil millones "
Place(5) = " billones "

' Convertir número a texto
MyNumber = Trim(CStr(MyNumber))
DecimalPlace = InStr(MyNumber, ".")

If DecimalPlace > 0 Then
MyNumber = Left(MyNumber, DecimalPlace - 1)
End If

Count = 1
Do While MyNumber <> ""
Select Case Count
Case 1
OutputString = ConvertirCientos(Right(MyNumber, 3)) & OutputString
Case Else
OutputString = ConvertirCientos(Right(MyNumber, 3)) & Place(Count) & OutputString
End Select
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Count = Count + 1
Loop

NumeroLetra = Application.Trim(OutputString)
End Function

Function ConvertirCientos(ByVal MyNumber)
Dim Result As String
Dim c As Integer

Const HUNDRED = "cien"
Const HUNDREDS = "cientos"
Const THOUSAND = "mil"

MyNumber = Right("000" & MyNumber, 3)

' Centenas
c = Left(MyNumber, 1)
Select Case c
Case 0
Result = ""
Case 1
If Mid(MyNumber, 2, 2) = "00" Then
Result = HUNDRED
Else
Result = "ciento "
End If
Case 2: Result = "doscientos "
Case 3: Result = "trescientos "
Case 4: Result = "cuatrocientos "
Case 5: Result = "quinientos "
Case 6: Result = "seiscientos "
Case 7: Result = "setecientos "
Case 8: Result = "ochocientos "
Case 9: Result = "novecientos "
End Select

' Decenas y unidades
Result = Result & ConvertirDecenas(Right(MyNumber, 2))

ConvertirCientos = Result
End Function

Function ConvertirDecenas(ByVal MyNumber)
Dim Result As String
Dim d, u As Integer

d = Val(Left(MyNumber, 1))
u = Val(Right(MyNumber, 1))

Select Case d
Case 0: Result = Unidad(u)
Case 1
Select Case u
Case 0: Result = "diez"
Case 1: Result = "once"
Case 2: Result = "doce"
Case 3: Result = "trece"
Case 4: Result = "catorce"
Case 5: Result = "quince"
Case Else: Result = "dieci" & Unidad(u)
End Select
Case 2
If u = 0 Then
Result = "veinte"
Else
Result = "veinti" & Unidad(u)
End If
Case 3: Result = "treinta" & DecenaUnidad(u)
Case 4: Result = "cuarenta" & DecenaUnidad(u)
Case 5: Result = "cincuenta" & DecenaUnidad(u)
Case 6: Result = "sesenta" & DecenaUnidad(u)
Case 7: Result = "setenta" & DecenaUnidad(u)
Case 8: Result = "ochenta" & DecenaUnidad(u)
Case 9: Result = "noventa" & DecenaUnidad(u)
End Select

ConvertirDecenas = Result
End Function

Function Unidad(ByVal u)
Select Case u
Case 0: Unidad = ""
Case 1: Unidad = "uno"
Case 2: Unidad = "dos"
Case 3: Unidad = "tres"
Case 4: Unidad = "cuatro"
Case 5: Unidad = "cinco"
Case 6: Unidad = "seis"
Case 7: Unidad = "siete"
Case 8: Unidad = "ocho"
Case 9: Unidad = "nueve"
End Select
End Function

Function DecenaUnidad(ByVal u)
If u = 0 Then
DecenaUnidad = ""
Else
DecenaUnidad = " y " & Unidad(u)
End If
End Function
```

### Paso 4: Guardar y Cerrar el Editor de VBA
- Guarda el trabajo (Ctrl + S) y cierra el Editor de VBA (Alt + Q).

### Paso 5: Usar la Función en Excel
- Ahora puedes usar la nueva función `NumeroLetra` directamente en las celdas de Excel.
- Por ejemplo, si tienes el número 1234 en la celda A1, en una celda vacía escribe: `=NumeroLetra(A1)` y presiona Enter.
- Esto debería convertir 1234 en "mil doscientos treinta y cuatro".

### Notas Adicionales:
- Asegúrate de habilitar macros cuando abras el archivo de Excel para que la función personalizada funcione.
- Puedes ajustar el código según tus necesidades o el estilo que prefieras para la conversión de números a palabras.

Espero que esto te ayude a convertir números a palabras en Excel. Si tienes alguna pregunta adicional, ¡déjame saber!

1 resultado
Búsquedas
similares
Como transformo lo escrito en numero a palabras
Como atraer el dinero a mi
Como elaborar concreto celular
Como ganar dinero facil y rapido
Como ganar el lino
Como eliminar una plaga de moscas
Omil calama calama
Como preparar guatitas a la madrilenan
Como hacer una tarjeta de presentacion personal
60 comisaria nunoa
Fiscalia local metropolitana oriente
La transmision no cambia de marcha correctamente que accion tomarias para diagnosticar
Correo del tribunal
Los audifonos o auriculares inalambricos consumen bateria del celular
Como obtengo el certificado de ruralidad en la comuna de diego de almagro
Recetas o preparaciones para hacer con maicena
Que debo hacer para comprar en la farmacia popular de huechuraba de pedro fontova
Necesito los resultados de mi alcoholemia
Primer jpl las condes
Preparacion de la caipirinha