Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Высота строки в Excel   Найти похожие ветки 

 
VG ©   (2005-09-28 09:39) [0]

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


 
dmitry501 ©   (2005-09-28 09:59) [1]

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


 
tytus   (2005-09-28 10:11) [2]

Можно проще:

 WrapText:=true;


 
tytus   (2005-09-28 10:21) [3]

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


 
VG ©   (2005-09-28 10:39) [4]


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

Ксожалению ето не работает. Продлема в том что Excel сам не выравнивает высоту строки.
Если ето как -то поможет, у меня идет объединение ячеек нескольких столбцов одной строки.


 
dmitry501 ©   (2005-09-28 10:41) [5]

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


 
tytus   (2005-09-28 10:51) [6]

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


 
VG ©   (2005-09-28 13:34) [7]

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

Я уже пришел к варианту решения етой задачи. Сначала вставлять заначение в необъединенную ячейку, педварительно задав етой ячейке длину объекдиненной, делать выравнивание по высоте строки запоминать высоту строки, а затем объединять ячейки вставлять туда значение и потом задать етой ячейки найденную высотк. Но етот вариант мне кажется не очень корректным.


 
VG ©   (2005-09-28 13:39) [8]


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

Спасибо не знал о таком прикольном хелпере.



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

Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.037 c
1-1127225050
Германн
2005-09-20 18:04
2005.10.16
Ошибка Invalid File Name


14-1127734001
Megabyte
2005-09-26 15:26
2005.10.16
Письмо от Кобальта, часть 2-я


14-1126609315
INeedYourHelp
2005-09-13 15:01
2005.10.16
Лицензионная Delphi 7 studio enterprise


14-1127846871
syte_ser78
2005-09-27 22:47
2005.10.16
Посоветуйте программу.


4-1124011803
Denis_Ac
2005-08-14 13:30
2005.10.16
Hook Chain





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский