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

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;

---

← →
КиТаЯц ©   (2006-02-15 14:20) [6]

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

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

---

← →
КиТаЯц ©   (2006-02-15 14:43) [7]

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

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

---

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

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



Память: 0.46 MB
Время: 0.024 c