Excel

← →
Id (2006-02-15 12:08) [0]

Здраствуйте, Уважаемые Мастера.
Подскажите, пожалуйста, как в Excel-e программно выделить сеткой группу ячеек. Пробовал провести аналогию через макрос - не могу подобрать синтаксис

← →
КаПиБаРа © (2006-02-15 12:11) [1]

procedure SetEdge(Range: OleVariant);
begin
Range.Borders[xlEdgeLeft].LineStyle := xlContinuous;
Range.Borders[xlEdgeLeft].Weight := xlMedium;
Range.Borders[xlEdgeTop].LineStyle := xlContinuous;
Range.Borders[xlEdgeTop].Weight := xlMedium;
Range.Borders[xlEdgeBottom].LineStyle := xlContinuous;
Range.Borders[xlEdgeBottom].Weight := xlMedium;
Range.Borders[xlEdgeRight].LineStyle := xlContinuous;
Range.Borders[xlEdgeRight].Weight := xlMedium;
if Range.Columns.Count > 1 then
begin
Range.Borders[xlInsideVertical].LineStyle := xlContinuous;
Range.Borders[xlInsideVertical].Weight := xlThin;
end;
if Range.Rows.Count > 1 then
begin
Range.Borders[xlInsideHorizontal].LineStyle := xlContinuous;
Range.Borders[xlInsideHorizontal].Weight := xlThin;
end;
end;

← →
Id (2006-02-15 12:52) [2]

exBook.workSheets[1].Range["a1","a2"].Borders[xlEdgeLeft].LineStyle := xlContinuous; exBook.workSheets[1].Range["a1","a2"].Borders[xlEdgeLeft].Weight := xlMedium;
Предполагаю, что это тоже самое, но неработает...

← →
Digitman © (2006-02-15 12:56) [3]

> неработает

Что, так и говорит, мол, не работаю ?

← →
EvS (2006-02-15 13:53) [4]

Регион по-моему так задается Range["A1:A2"]

← →
КаПиБаРа © (2006-02-15 13:55) [5]

function SetRange(WorkBook: OleVariant; y1, x1, y2, x2: Integer): OleVariant;
begin
Result := WorkBook.WorkSheets[1].Range[
WorkBook.WorkSheets[1].Cells[y1, x1],
WorkBook.WorkSheets[1].Cells[y2, x2]];
end;

Кхм... Мне так кажется, по саюжу это надо:

создаем, etc... ... XL.Workbooks.Add; ... XL.Range["A1","A1"].Select;

епрст... перечитал вопрос... сорри. Вот, вроде, решение:

XL.Range[XL.Cells[5,5], XL.Cells[10, 10]].Borders.Weight := 2;

Excel Найти похожие ветки