Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо