Setear celda como numerica con TOleAuto ??

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Setear celda como numerica con TOleAuto ??
Posted: Sun Aug 03, 2008 03:16 AM

Saludos, pues lo que pregunto en el titulo, como hacer con la TOle para definir que una celda en Excel sea numerica con 2 decimales y con separador de miles ??

Ya se por ejemplo como definir el tamano de la letra :
oHoja :Cells( 4, 3 ):Font:Size := 12

Pero ni idea de como definir la celda como numerica y con separador de miles.
Gracias

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

Enrrique Vertiz

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Setear celda como numerica con TOleAuto ??
Posted: Sun Aug 03, 2008 03:28 AM

Yo mismo me contesto, se hace con :

oHoja :Cells( nFil, 5 ):NumberFormat := "#,##0.00"

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Setear celda como numerica con TOleAuto ??
Posted: Tue Mar 20, 2012 11:51 AM

Estimados;
Mas abajo pregunto como asignar una condición numérica.
Lo encontré en este post para una celda.
Como lo hago para la columna?

gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: Setear celda como numerica con TOleAuto ??
Posted: Wed Mar 21, 2012 07:43 AM

Change the Alignment of the columns A to D

Code (fw): Select all Collapse

oSheet:Range("A:D"):Columns:HorizontalAlignment:=xlRight

Regards
Anser

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Setear celda como numerica con TOleAuto ??
Posted: Wed Mar 21, 2012 11:13 AM

nuevament, gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Setear celda como numerica con TOleAuto ??
Posted: Thu Mar 22, 2012 12:54 PM

Estimados;
Ahora necesito, con los datos exportados, crear una Tabla para que de esa manera el usuario pueda establecer un orden a su gusto.
Para ello, siguiendo el post de Sebastían Almirón, http://forums.fivetechsupport.com/viewtopic.php?f=6&t=21201&hilit=excel+toleauto#p112740, cree una macro para ver como establecer la Tabla desde código.
Edito la macro, pero como ya desconozco al viejo y noble Visual Basic

, no se como tomar sus datos.
Este es el codigo de la macro:

Code (fw): Select all Collapse

Sub OrdenarTabla()
'
' OrdenarTabla Macro
'

'
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$4602"), , xlYes).Name = _
        "Tabla5"
    Range("Tabla5[#All]").Select
End Sub

Interpreto que las 2 últimas líneas son las que necesito... peeero

y lo que pretendo es que quede así:

Como debería hacerlo?

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: Setear celda como numerica con TOleAuto ??
Posted: Mon Mar 26, 2012 11:21 AM

Try this

Code (fw): Select all Collapse

#Include "Fivewin.ch"

#Define xlToRight -4161
#Define xlDown    -4121
//---------------------//
Function Main()
    Local oExcel,oBook,oSheet
    
    oExcel:=CreateObject("Excel.Application")
    oExcel:DisplayAlerts=.F.
    oBook:=oExcel:Workbooks:Open("D:\Anser.xlsx")
    oSheet:=oExcel:ActiveSheet() 

    oSheet:Range("A1"):Select()
    oSheet:Range(oExcel:Selection(), oExcel:Selection:End(xlToRight)):Select()
    oSheet:Range(oExcel:Selection(), oExcel:Selection:End(xlDown)):Select()
    oExcel:Selection:AutoFilter()
    oExcel:Visible = .T.    

Return NIL

Regards
Anser

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Setear celda como numerica con TOleAuto ??
Posted: Mon Mar 26, 2012 12:07 PM

Thanks! Anser
it was what needed

Regards

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FiveTech Support Forums

Continue the discussion