FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Formato de celda TOleAuto()
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Formato de celda TOleAuto()
Posted: Wed Apr 16, 2014 05: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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Formato de celda TOleAuto()
Posted: Wed Apr 16, 2014 06: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
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Formato de celda TOleAuto()
Posted: Wed Apr 16, 2014 07: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!
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Formato de celda TOleAuto() (Solucionado)
Posted: 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

Continue the discussion