![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MS Excel - Как закрасить диапазон ячеек ? [D7, WinXP]
tytus © (2007-07-30 13:06:00)Вот собственно и вопрос. Нужно закрасить диапазон ячеек произвольным цветом.
tytus (2007-07-30 13:36:00) [1](в справке VBAXL10.CHM об ентом ничего не говорится)
оказывается говорится - раскопал
xlColorIndex=1..56
tytus (2007-07-30 13:32:00) [2]а... вспомнил.
во первых - for i:=0 to 36 - возможно нету ColorIndex=100
(в справке VBAXL10.CHM об ентом ничего не говорится)
во вторых - опечатка
Excel1.Visible[0]:=true;
Вот вроде бы и все - всем спасибо!
tytus (2007-07-30 13:26:00) [3]>Сергей М. © (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...
Сергей М. (2007-07-30 13:08:00) [4]Соответствующий макрос ты записал и, конечно же, его текст тебе ни о чем не сказал ?)