Search  
Saturday, February 11, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.

SearchForum Home
  Visual FoxPro  Office Automation  formatare subto...
 formatare subtotaluri
 
 4/21/2010 11:15:46 AM
User is offlineEMRE.RESIT
46 posts


formatare subtotaluri
 (Romania)
cum sa formatez subtotalurile prin comenzi office automation, adica sa fac tot randul boldat, sau mai bine cum selectez dupa ce fac subtotalurile linia pe care sunt si sa le boldez automat pe toate
 4/21/2010 12:50:21 PM
User is offlineDaniel Buduru
2141 posts
1st




Re: formatare subtotaluri
 (N/A)

oExcel.Range('A10:X10').Font.Bold=1

unde totalul ar fi pe randul 10, de la coloana A la coloana X, iar oExcel obiectul creat cu CreateObject("Excel.Application")

Daniel Buduru
 4/21/2010 2:12:27 PM
User is offlineEMRE.RESIT
46 posts


Re: formatare subtotaluri
 (Romania)
DA, ASA MERGE DAR DACA NU STII UNDE VINE SUBTOTAL?? SI IN FIECARE ZI ACEL RAND SE MODIFICA POZITIA LUI?
 4/21/2010 2:13:10 PM
User is offlineEMRE.RESIT
46 posts


Re: formatare subtotaluri
 (Romania)
O FI CEVA CU LASTCELL, LASTROW DAR NU STIU SA-L SELECTEZ DIN SUBTOTAL
 4/21/2010 2:26:22 PM
User is offlineEMRE.RESIT
46 posts


Re: formatare subtotaluri
 (Romania)
POT SAI DAU CEVA CARE SA CAUTE IN EXCEL CELULELE CARE CONTINE TOTAL SI SA LE SELECTEZ PE ALEA SI DUPA AIA SA LE BOLDEZ NUMAI PE ALEA? MULTUMESC ANTICIPAT
 4/21/2010 7:17:07 PM
User is offlineDaniel Buduru
2141 posts
1st




Re: formatare subtotaluri
 (N/A)
Ultima celula:

oLastCell=oExcell.ActiveCells.SpecialCell(11)

Cautare text in celule:

WITH oExcell
lcText='Total'
lnRow=0
Do While .T.
    loCell=.ActiveCell.Find('total',.ActiveCell,,2,1,1,0)
    if isnull(loCell) or loCell.Row<lnRow
       exit
    endif
    loCell.Activate
    lnRow=loCell.Row
    .Rows(loCell.Row).Font.Bold=1
ENDDO
ENDWITH

Daniel Buduru
 4/22/2010 8:51:17 AM
User is offlineEMRE.RESIT
46 posts


Re: formatare subtotaluri
 (Romania)
multam fain e bun codul doar ca lam adaptat putin la nevoile mele
 4/22/2010 8:56:31 AM
User is offlineEMRE.RESIT
46 posts


Re: formatare subtotaluri
 (Romania)
o singura intrebare totusi: cuma arata codul lui outline in foxpro; ceva de genul activesheet.outline.showlevels rowlevels:=2???
  Visual FoxPro  Office Automation  formatare subto...

Search  Forum Home         

 Google Ads Minimize

    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement