13/03/2010, 13:04
|
Colaborador | | Fecha de Ingreso: agosto-2004
Mensajes: 1.611
Antigüedad: 20 años, 4 meses Puntos: 47 | |
Respuesta: Pasar de números a letras en Excel Para efectos prácticos, la macro está bien; no creo que haya facturas de 1 peso ó menores;
Agrega éstas líneas a la macro...
Loop Until (Numero = 0)
If (Letras = "un") Then
num_letras = UCase("(" & Letras & " peso " & (Round(Decimales * 100)) & "/100 M.N.)")
Else
num_letras = UCase("(" & Letras & " pesos " & (Round(Decimales * 100)) & "/100 M.N.)")
End If
End Function
Y llegó el momento de que aprendas algo más de VB; como puedes leer en el hilo, los foreros mejoraron, modificaron y ajustaron a sus necesidades la macro; te toca ajustarla a tus necesidades, ojalá puedas corregir el tema de los "veintemiles" (que ya está hecho) y podrías intentar hacer que cuándo el valor sea "0.55" aparezca en el texto "cero pesos"; luego subes la macro para que otros la puedan usar....
Saludos... |