excel hesaplama

[zengin]

merhaba

arkadaşlar programımda execel içinde sayfa.cells[6,6] :='=F5+E6'; hesaplama işlemini cogaltmak istiyorum

örnek

=F5+E6
=F6+E7
=F7+E8
=F8+E9

Bu şekilde 10 kayıt veya durmuma göre 100 kayıt çoğaltmak istiyorum bunu nasıl sırasına göre çoğaltabilirim bana bu konuda yardımlarınızı bekliyorum kolay gelsin

[xozcanx]

Merhaba,
Sorunuz pek açıklayıcı değil biraz daha detay iyi olur.

Kod: Tümünü seç

sayfa.cells[6,6].Formula :='=Sum(F5:E9)';

Yukarıdaki şekilde F5 ile E9 arasını toplamış olursunuz.

[zengin]

Merhaba

Ustacağım ben toplam almayacam
Cari hesap alt alta toplam ödeme kalan gibi alt alta
Toplayacak

[xozcanx]

Ustacığım kod bloğunu görmeden seni anlamamızı istemen bilemiyorum..

sayfa.cells[6,6] :='=F5+E6';
Eğer bu alanların gelen kayıtlar doğrultusunda artmasını istiyorsan;
Bir döngü ile kayıtları çekiyorsundur ve bir artan değerin vardır mutlaka(pratik olması açısından).

ozaman şöyle yapman gerekmez mi?

Kod: Tümünü seç

Var
  i,x:integer;
Begin
  x:=5;
  For i := 1 to Query.RecortCount-1 do
  Begin
    sayfa.cells[6,x+1] :='=F'+inttoStr(x)'+E'+inttoStr(x);
    i:=i+1;
    x:=x+1;
  End;
End;

[zengin]

s.a

ustacığım iş yerimizde sipariş fişi yazdırma işlemi yaparken örnek excelde 15 kayıt ve ilave için bu formülü kullanıyoruz bazen program harici ilavelerimiz oluyor

Kod: Tümünü seç

 x:=5;
   // while not IBCTable2.Eof do
  For i := 1 to IBCTable2.RecordCount-1 do
    begin
    sutun := sutun + 1;
    satir := satir + 1;

    sayfa.cells[4 + satir, sutun + 0] :=  IBCTable2PARCA_NO1.Text+' '+IBCTable2PARCA_NO2.Text+' '+IBCTable2PARCA_NO3.Text;
    sayfa.cells[4 + satir, sutun + 1] :=  IBCTable2ACIKLAMA.Text;
    sayfa.cells[4 + satir, sutun + 2] :=  IBCTable2ADET.Value;
    sayfa.cells[4 + satir, sutun + 3] :=  IBCTable2SATIS_TUTAR.AsCurrency;
//    sayfa.cells[4 + satir, sutun + 4] :=  IBCTable2SATIS_TOPLAM.AsCurrency;
    sayfa.cells[6,x+1] :='=F'+inttoStr(x)+'+'+'E'+inttoStr(x); //burası 1 hücreye formül atıyor bunun bana alt alta formül yazması gerek ? bazen 25000 kayıt oluyor

   IBCTable2.Next;
   end;

Kod: Tümünü seç

tutar                toplam

340,00                    340,00
35,00	                 375,00
300,00	                 675,00
2.150,00           	2.825,00

[zengin]

s.a

ustacığım excel içinde F5+E6'; hesaplama işlemini

Kod: Tümünü seç

sayfa.cells[5 + satir, sutun + 5] :='=F'+inttoStr(x)+'+'+'E'+inttoStr(x+1);

bu şekilde işlem oldu cok teşekkür ederim

[xozcanx]

s.a

ustacığım excel içinde F5+E6'; hesaplama işlemini

Kod: Tümünü seç

sayfa.cells[5 + satir, sutun + 5] :='=F'+inttoStr(x)+'+'+'E'+inttoStr(x+1);

bu şekilde işlem oldu cok teşekkür ederim

Ustacığım sen bu işi biliyorsun