Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

Как выделить цветом и обвести ячейку в Excel?   Найти похожие ветки 

 
Dmitr   (2002-06-26 14:04) [0]

Подскажите пожалуйста как обвести ячейку или диапазон в Excel...


 
kat ©   (2002-06-26 14:19) [1]

IDispatch(IR1) := ISheet.Cells.Item[StartRow, StartColumn];
IDispatch(IR2) := ISheet.Cells.Item[StartRow + ods.RecordCount , StartColumn + ColCount - 1];
IRange := ISheet.Range[IR1,IR2];
IRange.Borders.item[xlDiagonalDown].LineStyle := xlNone;
IRange.Borders.item[xlDiagonalUp].LineStyle := xlNone;

IRange.Borders.item[xlEdgeLeft].LineStyle := xlContinuous;
IRange.Borders.item[xlEdgeLeft].Weight := xlThin;
IRange.Borders.item[xlEdgeLeft].ColorIndex := xlAutomatic;

IRange.Borders.item[xlEdgeTop].LineStyle := xlContinuous;
IRange.Borders.item[xlEdgeTop].Weight := xlThin;
IRange.Borders.item[xlEdgeTop].ColorIndex := xlAutomatic;

IRange.Borders.item[xlEdgeBottom].LineStyle := xlContinuous;
IRange.Borders.item[xlEdgeBottom].Weight := xlThin;
IRange.Borders.item[xlEdgeBottom].ColorIndex := xlAutomatic;

IRange.Borders.item[xlEdgeRight].LineStyle := xlContinuous;
IRange.Borders.item[xlEdgeRight].Weight := xlThin;
IRange.Borders.item[xlEdgeRight].ColorIndex := xlAutomatic;

IRange.Borders.item[xlInsideVertical].LineStyle := xlContinuous;
IRange.Borders.item[xlInsideVertical].Weight := xlThin;
IRange.Borders.item[xlInsideVertical].ColorIndex := xlAutomatic;

IRange.Borders.item[xlInsideHorizontal].LineStyle := xlContinuous;
IRange.Borders.item[xlInsideHorizontal].Weight := xlThin;
IRange.Borders.item[xlInsideHorizontal].ColorIndex := xlAutomatic;


 
Dmitr   (2002-07-05 12:18) [2]

Спасибо Kat извини что поздно.....



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

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
3-81160
DmitryN
2002-07-04 08:09
2002.07.25
Delphi+MS SQL+SQLDMO


1-81235
TTCustomDelphiMaster
2002-07-13 21:35
2002.07.25
Помогите!!! Два часа сижу вату катаю. Запарился уже.


1-81369
MASTERok
2002-07-14 00:53
2002.07.25
Прозрачность


14-81437
Феликс
2002-06-27 12:58
2002.07.25
Фильм


14-81410
Orest
2002-06-26 12:27
2002.07.25
Где достать Turbo pascal for windows?