Автоподбор высоты

[tae1980]

ALL: Есть таблицы, полностью состоящие из объединенных строк, так как без этого невозможно воссоздать структуру таблиц. Объединения происходит по столбцам, но текст далеко не всегда помещается в одну строчку. Стандартный автоподбор высоты не работает для объединенных ячеек. :(( Пока обходиться дополнительным вертикальным объединением по строчкам, но как понимаете решение не фонтан. Так что вопрос: нужен макрос или иное средство для автоподбора высоты объединенных ячеек.
Как быть? Что делать? (Кто виноват? :))) Где и куда рыть?

[EducatedFool]

Где и куда рыть?

Ройте в этом направлении:

Sub AutoFitMergeAreaSize(ByRef cell As Range)
    Dim ra As Range: Set ra = cell.MergeArea
    cell.UnMerge
    cell.EntireRow.AutoFit
    ra.Merge
End Sub

Sub ПримерИспользования_АвтоподборВысотыОбъединённойЯчейки()
    AutoFitMergeAreaSize ActiveCell
    AutoFitMergeAreaSize [d3]
End Sub

[tae1980]

Сообщение от EducatedFool

Ройте в этом направлении:

Спасибо! Побежал за лопатой!

[tae1980]

Сообщение от EducatedFool

Ройте в этом направлении:

[1] Sub AutoFitMergeAreaSize(ByRef cell As Range)
[2]     Dim ra As Range: Set ra = cell.MergeArea
[3]     cell.UnMerge
[4]     cell.EntireRow.AutoFit
[5]     ra.Merge
[6] End Sub

Sub ПримерИспользования_АвтоподборВысотыОбъединённойЯчейки()
    AutoFitMergeAreaSize ActiveCell
    AutoFitMergeAreaSize [d3]
End Sub

Попробую разобрать процедуру:
1. на входе: переменная cell тип "ячейка"
2. объявляем переменную ra тип "ячейка": заносим в нее объединенные диапазон переменной cell
3. разбиваем объединение переменной cell. При этом содержимое оказывается в первой ячейке.
4. Делаем автоподбор высоты для первой ячейки.
5. Восстанавливаем объедение.

Скажем если изначально в объединенной ячейки было 10 столбцов, а информации было на две строки при таком объединение, то при запуске программы получаем что высота строки раз в десять превосходит нужную, т.к. это высота необходимая для размещения всей информации в первом из десяти столбцов....

Попробую еще подумать...

[vetal74]

Напишите куда вставлять этот макрос? Я в этом полный .. . . .. . .

[VictorM]

Напишите куда вставлять этот макрос?

В модуль кода рабочей книги.
ALT+F11
Входите в редактор, затем - вставить модуль и вот туда вставляете код макроса.
Хотя можно и модуль рабочего листа.
п.к.м на ярлыке листа - Исходный код - и вставляете код в открывшемся окне.

[vetal74]

можно вставить макрос только в одну ячейку (не объеденную) на одном рабочем листе? И где найти исходный код там все по английски написано, а я всю жизнь учил немецкий. Какую книжку мне полистать, чтобы я немного имел представление о VBA

[EducatedFool]

И где найти исходный код там все по английски написано, а я всю жизнь учил немецкий

Что поделаешь... немецкого языка в VBA нет, придётся разбираться с английским.
(русский, к сожалению, есть - но такой русский VBA есть только в программе 1С)

Какую книжку мне полистать, чтобы я немного имел представление о VBA

Выбирайте любую.
http://excelvba.ru/books.html