| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

TStas ©   (2005-09-15 03:03:00) 

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

---

Profi   (2005-12-05 03:26:00) [1]

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

---

YurikGL   (2005-12-02 21:49:00) [2]

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

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

---

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

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

---

YurikGL   (2005-12-01 17:34:00) [4]

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



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


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

---

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

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

---

umbra   (2005-11-30 14:44:00) [6]

xlBorderLineStyleContinuous и xlBorderLineStyleAutomatic

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

---

HeathRow   (2005-11-30 11:55:00) [7]

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

---

apollo   (2005-09-15 15:02:00) [8]

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

Не Around, а BorderAround

---

apollo   (2005-09-15 14:59:00) [9]

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

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

---

dmitry501   (2005-09-15 05:55:00) [10]


......................
 // Левая верхняя ячейка области, в которую будем выводить данные
 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;
..................


---

Наверх