Вниз
Скачать: CL | DM;

Как с экселе обвести рамочками диапазон?   Найти похожие ветки 

 
TStas ©   (2005-09-15 03:03) [0]

Пробовал писать мышкой макрос, состоящий из одного действия, но он очень запутанный получается


 
dmitry501 ©   (2005-09-15 05:55) [1]


......................
 // Левая верхняя ячейка области, в которую будем выводить данные
 Cell1 := MyExcel.Cells[BeginRow,BeginCol];
 // Правая нижняя ячейка области, в которую будем выводить данные
 Cell2 := MyExcel.Cells[BeginRow + RowCount - 1, BeginCol + ColCount-1];
 // А вот и сам вывод данных
 MyExcel.Range[Cell1, Cell2].Value := ArrayData;
 // Отформатируем
 MyExcel.Range[Cell1,Cell2].Borders.LineStyle := 1;
 MyExcel.Range[Cell1,Cell2].Font.Bold := False;
..................


 
apollo ©   (2005-09-15 14:59) [2]

MyExcel.Range[Cell1,Cell2].Around(<LineStyle>,<Weight>,<ColorIndex>,<Color>);

Например:
MyExcel.Range[Cell1,Cell2].Around(xlContinuous,xlThin,xlAutomatic,EmptyParam);


 
apollo ©   (2005-09-15 15:02) [3]

Исправление к предыдущему

Не Around, а BorderAround


 
HeathRow   (2005-11-30 11:55) [4]

При компиляции говорит:
Undeclared identifier: "xlContinuous"
Undeclared identifier: "xlAutomatic"


 
umbra ©   (2005-11-30 14:44) [5]

xlBorderLineStyleContinuous и xlBorderLineStyleAutomatic

но вообще то справка по Excel VBA рулит


 
HeathRow   (2005-12-01 07:36) [6]

Работающий пример привести можно?
Всего одну строчку.


 
YurikGL ©   (2005-12-01 17:34) [7]


> Работающий пример привести можно?



> MyExcel.Range[Cell1,Cell2].Around(xlContinuous,xlThin,xlAutomatic,EmptyParam);


uses Excel2000 если не ошибаюсь...


 
HeathRow   (2005-12-02 07:38) [8]

Спасибо. А с 2003-им (тобишь XP) Екселем она коректно будет работать?


 
YurikGL ©   (2005-12-02 21:49) [9]


> Спасибо. А с 2003-им (тобишь XP) Екселем она коректно будет
> работать?

Должно работать


 
Profi ©   (2005-12-05 03:26) [10]

HeathRow   (02.12.05 7:38) [8]
XP и 2003 - разные вещи, но должно.



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

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



Память: 0.47 MB
Время: 0.022 c
4-1160821750
rll-progr
2006-10-14 14:29
2007.06.10
Управление окном другого приложения


2-1179493388
Bonuss
2007-05-18 17:03
2007.06.10
заблокировать комп


11-1161453735
SysError
2006-10-21 22:02
2007.06.10
KOLBitBtn изменить изображение


8-1159548370
Tab
2006-09-29 20:46
2007.06.10
Что выбрать gdi или gdi+?


4-1167389492
Chaser
2006-12-29 13:51
2007.06.10
Проблема с событием MouseUp в ListView




   Наверх