![]() |
![]() |
Products | Download | Order | Forum | Contact us |
WorkBook.Sheets[1].UsedRange.Select;
Workbook.Sheets[1].UsedRange.Font.Italic := True;
With Workbook.Sheets[1].UsedRange do begin
for i := 1 to Rows.Count do
if (i mod 2) = 0 then Rows[i].Font.Bold := True;
end;
| Copyright © NikaSoft 2004-2012 |