Excel Cell Background and Font Color

[TheVig]

FORMAT-A-PA-LOOZA

Code:

Copy      Help

out
ExcelSheet es.Init
ARRAY(str) a

for _i 1 56
,Excel.Range ra=es.ws.Application.Range(F"A{_i}:F{_i}")
,ra.Font.ColorIndex=_i
,;ra.Font.Background
,ra.Font.Bold=TRUE
,ra.Font.Italic=TRUE
,ra.Font.Name="TIMES"
,ra.Font.Size=11
,ra.Interior.ColorIndex=56-_i