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

← →
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) Екселем она коректно будет работать?

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

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

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

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