Range("...").rows.AutoFit

[den380]

Доброго времени суток всем.

описаная в сабже конструкция нормально отрабатывает в случае если рендж, на который ссылаюсь, не содержит "мергнутых" (объединенных) ячеек. В случае если рендж ссылается на несколько объединенных ячеек, то высота строки не коим образом не изменяется. Вопрос состоит в том глюк ли это экселЯ или я чего не так делаю?
Офис у меня 2003 Pro Eng.
Код выглядит таким вот образом:

Код: Выделить всё

Sub Macro2()
'
' Macro2 Macro
'
Worksheets("sheet1").Range("b10:c10").Rows.AutoFit
'
End Sub



Задача которую решаю - изменить высоту ячейки, состоящей из нескольких, так, что бы было видно все содержимое. Свойство WrapText для этой ячейки установлено в True.

[GSerg]

Ну ты когда вручную кликаешь по такому диапазону, он расширяется?..

[den380]

В том-то и вопрос что расширяется только если ячейки не мергнутые, в противном случае - нет...

[GSerg]

Ну так и разве не вот?

[den380]

Так задачу то это не отменяет

Задача которую решаю - изменить высоту ячейки, состоящей из нескольких, так, что бы было видно все содержимое. Свойство WrapText для этой ячейки установлено в True.

Може кто какой "workaround" подскажет?

[GSerg]

А как ты бы решил, какие из включённых строк расширять, а какие нет?

[den380]

А как ты бы решил, какие из включённых строк расширять, а какие нет?

Мы наверное говоим о разных вещах. Посему прикрепляю пример.
В нем (примере) очень хотелось бы программно увеличить высоту строки 10 так, что бы билеберда введенная в ячейку (B-C:10) полностью в ней уместилась, при этом ширина столбцов В и С должна остаться неизменной.

[den380]

Неужели ни кто с подобной задачей не сталкивался?
Откликнитесь - очень нада.

[$€rg]

http://www.sql.ru/forum/actualthread.aspx?tid=155379

[den380]

http://www.sql.ru/forum/actualthread.aspx?tid=155379

спасибо, гляну. О результатах сообщу.

[den380]

И действительно решение, предложенное на sql.ru работает.
Взятый оттуда вариант кода для AutoFit мергнутых ячеек:

Код: Выделить всё

Private Sub RowHeight()
'
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
'
If ActiveCell.MergeCells Then
    With ActiveCell.MergeArea
        If .WrapText = True Then
'            Application.ScreenUpdating = False
            CurrentRowHeight = .RowHeight
            ActiveCellWidth = ActiveCell.ColumnWidth
            For Each CurrCell In Selection
                MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
            Next
            .MergeCells = False
            .Cells(1).ColumnWidth = MergedCellRgWidth
            .EntireRow.AutoFit
            PossNewRowHeight = .RowHeight
            .Cells(1).ColumnWidth = ActiveCellWidth
            .MergeCells = True
            .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, CurrentRowHeight, PossNewRowHeight)
        End If
    End With
End If
'
End Sub


Единственное лично для меня остается непонятным почему не работает стандартный AutoFit. Как говорится осадок-то остался.

PS Всем спасибо.