Перейти к содержанию

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


Рекомендуемые сообщения

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

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

 

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

 

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

 

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

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

 

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

 

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

Ссылка на сообщение
Поделиться на другие сайты
Это только для одной строки

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

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

В моем примере размножьте строку и попробуйте на 10 строк так сделать.
Ссылка на сообщение
Поделиться на другие сайты

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

 

Вот это подходит, но на несколько строк в выделенном диапазоне не работает. 
Только на одну строку (где несколько обьединенных ячеек)
 
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
Изменено пользователем иван8715
Ссылка на сообщение
Поделиться на другие сайты

 

 


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

 

 


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

 

Строгое предупреждение от модератора Roman_Five
Уважительнее, товарищ!
Ссылка на сообщение
Поделиться на другие сайты
Поясню. Для одной строки нажимать макрос для выравнивания можно.

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

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...