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
Comisaria en los lagos
Como se llamaba el caballo de la pantera rosa
Bencineras zapallar
Bencineras de zapallar
Bencineras san pablo
Bencineras paillaco
Hogar de ancianos nueva esperanza la pintana
Como conservar los porotos negros cocidos y por cuanto tiempo
Demandar por pension de alimentos
La transmision no cambia de marcha correctamente que accion tomarias para diagnosticar
Cesfam el barrero
Contactos de secplan region de los lagos
Q funcion cumplen los sensores en un sistema electronico de control justificacion
Fono hogar maravillas valpo eleam
5a comisaria yumbel
Bencineras quilpue
El motor no responde al acelerador que accion tomarias para diagnosticar y solucionar este problema