UNA DE EXCEL

Post Reply
Marco Augusto
Posts: 122
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

UNA DE EXCEL

Post by Marco Augusto »

Alguien podria indicarme como hacerle para
sumar celdas, utilizo la clase tole de la siguiente forma:


oXls:=TOLEAUTO():NEW("EXCEL.APPLICATION")
oXls:WORKBOOKS:ADD()
oBOOK:=oXLS:GET("ActiveWorkBook")
oSHEET:=oXLS:GET("ActiveSheet")
*
oSHEET:CELLS(4,2):VALUE="SALDO INICIAL"
oSHEET:CELLS(4,3):VALUE="ENERO"
oSHEET:CELLS(4,4):VALUE="FEBRERO"
oSHEET:CELLS(4,5):VALUE="MARZO"
oSHEET:CELLS(4,6):VALUE="ABRIL"
oSHEET:CELLS(4,7):VALUE="MAYO"
oSHEET:CELLS(4,8):VALUE="JUNIO"
oSHEET:CELLS(4,9):VALUE="JULIO"
oSHEET:CELLS(4,10):VALUE="AGOSTO"
oSHEET:CELLS(4,11):VALUE="SEPTIEMBRE"
oSHEET:CELLS(4,12):VALUE="OCTUBRE"
oSHEET:CELLS(4,13):VALUE="NOVIEMBRE"
oSHEET:CELLS(4,14):VALUE="DICIEMBRE"
oSHEET:CELLS(4,15):VALUE="TOTAL"
*
FOR N=1 TO 15
oSHEET:CELLS(4,N):Font:Name:="ARIAL"
oSHEET:CELLS(4,N):Font:Size:=12
oSHEET:CELLS(4,N):Font:bold:=.t.
oSHEET:CELLS(4,N):BORDERS():LINESTYLE:=1
NEXT N
*
oSHEET:CELLS(REN,3):VALUE=TRANS(N01,"999,999,999.99")
oSHEET:CELLS(REN,4):VALUE=TRANS(N02,"999,999,999.99")
oSHEET:CELLS(REN,5):VALUE=TRANS(N03,"999,999,999.99")
oSHEET:CELLS(REN,6):VALUE=TRANS(N04,"999,999,999.99")
oSHEET:CELLS(REN,7):VALUE=TRANS(N05,"999,999,999.99")
oSHEET:CELLS(REN,8):VALUE=TRANS(N06,"999,999,999.99")
oSHEET:CELLS(REN,9):VALUE=TRANS(N07,"999,999,999.99")
oSHEET:CELLS(REN,10):VALUE=TRANS(N08,"999,999,999.99")
oSHEET:CELLS(REN,11):VALUE=TRANS(N09,"999,999,999.99")
oSHEET:CELLS(REN,12):VALUE=TRANS(N10,"999,999,999.99")
oSHEET:CELLS(REN,13):VALUE=TRANS(N11,"999,999,999.99")
oSHEET:CELLS(REN,14):VALUE=TRANS(N12,"999,999,999.99")
*


y quisiera crear una nueva celda con la suma de las anteriores
oSHEET:CELL(REN,15):value:=????????

Saludos y gracias de antemano
Marco Augusto Rodriguez Manzo
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport

PERZO SOFT
Sistemas Personalizados
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Post by Manuel Valdenebro »

Marcos,

Todas las fórmulas se ponen entrecomilladas:


oSHEET:CELL(REN,15):value:="=@SUMA( B5:B" + LTRIM(STR(REN)) + ")"
Un saludo

Manuel
Marco Augusto
Posts: 122
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

Post by Marco Augusto »

MUCHAS GRACIAS
FUNCIONO PERFECTO
Marco Augusto Rodriguez Manzo
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport

PERZO SOFT
Sistemas Personalizados
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Post by Vikthor »

Solo para rizar el rizo, puedes usar la configuración local del Excel que tenga instalado.

Code: Select all

METHOD Formula( nRow , nCol , cValue ) CLASS TExcelScript // [ Vikthor ]
   #IFDEF __XHARBOUR__
      TRY
      // ::oSheet:Cells( nRow , nCol ):Formula:=cValue
         ::oSheet:Cells( nRow , nCol ):FormulaLocal:=cValue
      CATCH
         MsgStop( "La formula no es correcta "+cValue , "Aviso al usuario")
      END
	#ELSE
       ::oSheet:Cells( nRow , nCol ):FormulaLocal:=cValue
	#ENDIF
RETURN( Nil )
Vikthor
Miguel Salas
Posts: 132
Joined: Sun Oct 23, 2005 4:09 pm
Location: Pánuco,Ver. México

Post by Miguel Salas »

hay forma de sustituir los a,b,c, por 1,2,3 como en la filexls?
saludos cordiales
Post Reply