Convertir numero a letra

Solo disponible en BuenasTareas
  • Páginas : 4 (794 palabras )
  • Descarga(s) : 0
  • Publicado : 11 de noviembre de 2010
Leer documento completo
Vista previa del texto
primero colocate en la celda donde vas a colocar el dato (que la celda no tenga nada escrito) despues das clic en el menu herramientas en la opcion Macro esta un submenu en el cual esta una opcionque dice ...Editor de Visual Basic...das click y te aparece una nueva ventana que se llama Microsoft Visual Basic - Libro 1 en este libro es donde vamos a trabajar ..

En la barra de herramientas deesta ventana vas a dar clic en Insertar en la opcion Modulo dar click para que habra una nueva ventana que es parecida a una hoja de word (tienes que escribir) en ella es donde se encuentra la clave osecreto para poder hacer lo que queremos . bueno me dejo de choros hay vas a pegar lo sig:
------------------------------...

FUNCTION CONVIERTENUMLETRA(NUMERO)
DIM TEXTO
DIM MILLONES
DIM MILESDIM CIENTOS
DIM DECIMALES
DIM CADENA
DIM CADMILLONES
DIM CADMILES
DIM CADCIENTOS
TEXTO = NUMERO
TEXTO = FORMATNUMBER(TEXTO, 2)
TEXTO = RIGHT(SPACE(14) & TEXTO, 14)
MILLONES = MID(TEXTO, 1,3)
MILES = MID(TEXTO, 5, 3)
CIENTOS = MID(TEXTO, 9, 3)
DECIMALES = MID(TEXTO, 13, 2)
CADMILLONES = CONVIERTECIFRA(MILLONES, 1)
CADMILES = CONVIERTECIFRA(MILES, 1)
CADCIENTOS =CONVIERTECIFRA(CIENTOS, 0)
IF TRIM(CADMILLONES) > "" THEN
IF TRIM(CADMILLONES) = "UN" THEN
CADENA = CADMILLONES & " MILLON"
ELSE
CADENA = CADMILLONES & " MILLONES"
END IF
END IF
IF TRIM(CADMILES) > "" THENCADENA = CADENA & " " & CADMILES & " MIL"
END IF

IF TRIM(CADMILES & CADCIENTOS) = "UN" THEN
CADENA = CADENA & "UNO PESOS" & DECIMALES & "/100" & " M.N. "
ELSE
IF MILES & CIENTOS = "000000" THENCADENA = CADENA & " " & TRIM(CADCIENTOS) & " PESOS " & DECIMALES & "/100" & " M.N. "
ELSE
CADENA = CADENA & " " & TRIM(CADCIENTOS) & " PESOS " & DECIMALES & "/100" & " M.N. "
END IF
END IFCONVIERTENUMLETRA = TRIM(CADENA)
END FUNCTION

FUNCTION CONVIERTECIFRA(TEXTO, SW)
DIM CENTENA
DIM DECENA
DIM UNIDAD
DIM TXTCENTENA
DIM TXTDECENA
DIM TXTUNIDAD
CENTENA = MID(TEXTO, 1, 1)
DECENA =...
tracking img