FoxClub Forums > Visual Foxpro, Foxpro for DOS > Перенос по слова в объединённых ячейках ::

• Войти

Перенос по слова в объединённых ячейках
Sergeynizamov Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 15.10.21 08:23:04 Доброе время суток попытался про гуглить! не смог найти ответа! решил спросить у опытных ! Суть проблемы: вывожу данные в excel объединяю 3 ячейки (к примеру: А1:С1) , после объединения не получается вывести длинное слово в этот диапазон, перенос слов не срабатывает! Если в одно ячейку вывести данные то срабатывает! нашел .select.Row.AutoFit - попытался его применить! не получается! может кто знает или подскажите примером, как это сделать! и сделать ли вообще!? по форуму поискал! не получилось найти.

Sergeynizamov

Сообщений: 76
Дата регистрации: 21.09.2018

Sergeynizamov

15.10.21 08:23:04

Доброе время суток попытался про гуглить! не смог найти ответа! решил спросить у опытных !
Суть проблемы: вывожу данные в excel объединяю 3 ячейки (к примеру: А1:С1) , после объединения не получается вывести длинное слово в этот диапазон, перенос слов не срабатывает!
Если в одно ячейку вывести данные то срабатывает!
нашел .select.Row.AutoFit - попытался его применить! не получается!
может кто знает или подскажите примером, как это сделать! и сделать ли вообще!?
по форуму поискал! не получилось найти.

Re: Перенос по слова в объединённых ячейках
AleksM Автор Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 15.10.21 08:54:21 Перенос слов то как раз срабатывает, а вот автоподбор высоты строки по объединенным ячейкам не работает. Это особенность Excelя. И эта тема как раз уже обсуждалась и решение было. Поищи по форуму. ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: Перенос по слова в объединённых ячейках

AleksM
Автор

Сообщений: 17881
Дата регистрации: 11.11.2003

AleksM

15.10.21 08:54:21

Перенос слов то как раз срабатывает, а вот автоподбор высоты строки по объединенным ячейкам не работает. Это особенность Excelя. И эта тема как раз уже обсуждалась и решение было. Поищи по форуму.

------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.

Re: Перенос по слова в объединённых ячейках
Sergeynizamov Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 15.10.21 08:59:16 Спасибо!

Re: Перенос по слова в объединённых ячейках
AleksM Автор Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 15.10.21 09:27:49 Это на VBA и на коленке: Sub RowAutoFit() cWidth = Columns("C:C").ColumnWidth f = Range("A1:B1").EntireColumn.ColumnWidth * 2 Columns("C:C").ColumnWidth = f Range("C1") = Range("A1") Rows("1:1").RowHeight = Rows("1:1").RowHeight Range("C1") = "" Columns("C:C").ColumnWidth = cWidth End Sub ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: Перенос по слова в объединённых ячейках

AleksM
Автор

Сообщений: 17881
Дата регистрации: 11.11.2003

AleksM

15.10.21 09:27:49

Это на VBA и на коленке:

Sub RowAutoFit()
    cWidth = Columns("C:C").ColumnWidth
    f = Range("A1:B1").EntireColumn.ColumnWidth * 2
    Columns("C:C").ColumnWidth = f
    Range("C1") = Range("A1")
    Rows("1:1").RowHeight = Rows("1:1").RowHeight
    Range("C1") = ""
    Columns("C:C").ColumnWidth = cWidth
End Sub

------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 20 (Гостей: 20)