delphi 生成excel时 指定单元格背景颜色------马上结贴

Question

delphi 生成excel 指定单元格背景颜色

Answer 1

给你一段VBA。    Range("B27").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With

Answer 2

怎么用？
range := asheet.range[asheet.cells[i+1,4],asheet.cells[i+1,4]];//选定表格
range.select;
range.merge; //合并单元格
//range.borders.linestyle:=xlcontinuous; //置边框线可见
//range.font.size:=9; //改变表格内文本字体大小
range.font.color := clRed;
我的代码设置字体颜色可以，但我不知道怎么设置背景颜色

Answer 3

ExcelApp.ActiveCell.Borders.Color  := clRed;
ExcelApp.ActiveCell.Interior.Color := clRed;