Проблема Excel. Автоподгон высоты строк при обьединеных ячейках

[иван8715]

Есть программа учет счетов в Экселе.

С листа "реестр" макросом данные восстанавливаются на лист "форма".

 

На листе "форма" нужны обьединенные ячейки, т.к. заголовок счета сложный.

 

Проблема такая:

 

Посмотрите "Книга1" - при нажатии мышкой по границе строк высота автоматически выравнивается (потому что весь текст в одной ячейке).

а в "Книга2" - из-за обьединенных ячеек нет.

 

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

 

28-03-2014_08-53-15.zip

[иван8715]

Специалистов по Экселю на форуме нет?

[иван8715]

Никто не в силах помочь?

[Roman_SO]

Чукча не писатель, чукча искатель

 

Решение раз

Решение два

На нашем форуме в Excel вроде бы Cybertronix шарит

[иван8715]

Это только для одной строки

А в счете много строк однотипных. Как там быть?

Дайте готовый макрос.

В моем примере размножьте строку и попробуйте на 10 строк так сделать.

[Roman_SO]

 

 

Дайте готовый макрос.

 

 

 

Чукча не писатель, чукча искатель

[иван8715]

А готовый макрос где?

 

Вот это подходит, но на несколько строк в выделенном диапазоне не работает. 

Только на одну строку (где несколько обьединенных ячеек)

 

Private Sub ВысотаСтрок()

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

Изменено 3 апреля, 2014 пользователем иван8715

[Roman_Five]

 

 

Дайте готовый макрос.

 

 

А готовый макрос где?

 

Строгое предупреждение от модератора Roman_Five

Уважительнее, товарищ!

[иван8715]

Дайте готовый макрос.

 

 

пожалуйста

 

[иван8715]

Поясню. Для одной строки нажимать макрос для выравнивания можно.

А для 15 строк отмечать каждую строку отдельно и нажимать макрос равносильно просто вручную мышкой подтянуть границу, нет автоматизма.