Изменение формат ячеек в Excele

← →
LionMen © (2006-01-27 13:21) [0]

Всем, Привет!
Вот пытаюсь в делфи написать прогу по изменению формата ячеек в Екселе, допустим, длинный текст:" Я хочу сделать это!", надо разбить на 2 ячейки, то есть обьединить в одну. В Екселе есть меню Формат-Ячейки, Выравнивание-Отображение: Переносить по словам,Автоподбор ширины и Обьединение ячеек. Вот, хочу, чтобы этот текст при вставке разбилась пополам, т е по размеру столбца, вторую половину переносилась в след. ячейку, т е под первой ячейки.
Пример:
" Я хочу сделать это!" - 1 ячейка

Хочу так
______________
|" Я хочу | } - 1 ячейка
____________
|сделать это!" | } - 2 ячейка
______________
потом автоматически обьединить в одну ячейку то есть в первую
______________
|" Я хочу | } - 1 ячейка
|сделать это!" | }
______________

Думаю, достаточно разьяснил вопрос. Может кто знает или кто делал тогда то, плиз, обьясните мне, как? Заранее благадорен!!!

← →
Dmitrij_K (2006-01-27 14:29) [1]

Сделай макрос, код почти не отличается

← →
umbra © (2006-01-27 14:29) [2]

процесс выглядит достаточно сложно. Если не секрет, что надо получить в результате?

← →
LionMen © (2006-01-27 14:49) [3]

В результате надо получить отчет в виде таблицы, с границами, с размером столбца. Мне надо хотя бы 1 столбец постоянно имел свой размер, если я буду ставить по размеру текста, будет слишком длинная строка, ну естесно ячейка. Вот, хотелось бы чтобы при вставке тескта, автоматически переносили по словам, т е дать столбца, допустим А1, формат ячеек - перенос по словам, остальные пусть по размеру других параметров (цифры), т е Range["b1","b1"].ColumnWidth:=Length(Параметр);
Макросы писать я не умею, если кому не лень, опишите поподробнее с командами, ок?
Но хочется написать все в Делфи)).

← →
Dmitrij_K (2006-01-27 15:04) [4]

> Макросы писать я не умею

Учись

> если кому не лень, опишите поподробнее с командами

Халява - плохо

В Экселе
сервис - макрос - начать запись
делаешь что хотел
сервис - макрос - остановить запись
сервис - макрос - макросы - войти
Вот твой код

А, наверное я понял. То, что Вы ищете - это свойство WrapText объекта Range. Пользоваться им надо примерно так:

ExcelApp.Workbooks[1].Worksheets[1].Range("A1:C10").WrapText := True;

Спасип, Umbra!!! Как раз мне это и надо ))))!!! Dmitrij_K, не обижайся.. Времени нет (((, работы других полно. Так что извини, что так. Все равно спасип всем ))))

Изменение формат ячеек в Excele Найти похожие ветки