MS Excel - Как закрасить диапазон ячеек ?

← →
tytus © (2007-07-30 13:06) [0]

Вот собственно и вопрос. Нужно закрасить диапазон ячеек произвольным цветом.

← →
Сергей М. © (2007-07-30 13:08) [1]

Соответствующий макрос ты записал и, конечно же, его текст тебе ни о чем не сказал ?)

← →
tytus © (2007-07-30 13:26) [2]

>Сергей М. © (30.07.07 13:08) [1]
Какой макрос?
вот все что есть.
Excel1:TExcelApplication;

procedure TForm1.Button1Click(Sender: TObject);
var
Sheet:Variant;
i:integer;
begin
Excel1.Connect;
Excel1.SheetsInNewWorkbook[0]:=1;
Excel1.Workbooks.Add(EmptyParam,0);
Sheet:=Excel1.WorkBooks[1].Sheets[1];
with Excel1 do
begin
for i:=0 to 99 do
Range[Cells.Item[i+1,1],Cells.Item[i+1,2]].Interior.ColorIndex:=i;
end;
Excel1.Visible[0];
end;

вот оно и ругаеццо на Interior...

← →
tytus © (2007-07-30 13:32) [3]

а... вспомнил.
во первых - for i:=0 to 36 - возможно нету ColorIndex=100
(в справке VBAXL10.CHM об ентом ничего не говорится)
во вторых - опечатка
Excel1.Visible[0]:=true;
Вот вроде бы и все - всем спасибо!

(в справке VBAXL10.CHM об ентом ничего не говорится)
оказывается говорится - раскопал
xlColorIndex=1..56

MS Excel - Как закрасить диапазон ячеек ? Найти похожие ветки