Как выровнять высоту строк в Excel

Доброе время суток мастера!У меня имеется задача вставить многострочный текст в объединенную ячейку в Excel. Текст заносится без проблем, но при авто выравнивании строки, средствами Excel, отображается только первая строка текста. Я пробую решить ету проблему путем указания высоты строки в ручную, но для етого мне необходимо узнать высоту отображаемого текста. Может кто знает как узнать, ету, высоту отображаемого текста.Если у кого есть другие методы решения етой задачи, пишите, буду рад любым идеям!!!

Включи в Excel «записать макрос». Потом в формате ячейки установи «переносить по словам», занеси в ячейку длинный текст, нажми enter (если высота ячейки не установится автоматом, то дважды щелкни по нижней границе в заголовке строки) и посмотри, что получилось в макросе.

Можно проще: WrapText:=true;

Вот пример конкретнее с компонентом Excel:….Cells.Item[5,5].VerticalAlignment:=xlValignTop;Cells.Item[5,5].HorizontalAlignment:=xlCenter;Cells.Item[5,5].WrapText:=true;Одна фишка: если ты объединил ячейки в 4-ой и 5-ой строках, то пиши в 4-ой строке.Удачи.

> Вот пример конкретнее с компонентом Excel:> ….> Cells.Item[5,5].VerticalAlignment:=xlValignTop;> Cells.Item[5,5].HorizontalAlignment:=xlCenter;> Cells.Item[5,5].WrapText:=true;> Одна фишка: если ты объединил ячейки в 4-ой и 5-ой строках,> то пиши в 4-ой строке.Ксожалению ето не работает. Продлема в том что Excel сам не выравнивает высоту строки. Если ето как -то поможет, у меня идет объединение ячеек нескольких столбцов одной строки.

VG © (28.09.05 10:39) [4]У меня выровнивает сам. Office 2003 SP1

Открываешь хелп по Excel — там все есть:…\Program Files\Microsoft Office\1049\VBAXL10 — if OfficeXP

У меня стоит Office Xp. Я произвожу следующие действия: Объединяю две ячейки в строке (получатся объединение ячеек в двух столбцов в одной строке). Печатаю в Worde многострочный многострочный текст например:"Мамамылараму" — копирую его в буфер. Затем вхожу в режим редактирования объединенной ячейки вставляю туда текст. Выхожу из режима редактирования, путем выделения другой ячейки. Затем в столбце нумерования строк дважды кликаю левой кнопкой мыши, на нижней границе ячейки, которая определяет нумерацию строки, в которой расположена моя объединенная ячейка. И ни хрена не происходит. Но если произвести те же самые действия без объединения ячеек, т.е. вставить текст не в объединенную ячейку, то excel выравнивает высоту строки по тексту.Я уже пришел к варианту решения етой задачи. Сначала вставлять заначение в необъединенную ячейку, педварительно задав етой ячейке длину объекдиненной, делать выравнивание по высоте строки запоминать высоту строки, а затем объединять ячейки вставлять туда значение и потом задать етой ячейки найденную высотк. Но етот вариант мне кажется не очень корректным.

> tytus (28.09.05 10:51) [6] > Открываешь хелп по Excel — там все есть:> …\Program Files\Microsoft Office\1049\VBAXL10 — if OfficeXPСпасибо не знал о таком прикольном хелпере.

Наверх