EXCELL de KDV Matrahı hesaplatma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ozcank
Üye
Mesajlar: 925
Kayıt: 28 Nis 2005 05:29

EXCELL de KDV Matrahı hesaplatma

Mesaj gönderen ozcank »

Arkadaşlar , Excel e raporu alırken bir hesaplatma yapmak istiyorum ama hata aldım yardımcı olur musunuz ?

Rapor Button basınca bu sorgu çalışıyor ve rapor alırken hücrelerde hesaplatma yapmak istiyorum normalde excel de ;

=(G3*100)/1 yaptığımda çalışıyor ben de bunu delphide sorguya aktarmak istedim ama olmadı. Yardımcı olur musunuz ?

Kod: Tümünü seç

     //// KDV MATRAH HESAPLAMA
     Sheet.Cells[Row,11].Formula := '=SUM((G3*100)/1' + InttoStr(Row - 1) + ')'; /// bur da hesaplama yaptım ama olmadı

Kod: Tümünü seç

end;
       Next;
       Inc(Row); // Row := Row + 1;
     end;
     Sheet.Cells[Row, 4].Formula := '=SUM(D3:D' + InttoStr(Row - 1) + ')';
     Sheet.Cells[Row, 5].Formula := '=SUM(E3:E' + InttoStr(Row - 1) + ')';
     Sheet.Cells[Row, 6].Formula := '=SUM(F3:F' + InttoStr(Row - 1) + ')';
     Sheet.Cells[Row, 7].Formula := '=SUM(G3:G' + InttoStr(Row - 1) + ')';
     Sheet.Cells[Row, 8].Formula := '=SUM(H3:H' + InttoStr(Row - 1) + ')';
     Sheet.Cells[Row, 9].Formula := '=SUM(I3:I' + InttoStr(Row - 1) + ')';
     Sheet.Cells[Row,10].Formula := '=SUM(J3:J' + InttoStr(Row - 1) + ')';

     //// KDV MATRAH HESAPLAMA

     Sheet.Cells[Row,11].Formula := '=SUM((G3*100)/1' + InttoStr(Row - 1) + ')'; /// bur da hesaplama yaptım ama olmadı



     Sheet.Range['A' + InttoStr(Row), 'J' + InttoStr(Row)].Font.Color := 255;
     Sheet.Range['A' + InttoStr(Row), 'J' + InttoStr(Row)].Font.Bold := True;
  end;
  finally
    Sheet.Columns['A:J'].EntireColumn.AutoFit;


Cevapla