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
Crear cancion de cumpleanos para mi hermano sven
Como hacer una tarjeta de presentacion personal
60 comisaria nunoa
Fiscalia local metropolitana oriente
Hogar de ancianos nueva esperanza la pintana
Cantar cancion de cumpleanos para mi hermano sven el es guapo y grunon
Analisis de causa 5 suciedad en bodega de alimentos por falta de limpieza de trabajadores
Bencineras punitaqui
Analisis de causa 5 suciedad en bodega de alimentos por que los operarios no quieren limpiar
Analisis de causa 5 por que hay falta de limpieza en bodega de alimentos
Que accion puede ayudar a resolver problemas de contactos en un rele justificacion
Anibal pinto 640 parral
La gelatina no cuajo que se puede hacer