Formato de celda TOleAuto()

Formato de celda TOleAuto()

Postby jrestojeda » Wed Apr 16, 2014 5:40 pm

Hola a todos,
Estoy queriendo formatear un número en Excel con la clase TOleAuto() y no se como se debe hacer para poner el formato que yo necesito.
Si alguno tiene una lista de los formateos posibles estaré agradecido, pero en principio necesito esto:

En la celda tengo el valor: 19954821,55 y quiero que se visualice formateado de la siguiente manera: $ 19.954.821,55

Desde ya muchas gracias.
Saludos,
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
User avatar
jrestojeda
 
Posts: 583
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Re: Formato de celda TOleAuto()

Postby cnavarro » Wed Apr 16, 2014 6:40 pm

Puedes mirar el METHOD ToExcel( bProgress, nGroupBy, aCols ) CLASS TXBrowse
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6501
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Formato de celda TOleAuto()

Postby joseluisysturiz » Wed Apr 16, 2014 7:39 pm

Estas funciones que deseas, las consigo todas de la misma manera que se hace en Visual Basic...aca te dejo el ejemplo probado y todo, para saber los formatos, basta con entrar en excel y dar formato a una celda, esos mismos que te muestra son los que se usan con TOleAuto, por lo menos los que he usado, saludos... :shock:

oHoja:Cells( 3, 1 ):NumberFormat := "$ ###,##0.00" // FORMATEAR UNA CELDA...

ACA DEJO OTRAS OPCIONES QUE SE PUEDEN APLICAR SOBRE UNA CELDA...

*** oHoja:Cells:Font:Name := "Arial" // ESPECIFICA TIPO DE LETRA PARA TODA LA HOJA
*** oHoja:Cells:Font:Size := 12 // ESPECIFICA TAMANO DE LETRA PARA TODA LA HOJA
*** oHoja:Cells( 1, nFor ):Font:Size := 16 // DETERMINA TAMAÑO DE LETRA A USAR EN UNA CELDA
*** oHoja:Cells( 1, 1 ):Font:Bold := .t. // PONE EN NEGRITAS VALOR DE UNA CELDA
*** oHoja:Cells( 1, 1 ):Font:ColorIndex := 5 // COLOR PREESTABLECIDO DE EXCEL DEL CONTENIDO DE LA CELDA
*** oHoja:Cells( 3, 2 ):Font:Color := RGB(255,0,0) // COLOR DEL CONTENIDO DE LA CELDA
*** oHoja:Cells( 1, 4 ):Interior:ColorIndex := 16 // COLOR PREESTABLECIDO DE EXCEL DE LA CELDA
*** oHoja:Cells( 3, 2 ):Interior:Color := RGB(200,160,35) // COLOR DE LA CELDA
*** oHoja:Cells( 3, 1 ):NumberFormat := "$ ###,##0.00" // FORMATEAR CELDA NUMERICA
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: Formato de celda TOleAuto() (Solucionado)

Postby jrestojeda » Thu Apr 17, 2014 11:36 am

Excelente José Luis,
Quedó perfecto!
Muchas gracias.
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
User avatar
jrestojeda
 
Posts: 583
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 64 guests