const
cColumn:array[1..13] of string =
('B','C','D','E','F','G','H','I','J','K','L','M','N');
//行合计:行合计所在列为N列
F1Main.FormulaRC[i,14]:= 'sum(B'+IntToStr(i)+':'+'M'+IntToStr(i)+')';
//列合计:列合计从第二列开始
for k:=1 to 13 do
begin
F1Main.FormulaRC[i,k+1]:= 'sum('+cColumn[k]+'5:'+cColumn[k]+IntToStr(i-1)+')';
end;
delphi F1Book的行列动态合计
最新推荐文章于 2019-01-12 16:52:04 发布