-07-21 16:34
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;
类别：默认分类 |
|添加到搜藏 |分享到i贴吧 | 浏览(154) |评论(0)
上一篇：delphi Grid网格记忆列变动的设...下一篇：Excel 自动筛选行列
相关文章：
excel VBA案例——填充列空行Excel中删除重复数据(用VBA代码)
VBA合并多个Excel工作簿合并多个excel表格的VBA
【Excel 学园VBA】定制模块行为将你在Excel中写的Vba程序做成插...
利用VBA设置excel工作表使用权限EXCEL VBA 从表中提取含有特定内...
Excel VBA 学习总结 - 纵论核心...Excel中"控件"与VBA的基本知识
更多>>
