Ir al contenido principal

Entradas

Mostrando las entradas de julio, 2015

Convertir números a letras

Te muestro como crear tu propia función para convertir números a letras , esto puede serte de mucha utilidad si usas Excel para imprimir  reportes en los que debas ingresar un numero en letras. Primero ingresa a VBA presionando las teclas Alt+F11, e inserta un Modulo (Si ya tienes un modulo no necesitas insertar uno nuevo)   Ahora selecciona tu modulo ( Module1 ) Y en la ventana derecha ingresa este texto: Function NumLetras(Valor As Currency, Optional MonedaSingular As String = "", Optional MonedaPlural As String = "") As String Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit Dim ValorEntero As Long     Valor = Round(Valor, 2)     lyCantidad = Int(Valor)     ValorEntero = lyCantida