黄金三镖客下载:Excel VBA 自动填充公式
function TUInsInterFace.FormulaAotoFill2XLS(irow: integer): boolean;
var
str1,str2,XMMC:string;
EndRow, EndColumn, r, c:integer;
begin
Workbook.Worksheets.item['sheet1'].Activate;
for c:=2 to 13 do
begin
XMMC:=Trim(WorkBook.Worksheets.Item['Sheet1'].Cells[1,c].Text);
if XMMC<>'' then
begin
if XMMC[1]='(' then //有()的代表有公式的项目,需要自动填充公式
begin
eclApp.ActiveSheet.Cells[2,c].select;
for r:= 1 to irow-1 do
begin
eclApp.Selection.Offset[1,0].Select; //[1,0]移动1行,0列,即同一列上操作
eclApp.Selection.FillDown;
end;
end;
end;
end;
end;
function TUInsInterFace.FormulaAotoFill(irow:integer): boolean;
var
str1,str2,XMMC:string;
EndRow, EndColumn, r, c:integer;
begin
//eclApp.WorkSheets[1].UsedRange.Rows.Count
// WorkBook.Worksheets.Item['Sheet1'].Cells[irow,icol].value:=WorkBook2.Worksheets.Item['Sheet1'].Range[sName].value;
EndRow:=eclApp.worksheets[1].UsedRange.Row + eclApp.worksheets[1].UsedRange.Rows.Count - 1;
EndColumn:=eclApp.worksheets[1].UsedRange.Column + eclApp.worksheets[1].UsedRange.Columns.Count - 1;
for c:=2 to EndColumn do
begin
XMMC:=Trim(eclApp.worksheets[1].Cells[1,c].Text);
if XMMC<>'' then
begin
if XMMC[1]='(' then //有()的代表有公式的项目,需要自动填充公式
begin
eclApp.worksheets[1].Cells[2,c].select;
for r:= 1 to irow-1 do
begin
eclApp.Selection.Offset[1,0].Select; //[1,0]移动1行,0列,即同一列上操作
eclApp.Selection.FillDown;
end;
end;
end;
end;
{eclApp.CellDragAndDrop:=True;
eclApp.ActiveSheet.Range['I2','I2'].Select;
eclApp.Selection.AutoFill(eclApp.ActiveSheet.Range['I2','I3']);
}
{
eclApp.worksheets[1].Range['I2','I2'].Select;
eclApp.Selection.AutoFill(eclApp.ActiveSheet.Range['I2','I3']); }
end;
类别:默认分类 |