Скачать: CL | DM;

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;
Вот вроде бы и все - всем спасибо!

---

← →
tytus ©   (2007-07-30 13:36) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c