Главная страница
    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.042 c
2-1127321877
RiP
2005-09-21 20:57
2005.10.16
Как из строковой переменой посимвольно считать в массив типа real


3-1125919738
Пантелеев Иван
2005-09-05 15:28
2005.10.16
Добавление записи


2-1127111629
ZZZ
2005-09-19 10:33
2005.10.16
Сокращение времени компиляции.


3-1125668330
Ландграф Павел
2005-09-02 17:38
2005.10.16
.mde как вы оцениваете уровень встроеной защиты?


2-1126191575
Чайникп
2005-09-08 18:59
2005.10.16
zip





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский