Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Изменение формат ячеек в Excele [D7, XP]

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

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

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

LionMen (2006-01-27 16:08:00) [1]
Спасип, Umbra!!! Как раз мне это и надо ))))!!! Dmitrij_K, не обижайся.. Времени нет (((, работы других полно. Так что извини, что так. Все равно спасип всем ))))

umbra (2006-01-27 15:13:00) [2]
А, наверное я понял. То, что Вы ищете - это свойство WrapTextобъекта Range. Пользоваться им надо примерно так:

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

Dmitrij_K (2006-01-27 15:04:00) [3]

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

Учись

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

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

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

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

Dmitrij_K (2006-01-27 14:29:00) [5]
Сделай макрос, код почти не отличается

umbra (2006-01-27 14:29:00) [6]
процесс выглядит достаточно сложно. Если не секрет, что надо получить в результате?

Наверх

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