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;