九乡新闻网黄金三镖客下载:Excel VBA 自动填充公式
来源：百度文库 编辑：九乡新闻网 时间：2024/05/01 18:40:53
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的基本知识更多>>