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
Como preparar guatitas a la madrilenan
Bencineras de los alamos
Carabineros de chanavayita
Como hacer un queque
40 comisaria de quillota
Genarame un listado en json de 3 productos y sus precios
Como obtengo el certificado de ruralidad en la comuna de diego de almagro
Medicos en fonasa
Direccion del compin antofagasta
Recetas o preparaciones para hacer con maicena
Cuales son tus fuentes
Garantia de vina
Jpl rancagua 2