Страницы: 1
RSS
К вопросу подбора высоты строки с объединенной ячейкой, или ColumnWidth = ????? ColumnWidth
 
Мяв.
Знаю, что вопрос изъезжен, но все же.
Пошел проторенным путем - создаю копию листа, удаляю объединение и далее по тексту.
Но, столкнулся с непонятками.
в то же время ширина объединенной ячейки, и столбца той же ширины не совпадают.
Где собака порылась, и что же делать, как же быть?
 
Здравствуйте, Андрей! Попробуйте изменить в своем примере в стиле "Обычный" шрифт на "Arial" размер 8.

Добавьте в свой макрос
Код
Debug.Print .Columns("D").Width
Debug.Print sh.Columns("D:F").Width

У меня выдает 138,75 и 146,25. Я думаю, что несовпадение происходит из-за того, что ячейки имеют внутренние границы (не знаю, как к ним достучаться из VBA).
Можно ориентироваться на свойство Width столбца, а ColumnWidth определять пропорцией.

Код
.Columns("D").ColumnWidth = colV
.Columns("D").ColumnWidth = .Columns("D").ColumnWidth * sh.Columns("D:F").Width / .Columns("D").Width

У меня после этого трюка всё выравнивается.
Изменено: sokol92 - 01.02.2022 20:26:08
Владимир
 
Здравствуйте, Владимир.
В окне Immediate стало 30, но картинка не поменялась.
 
Дополнил свой ответ.
Владимир
 
Проверил. Трюк - всем трюкам ТРЮК!
мУрси боку!
 
Успехов!
Владимир
Страницы: 1
Наверх