Excel : автоподбор высоты строк

flipper

не совсем САПовский вопрос, но чтот притупило...
никак не могу реализовать такое, выгружаю отчет в Excel, и не которые данные не вмещаются в ячейки, хочется сделать автоподбор высоты(autofit) строки по содержимому ячеек
пробую вызывать метод AutoFit для нужной строки, но это работает только для строк с необъединенными ячейками...а как быть с объединенными ячейками?
не силен в VBA

flipper

вроде получилось, не очень красиво, но работает...
всем спасиб

GNN

Дык поделился бы решением

flipper

конечно

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

Code:

    Range("B4").Value = "bla bla bla bla bla bla bla bla bla bla bla bla bla"
    Range("B4:D4").Select
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Rows.AutoFit
    Selection.Merge
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With

вроде работает...

GNN

Перехитрил. А я тыкался в уже объединеные

Правила форума

Excel : автоподбор высоты строк

Кто сейчас на конференции