rodrigo_1108@
BUENO BUENO...
yo tampoco podia pero ya pude... con un macro no me preguntes que chingados es un macro, solo te dire donde colocaras la siguiente informacion que te dare...
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 opcion que 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 de esta 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 o secreto 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 MILES
DIM 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) > "" THEN
CADENA = CADENA & " " & CADMILES & " MIL"
END IF
IF TRIM(CADMILES & CADCIENTOS) = "UN" THEN
CADENA = CADENA & "UNO PESOS" & DECIMALES & "/100" & " M.N. "
ELSE
IF MILES & CIENTOS = "000000" THEN
CADENA = CADENA & " " & TRIM(CADCIENTOS) & " PESOS " & DECIMALES & "/100" & " M.N. "
ELSE
CADENA = CADENA & " " & TRIM(CADCIENTOS) & " PESOS " & DECIMALES & "/100" & " M.N. "
END IF
END IF
CONVIERTENUMLETRA = 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 = MID(TEXTO, 2, 1)
UNIDAD = MID(TEXTO, 3, 1)
SELECT CASE CENTENA
CASE "1"
TXTCENTENA = "CIEN"
IF DECENA & UNIDAD <> "00" THEN
TXTCENTENA = "CIENTO"
END IF
CASE "2"
TXTCENTENA = "DOSCIENTOS"
CASE "3"
TXTCENTENA = "TRESCIENTOS"
CASE "4"
TXTCENTENA = "CUATROCIENTOS"
CASE "5"
TXTCENTENA = "QUINIENTOS"
CASE "6"
TXTCENTENA = "SEISCIENTOS"
CASE "7"
TXTCENTENA = "SETECIENTOS"
CASE "8"
TXTCENTENA = "OCHOCIENTOS"
CASE "9"
TXTCENTENA = "NOVECIENTOS"
END SELECT
SELECT CASE DECENA
CASE "1"
TXTDECENA = "DIEZ"
SELECT CASE UNIDAD
CASE "1"
TXTDECENA = "ONCE"
CASE "2"
TXTDECENA = "DOCE"
CASE "3"
TXTDECENA = "TRECE"
CASE "4"
TXTDECENA = "CATORCE"
CASE "5"
TXTDECENA = "QUINCE"
CASE "6"
TXTDECENA = "DIECISEIS"
CASE "7"
TXTDECENA = "DIECISIETE"
CASE "8"
TXTDECENA = "DIECIOCHO"
CASE "9"
TXTDECENA = "DIECINUEVE"
END SELECT
CASE "2"
TXTDECENA = "VEINTE"
IF UNIDAD <> "0" THEN
TXTDECENA = "VEINTI"
END IF
CASE "3"
TXTDECENA = "TREINTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "TREINTA Y "
END IF
CASE "4"
TXTDECENA = "CUARENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "CUARENTA Y "
END IF
CASE "5"
TXTDECENA = "CINCUENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "CINCUENTA Y "
END IF
CASE "6"
TXTDECENA = "SESENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "SESENTA Y "
END IF
CASE "7"
TXTDECENA = "SETENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "SETENTA Y "
END IF
CASE "8"
TXTDECENA = "OCHENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "OCHENTA Y "
END IF
CASE "9"
TXTDECENA = "NOVENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "NOVENTA Y "
END IF
END SELECT
IF DECENA <> "1" THEN
SELECT CASE UNIDAD
CASE "1"
IF SW THEN
TXTUNIDAD = "UN"
ELSE
TXTUNIDAD = "UNO"
END IF
CASE "2"
TXTUNIDAD = "DOS"
CASE "3"
TXTUNIDAD = "TRES"
CASE "4"
TXTUNIDAD = "CUATRO"
CASE "5"
TXTUNIDAD = "CINCO"
CASE "6"
TXTUNIDAD = "SEIS"
CASE "7"
TXTUNIDAD = "SIETE"
CASE "8"
TXTUNIDAD = "OCHO"
CASE "9"
TXTUNIDAD = "NUEVE"
END SELECT
END IF
CONVIERTECIFRA = TXTCENTENA & " " & TXTDECENA & TXTUNIDAD
END FUNCTION
------------------------------...
Ya que pegaste lo sig. entonces das clic en guardar (en donde tu quieras) cierras esas ventanas (2) y solo queda la de tu doc. abierta ahora lo que sigue es activarla para que funcione en tu doc.
1.-da click en el icono que esta en excel (fx) que esta en excell se llama pegar funcion te aparece una nueva ventana que tiene todas las funciones, de el lado izquiero se encuentra una lista donde daras click en todas y buscaras la sig. CONVIERTENUMLETRA (en el aparatado nombre de funcion.) das click en aceptar y te aparece otra ventana que te pide una referencia tieres que dar clic en la flecha rojita que se ve al final de el cuadro donde se deve escrivir se minimiza al dar click ahi y se posesiona dando clic a la celda donde esta el numero que quieres convertir en texto (das un click y precionas enter) y finalmente aceptar y te aparecera tu RESULTADO...
YO SE QUE PARA ESTE MOMENTO ME LA VAS A ESTAR MENTANDO POR LO TARDADO EN EXPLICAR ...PERO TE SERVIRA....
CUALQUIER QUEJA A rodrigo54180@yahoo.com.mx
Esta informacion no la deseches pegala en una hoja de word por si te hace falta algun dia...
Fuente(s):
si no funciona me doy de baja....neta
2006-09-21 09:15:27
·
answer #1
·
answered by el peor de tus antojos... 4
·
0⤊
0⤋
es un marika insasiable
2006-09-21 15:43:55
·
answer #2
·
answered by Anonymous
·
1⤊
0⤋
Preguntale a el
2006-09-21 15:38:15
·
answer #3
·
answered by Republicano 4
·
1⤊
0⤋
Yo pienso que me da exactamente lo mismo que una persona sea homosexual o no. No es NADA importante. Además, ni idea de quién es ese tipo.
2006-09-21 16:05:38
·
answer #4
·
answered by Anonymous
·
0⤊
0⤋
Por supuesto que lo es!!!!
pero eso que importa?????
antes de ser gay es un pesado, mala leche, envidioso, cacarizo, pesado.
Lo unico bueno que ha hecho fue producir su programa que por los defectos antes mencionados ya le cancelaron y gracias a el conocimos a La Bogue aka la tesorito y a Marthita Fox que esas dos si son unas buenazas!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Igual y es un travesti de closet??????
2006-09-21 15:53:58
·
answer #5
·
answered by Anonymous
·
0⤊
0⤋
Yo digo q si es. Pero cada quien, no?
D cualquier forma, me cae BASTANTE mal. Se me hace MUYYYYYYY hipócrita.
OJO: no tiene nada q ver esto q digo con q Horacio sea o no sea gay!
2006-09-21 15:49:53
·
answer #6
·
answered by Bleue 3
·
0⤊
0⤋
Yo opino que el no ha salido del closet, es super choto.....gracias, saludos.
2006-09-21 15:45:35
·
answer #7
·
answered by Jackye 4
·
0⤊
0⤋
yo digo que es un wuey muy seguro de si mismo que no tiene pelos en la lengua aunque aveces esto le ocasiona ser muy ofensivo yo digo que es bi.que lastima que lo sacaron de telehit por que horribles 80's era la neta.
2006-09-21 15:45:26
·
answer #8
·
answered by deborah h 2
·
0⤊
0⤋
yo creo que si es gay
2006-09-21 15:45:11
·
answer #9
·
answered by Melina 5
·
0⤊
0⤋
la mayoria que salen en tele hit son yo creo que si
2006-09-21 15:45:05
·
answer #10
·
answered by bebesita 3
·
0⤊
0⤋