TMS FlexCel 合并单元格
属性和方法
TXlsFile.MergeCells
procedure MergeCells(const firstRow: Integer; const firstCol: Integer; const lastRow: Integer; const lastCol: Integer);
将多个单元格合并为一个。
此方法可能返回比指定的范围更大的范围。 例如,如果您有一个合并单元格 (A1:C1),调用
MergeCells(1,2,2,2)
会将单元格与现有单元格合并,返回一个合并单元格 (A1:C2),而不是 (B1: B2)。Excel 支持合并单元格内中的单个行样式。 也就是说,可以只让合并单元格的前两列有线条,而其他列没有。 通常,在合并单元格后,您需要在范围上调用
TExcelFile.SetCellFormat(Integer, Integer, Integer)
以使它们都相似。 FlexCel默认不会这样做,以便给您选择。
参数
firstRow 合并单元格的第一行。
firstCol 合并单元格的第一列。
lastRow 合并单元格的最后一行。
lastCol 合并单元格的最后一列。
TXlsFile.CellMergedBounds
function CellMergedBounds(const row: Integer; const col: Integer): TXlsCellRange
单元格所在的合并范围。
参数
row 行索引( 索引从1开始)
col 列索引( 索引从1开始)
返回值
单元格所在的范围
如果在A1:B2范围内有一个合并单元格,则在任何单元格:A1、B1、A2、B2上调用
CellMergedBounds
将返回A1:B2。
例子
合并单元格
uses VCL.FlexCel.Core, FlexCel.XlsAdapter;
procedure TForm1.Button26Click(Sender: TObject);
var
Xls: TXlsFile;
I: Integer;
vRange: TXlsCellRange;
begin
//创建一个新的空Excel文件,使用Excel 2019格式
Xls := TXlsFile.Create(1, TExcelFileFormat.v2019, true);
try
//添加内容
for I := 1 to 5 do
begin
Xls.SetCellValue(I, 1, 'A' + I.ToString);
Xls.SetCellValue(I, 2, 'B' + I.ToString);
Xls.SetCellValue(I, 3, 'C' + I.ToString);
Xls.SetCellValue(I, 4, 'D' + I.ToString);
end;
//合并B1:C2
Xls.MergeCells(1, 2, 2, 3);
//输出信息
vRange := Xls.CellMergedBounds(1, 2);
Memo1.Lines.Add('合并范围 ' + vRange.CellRef);
Memo1.Lines.Add('单元格[' + vRange.Top.ToString + ',' + vRange.Left.ToString + ']' +
' 单元格[ ' + vRange.Bottom.ToString + ',' + vRange.Right.ToString + ']');
//再合并A2:B2,B1:C2已经合并,得到A1:C2
Xls.MergeCells(2, 1, 2, 2);
//输出信息
vRange := Xls.CellMergedBounds(1, 2);
Memo1.Lines.Add('合并范围 ' + vRange.CellRef);
Memo1.Lines.Add('单元格[' + vRange.Top.ToString + ',' + vRange.Left.ToString + '] 到' +
' 单元格[' + vRange.Bottom.ToString + ',' + vRange.Right.ToString + ']');
//保存文件
Xls.Save('C:\Users\Administrator\Desktop\ceshi.xlsx');
finally
Xls.Free;
end;
end;
原文地址:http://www.cnblogs.com/txgh/p/16905509.html
1. 本站所有资源来源于用户上传和网络,如有侵权请邮件联系站长!
2. 分享目的仅供大家学习和交流,请务用于商业用途!
3. 如果你也有好源码或者教程,可以到用户中心发布,分享有积分奖励和额外收入!
4. 本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解!
5. 如有链接无法下载、失效或广告,请联系管理员处理!
6. 本站资源售价只是赞助,收取费用仅维持本站的日常运营所需!
7. 如遇到加密压缩包,默认解压密码为"gltf",如遇到无法解压的请联系管理员!
8. 因为资源和程序源码均为可复制品,所以不支持任何理由的退款兑现,请斟酌后支付下载
声明:如果标题没有注明"已测试"或者"测试可用"等字样的资源源码均未经过站长测试.特别注意没有标注的源码不保证任何可用性