PREGUNTA SOBRE EXCEL 2003

08/11/2006 - 00:09 por ALEXANDER | Informe spam
NECESITO LA FORMULA PARA CONVERTIR CIFRAS(VALORES) HACIA LETRAS EN UNA HOJA
DE CALCULO.

EJEMPLO 364.08 RESPUESTA: TRESCIENTOS SESENTA Y CUATROS 08/100 DOLARES Y
ESTO PARA DIFERENTES VALORES

UTILIZO EL OFFICE 2003

GRACIAS
 

Leer las respuestas

#1 alberto
08/11/2006 - 00:49 | Informe spam
Alexander:

esto es de lo mas socorrido en este foro, hay propuestas de macros, ligas
con direcciones en la web, etc, puedes ver en buscar , numeros a textos y te
despliega , muchas opciones, o esta es la que yo utilizo empieza en A1
A B C D
0
1 un ciento un mil
2 dos doscientos dos mil
3 tres trescientos tres mil
4 cuatro cuatrocientos cuatro mil
5 cinco quinientos cinco mil
6 seis seiscientos seis mil
7 siete setecientos siete mil
8 ocho ochocientos ocho mil
9 nueve novecientos nueve mil
10 diez diez mil
11 once
12 doce
13 trece
14 catorce
15 quince
20 veinte
30 treinta
40 cuarenta
50 cincuenta
60 sesenta
70 setenta
80 ochenta
90 noventa
=SI(A34<16;"";SI(VALOR(DERECHA(A34;1))>0;" y ";""))
=SI(A41<16;"";SI(VALOR(DERECHA(A41;1))>0;" y ";""))
=SI(A48<16;"";SI(VALOR(DERECHA(A48;1))>0;" y ";""))
=VALOR(COCIENTE(A57;1))
=REDONDEAR(1+A57-(REDONDEAR(A57;0));2)
=REDONDEAR(SI(A29>0.99;A29-1;A29);2)
=SI(A30>0.09;" "&(100*A30)&"/100";" 0"&(100*A30)&"/100")
=VALOR(DERECHA(A28;1))
=SI(A32=0;"";SI(A32=1;" uno ";BUSCARV(A32;A$1:D$24;2)))
=SI((VALOR(DERECHA(COCIENTE(A28;1);2)))>9;VALOR(DERECHA(COCIENTE(A28;1);2));0)
=SI(A34<16;BUSCARV(A34;A$1:D$24;2);BUSCARV(ENTERO(A34/10)*10;A$1:D$24;2)&A25&BUSCARV(VALOR(DERECHA(A34;1));A$1:D$24;2))
=SI(A34<10;" "&A33;" "&A35)
=SI(DERECHA(COCIENTE(A$28;100);1)>0;VALOR(DERECHA(COCIENTE(A$28;100);1));0)
=SI(A37=0;"";SI(VALOR(A37&A34&A32)0;" cien ";"
"&BUSCARV(A37;A$1:D$24;3)))
=SI(DERECHA(COCIENTE(A$28;1000);1)>0;VALOR(DERECHA(COCIENTE(A$28;1000);1));0)
=SI(A39=0;"";BUSCARV(A39;A$1:D$24;4))
=SI(DERECHA(COCIENTE(A$28;1000);2)>0;VALOR(DERECHA(COCIENTE(A$28;1000);2));0)
=SI(A41<16;BUSCARV(A41;A$1:D$24;2);BUSCARV(ENTERO(A41/10)*10;A$1:D$24;2)&A26&BUSCARV(VALOR(DERECHA(A41;1));A$1:D$24;2))
=SI(A41<10;" "&A40;" "&A42&" mil")
=SI(DERECHA(COCIENTE(A$28;100000);1)>0;VALOR(DERECHA(COCIENTE(A$28;100000);1));0)
=SI(A44=0;"";SI(VALOR(A44&A41&A39)0;" cien mil
";BUSCARV(A44;A$1:D$24;3)))
=SI(DERECHA(COCIENTE(A$28;1000000);1)>0;VALOR(DERECHA(COCIENTE(A$28;1000000);1));0)
=SI(A46=0;"";BUSCARV(A46;A$1:D$24;2)&" millones ")
=SI(DERECHA(COCIENTE(A$28;1000000);2)>0;VALOR(DERECHA(COCIENTE(A$28;1000000);2));0)

=SI(A48<16;BUSCARV(A48;A$1:D$24;2);BUSCARV(ENTERO(A48/10)*10;A$1:D$24;2)&A27&BUSCARV(VALOR(DERECHA(A48;1));A$1:D$24;2))
=SI(A48<10;A47;A49&" millones ")
=SI(DERECHA(COCIENTE(A$28;100000000);1)>0;VALOR(DERECHA(COCIENTE(A$28;100000000);1));0)
=SI(A51=0;"";SI(VALOR(A51&A48&A46)0;" cien ";BUSCARV(A51;A$1:D$24;3)&"
"))
=SI(DERECHA(COCIENTE(A$28;1000000000);1)>0;VALOR(DERECHA(COCIENTE(A$28;1000000000);1));0)
=SI(A53=0;"";BUSCARV(A53;A$1:D$24;4)&" ")
cada "=si" esta en un renglon llega hasta A54
el renglon 55 lo deje vacio
esto que sigue esta en renglon 56
A B
~~~ PROTECTOR (***,~~,///,ETC)
440.69 CANTIDADA TECLEEAR
PESOS MONEDA O UNIDAD
M.N. TIPO
renglon 60 vacio , la siguiente formula celda A61
=MAYUSC(A56&A54&A52&A50&A45&A43&A38&A36&A58&A31&A59&A56)
copialo, comentas



"ALEXANDER" escribió:

NECESITO LA FORMULA PARA CONVERTIR CIFRAS(VALORES) HACIA LETRAS EN UNA HOJA
DE CALCULO.

EJEMPLO 364.08 RESPUESTA: TRESCIENTOS SESENTA Y CUATROS 08/100 DOLARES Y
ESTO PARA DIFERENTES VALORES

UTILIZO EL OFFICE 2003

GRACIAS

Preguntas similares