<![CDATA[Fox4um - excelde 0 ları saklama]]> http://www.fox4um.com/topic/970/excelde-0-lari-saklama/ Wed, 14 May 2008 11:14:10 +0000 PunBB <![CDATA[Re: excelde 0 ları saklama]]> http://www.fox4um.com/post/5771/#p5771 çetin hocam,söyleyecek söz bulamıyorum.iyiki varsınız ve bu sitede bizlerlesiniz teşekkür ederim

]]> Wed, 14 May 2008 11:14:10 +0000 http://www.fox4um.com/post/5771/#p5771 <![CDATA[Re: excelde 0 ları saklama]]> http://www.fox4um.com/post/5770/#p5770 Çetin H. çok teşekkür ederim.

Neyzen'in sorusunu anlamadım ama genel bir yardım öneriyorum:
Excel açıkken menüden Araçlar -> Makro -> Visual Basic Düzenleyici tıklanınca (veya Alt-F11) çıkan pencereden Object Browser tıklanınca bütün excel komutları çıkıyor. Azcık ingilizce tahmin ile kodlar ve helpler var. hemen hemen her şeyi bulabiliyorsunuz.

(ben sorduğum soruyu Range içerisinde aramıştım, active window imiş..)

]]> Wed, 14 May 2008 09:41:02 +0000 http://www.fox4um.com/post/5770/#p5770 <![CDATA[Re: excelde 0 ları saklama]]> http://www.fox4um.com/post/5769/#p5769 Gonlumden 70 derece koptu:) Orientation -90, 90 arasi deger. -70 de dene.

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

#Define xlTop -4160

Local oExcel

oExcel = Createobject("Excel.Application")

With oExcel

  .WorkBooks.Add

  .Visible = .T.

  VFP2Excel(_samples+'data\testdata.dbc',;

    'select emp_id,first_name,last_name,CAST(CHRTRAN(notes,CHR(13),"") as M) as Notes from employee',;

    .ActiveWorkBook.ActiveSheet.Range('A1'))

    

  * This part is cosmetic  

  With .ActiveWorkBook.ActiveSheet

    .UsedRange.VerticalAlignment = xlTop && set all to top

    With .Columns(5)

      .ColumnWidth = 80 && 80 chars width

      .WrapText = .T.

    Endwith

    .UsedRange.Rows(1).Orientation = 70

    .UsedRange.Columns.AutoFit

    .UsedRange.Rows.AutoFit

  Endwith

Endwith

 

Function VFP2Excel

  Lparameters tcDataSource, tcSQL, toRange

  Local loConn As AdoDB.Connection, ;

    loRS As AdoDB.Recordset,;

    ix

  loConn = Createobject("Adodb.connection")

  loConn.ConnectionString = "Provider=VFPOLEDB;Data Source="+m.tcDataSource

  loConn.Open()

  loRS = loConn.Execute(m.tcSQL)

 

  For ix=1 To loRS.Fields.Count

    toRange.Offset(0,m.ix-1).Value = Proper(loRS.Fields(m.ix-1).Name)

    toRange.Offset(0,m.ix-1).Font.Bold = .T.

  Endfor

  toRange.Offset(1,0).CopyFromRecordSet( loRS )

  loRS.Close

  loConn.Close

Endfunc
]]> Wed, 14 May 2008 09:34:30 +0000 http://www.fox4um.com/post/5769/#p5769 <![CDATA[Re: excelde 0 ları saklama]]> http://www.fox4um.com/post/5765/#p5765 :-) çetin hocam excele yazdırdığımız bilgilerin 1 satırını başlık olarak kabul edersek;
bu kolonların başlıklarını nasıl dikey olarak yazdırırız diye sorsam, çok mu abartmış olurum :-)

]]> Wed, 14 May 2008 08:15:54 +0000 http://www.fox4um.com/post/5765/#p5765 <![CDATA[Re: excelde 0 ları saklama]]> http://www.fox4um.com/post/5761/#p5761 ActiveWindow.DisplayZeros = .f.

Menude nerededir bilmem, herhalde options altindadir.

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

oExcel = CREATEOBJECT('Excel.application')

WITH oExcel

  .Workbooks.Add

  WITH .Activeworkbook.ActiveSheet

    .Range('A1:E20').Value = 100

    .Range('B5:C10').Value = 0

  ENDWITH

  .ActiveWindow.DisplayZeros = .f.

  .visible = .t.

endwith
]]> Tue, 13 May 2008 20:22:34 +0000 http://www.fox4um.com/post/5761/#p5761 <![CDATA[excelde 0 ları saklama]]> http://www.fox4um.com/post/5759/#p5759 excelde menüden bulamadım.
sıfır değerli hücrelerin boş çıkmasının komutu nasıl (VFP içinden olursa daha da sevinirim)
(bizim @Z karşılığını arıyorum)
peşinen teşekkürler

]]> Tue, 13 May 2008 15:27:10 +0000 http://www.fox4um.com/post/5759/#p5759