VPF::Подбор высоты в объединенных ячейках

RockClimber

Дата 16.7.2010, 09:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15

Excel 2003
Excel не умеет определять высоту объединенных ячеек (Autofit результата не дает). А надо. Есть 4 объединенные ячейки, в которых может быть текст очень большой длины. В голову приходит только такая последовательность: отмена объединения, увеличение ширины в 4 раза, Autofit, уменьшение ширины обратно, объединение.
А проще никак?

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

FINANSIST

Дата 19.7.2010, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Статус: Жив

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 13
Всего: 23

RockClimber, спасибо за разминку для мозга smile

Как тебе такое вот решение?

Код


Sub Merge_Height()
Dim cll As Variant: Dim cell_len As Double
For Each cll In Selection.Cells
Let cell_len = cell_len + cll.ColumnWidth
Next cll
ActiveCell.RowHeight = Round(Len(ActiveCell.Value) / cell_len, 0) * 13
End Sub

--------------------

“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »