Автоподбор высоты строки с переносом текста

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоподбор высоты строки с переносом текста (Макросы Sub)

RAN

Дата: Вторник, 03.12.2013, 23:08 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Мяу!
Снова бодаюсь с выгрузкой 1С.
Тащу данные
[vba]

Код

.UsedRange.Copy ThisWorkbook.Sheets(selSheet).Range("A1")

[/vba]
Ширину столбцов в шаблоне выставил, попадаю.
Но теперь возникла проблема с высотой строки.
Ячейки в исходнике с переносом строки, и разной высоты. А ко мне тянутся в мою высоту строки.
Автоподбор высоты в данном случае не работает.
Как сию беду победить? Или как это 1С делает?

Быть или не быть, вот в чем загвоздка!

Ответить

_Boroda_

Дата: Вторник, 03.12.2013, 23:27 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Так пойдет?
[vba]

Код

Sub tt()
     Range("J8:J19").WrapText = False
     Rows("8:19").EntireRow.AutoFit
     Range("J8:J19").WrapText = True
End Sub

[/vba]
Снимаем галку "Переносить по словам"
Автоподбор высоты строки
Ставим галку

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

RAN

Дата: Среда, 04.12.2013, 00:32 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Увы.

Там еще и MergeCells. И они-то, чувствуется, и мешают.
Но ведь эска как-то форматирует.

Быть или не быть, вот в чем загвоздка!

Ответить

RAN

Дата: Среда, 04.12.2013, 00:47 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Пример

К сообщению приложен файл: 6592274.xlsx (23.9 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 04.12.2013, 00:48

Ответить

anvg

Дата: Среда, 04.12.2013, 02:31 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

А это от nerv не подходит?

Ответить

RAN

Дата: Среда, 04.12.2013, 03:00 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Как раз нашел, читаю...

Быть или не быть, вот в чем загвоздка!

Ответить

RAN

Дата: Среда, 04.12.2013, 04:08 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Ох не зря говорят - хорошая мысля приходит опосля.
И начитался по уши, и макрос Alex_ST прикрутил.
А оказалось - одно словечко дописать надо.
И никакого подбора.
[vba]

Код

.UsedRange.EntireRow.Copy ThisWorkbook.Sheets(selSheet).Range("A1")

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоподбор высоты строки с переносом текста (Макросы Sub)

Страница 1 из 1
1