Convertir numeros a letras
Esta función convierte números a letras en Excel
Para cualquier duda, escriban a hernandezhdza@hotmail.com'Funciones para convertir de números a letras
'Llamada : Letras(Número)
Function Unidades(num, UNO)
Dim U
Dim Cad
U = Array(UN, DOS, TRES, CUATRO, CINCO, SEIS, SIETE, OCHO, NUEVE)
Cad =
If num = 1 Then
If UNO = 1 Then
Cad = Cad & UNO
Else
Cad = Cad & UN
End If
Else
Cad = Cad & U(num - 1)
End If
Unidades = Cad
End Function
Function Decenas(num1, res)
Dim D1
D1 = Array(ONCE, DOCE, TRECE, CATORCE, QUINCE, DIECISEIS, DIECISIETE, _
DIECIOCHO, DIECINUEVE)
D2 = Array(DIEZ, VEINTE, TREINTA, CUARENTA, CINCUENTA, SESENTA, _
SETENTA, OCHENTA, NOVENTA)
If num1 > 10 And num1 2 Then
If res > 0 Then
Cad1 = Cad1 & Y
Cad1 = Cad1 & Unidades(num1 Mod 10, 0)
End If
Else
If res = 0 Then
Cad1 = Cad1 & E
Else
Cad1 = Cad1 & I
Cad1 = Cad1 & Unidades(num1 Mod 10, 0)
End If
End If
End If
Decenas = Cad1
End Function
Function Cientos(num2)
num3 = num2 100
Select Case num3
Case 1
If num2 = 100 Then
cad2 = CIEN
Else
cad2 = CIENTO
End If
Case 5
cad2 = QUINIENTOS
Case 7
cad2 = SETECIENTOS
Case 9
cad2 = NOVECIENTOS
Case Else
cad2 = Unidades(num3, 0) & CIENTOS
End Select
num2 = num2 Mod 100
If num2 > 0 Then
If num2 = 100) Then
cad3 = Cientos(num4)
Else
If (num4 >= 10) Then
cad3 = Decenas(num4, num4 Mod 10)
Else
cad3 = Unidades(num4, 0)
End If
End If
cad3 = cad3 & MIL
Miles = cad3
End Function
Function Millones(cant)
If cant = 1 Then
ter =
Else
ter = ES
End If
If (cant >= 1000) Then
cantl = cantl & Miles(cant 1000)
cant = cant Mod 1000
End If
If cant > 0 Then
If cant >= 100 Then
cantl = cantl & Cientos(cant)
Else
If cant >= 10 Then
cantl = cantl & Decenas(cant, cant Mod 10)
Else
cantl = cantl & Unidades(cant, 0)
End If
End If
End If
Millones = cantl & MILLON & ter
End Function
Function decimales(numero As Single) As Integer
Dim iaux As Integer
iaux = numero - Application.Round(numero, 2)
decimales = iaux
End Function
Function letras(cantm As Variant) As String
Dim cants1 As String, num1 As Variant, num2 As Variant
num1 = cantm 1000000
num2 = cantm - (num1 * 1000000)
cents = (num2 * 100) Mod 100
If cents = 0 Then
cents1 = 00
Else
cents1 = Format(cents)
End If
cantm = cantm - (cents / 100)
If cantm >= 1000000 Then
cantlm = Millones(cantm 1000000)
cantm = cantm Mod 1000000
End If
If cantm > 0 Then
If (cantm >= 1000) Then
cantlm = cantlm & Miles(cantm 1000)
cantm = cantm Mod 1000
End If
End If
If cantm > 0 Then
If cantm >= 100 Then
cantlm = cantlm & Cientos(cantm)
Else
If cantm >= 10 Then
cantlm = cantlm & Decenas(cantm, cantm Mod 10)
Else
cantlm = cantlm & Unidades(cantm, 1)
End If
End If
End If
letras = cantlm & PESOS & cents1 & /100 M.N.
End Function
Sub prueba()
Dim res As String, num As Single
num = 50899697.51
res = letras(num)
End Sub
Quizás te puedan interesar estos más que trucos de Convertir numeros a letras que hemos descubierto:
Validar datos con Excel
Se puede validar la captura de datos en excel, tanto como de Texto, numeros , etc., dentro de esto se puede validar la longitud minima/maxima o valor en caso de ser numerico, ademas permite el desplie...
Céntimos exactos (o como sumar redondeos) en Excel
Para explicar este truco vamos a utilizar un ejemplo: imaginemos que queremos convertir 1500 pesetas a euros (9,0152 euros). Al utilizar redondeo a céntimos aparecerán 9,02, pero si sumamos dos de e...
Cambiar a mayúsculas en Excel
Incluimos el código de una macro para cambiar a mayúsculas todo el contenido (si es texto) a una celda en Excel. Continúa...El código es: ...
Cambiar el color del nombre de un libro de Excel
Cambiar el color del nombre de un libro de Excel es tan fácil como hacer click derecho sobre la pestaña identificadora del libro, y seleccionar la opción Color de Etiqueta....
Referencias a celdas en Excel de forma natural
En Excel 2002 (quizás también en otras versiones recientes), si tenemos títulos en las columnas y filas de una tabla, podemos realizar referencias a las celdas de manera mucho más natural. ...
Ocultar la ejecución de las macros de Excel
Cuando se ejecuta una macro de Excel aparece en pantalla el cursos y las celdas marcadas, así como todas las actuaciones que lleve a cabo la macro. Para que no se produzca este refresco...
Crear un gráfico con una única tecla en Excel
Para crear un gráfico en Excel con solo pulsar una tecla, primer seleccione las casillas que van a formar parte del gráfico, y acto seguido, pulse la tecla F11, con lo que el gráfic...
Macros autoejecutables (al abrir o cerrar una planilla de Excel)
Para que una macro se ejecute automáticamente al abrir una planilla de Excel basta con que su nombre sea Auto_open. Del mismo modo, para que se ejecute al cerrar una planilla, ...
Proteger Excel
Para que otros usuarios no modifiquen las plantillas de Excel podemos proteger los archivos de Excel, a la vez que le podemos añadir una contraseña para que no se pueda quitar la protección ...
Desplazarse entre planillas con el teclado en Excel
Para desplazarse por las planillas abiertas en Excel con el teclado tal como hacemos en Windows pulsando simultáneamente Alt y Tab, tan solo debemos hacerlo pulsando simultáneamente las t...
Numera facturas automáticamente.
Si usamos Excel para hacer facturas, pedidos o documentos que deben numerarse automáticamente, conviene saber que existen plantillas ya preparadas para conseguir la autonumeración. Se tra...
Bloquear macros (dar carácter privado)
Es posible ocultar algunas Macros para que no aparezcan en la ventana de Macros, y que por tanto no puedan ser accedidas por usuarios. Para ello solo debemos incluir la palabra Private a...
Hotkeys para Excel
Aqui os añado unas teclillas, que la mayoría ya sabreis, pa manejarse rápidamente en Excel.- F2 Entrada en el contenido de una celda- Ctrl más/menos añadir celdas fi...
Creditos de excel
Al principio oprime las siguientes teclas:CTRL IAparecera un cuadro en cual tendras que escribir lo siguiente:x2000..l2000Despues de eso te mandara a una columna y a una fila con un n...
Reanudar la numeración automática en Excel 2002 con etiquetas inteligentes
En Excel 2002, existen ocasiones en las que necesitamos interrumpir una lista para incluir un párrafo, o un comentario, para posteriormente proseguirla, sin embargo, nos interesa continuar ...