Delphi Excel自动化：如何实现单元格整宽双会计下划线

要实现和手动设置的A1单元格一致的、覆盖整个单元格宽度的下划线（会计式双下划线），按以下步骤操作：

1. 确认常量定义 #

如果你的Delphi项目未自动导入Excel类型库的常量，需手动添加：

const
  xlUnderlineStyleDoubleAccounting = 5; // Excel官方对应的常量值

2. 正确编写代码 #

直接对目标单元格的Font对象设置下划线样式，不要用Characters（后者仅针对单元格内部分文本，无法实现全宽效果）：

// WS为已初始化的Excel Worksheet对象
WS.Cells[3, 1].Font.Underline := xlUnderlineStyleDoubleAccounting;

常见问题说明 #

• 之前的Characters[1,4]写法错误：该方法仅对单元格内指定范围的文本设置格式，会计下划线是针对整个单元格的格式，必须直接作用于单元格的Font属性
• 若代码无报错但效果不对，检查是否正确定义了常量，或确认Excel中A3单元格的内容未被设置为特殊对齐（会计下划线会自动适配单元格宽度，不受常规对齐方式影响）

内容的提问来源于stack exchange，提问作者stevenvh