Автоподбор высоты строки с переносом текста
RAN
Дата: Вторник, 03.12.2013, 23:08 |
Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Мяу! Снова бодаюсь с выгрузкой 1С. Тащу данные [vba]Код
.UsedRange.Copy ThisWorkbook.Sheets(selSheet).Range("A1")
[/vba] Ширину столбцов в шаблоне выставил, попадаю. Но теперь возникла проблема с высотой строки. Ячейки в исходнике с переносом строки, и разной высоты. А ко мне тянутся в мою высоту строки. Автоподбор высоты в данном случае не работает. Как сию беду победить? Или как это 1С делает?
Мяу! Снова бодаюсь с выгрузкой 1С. Тащу данные [vba]Код
.UsedRange.Copy ThisWorkbook.Sheets(selSheet).Range("A1")
[/vba] Ширину столбцов в шаблоне выставил, попадаю. Но теперь возникла проблема с высотой строки. Ячейки в исходнике с переносом строки, и разной высоты. А ко мне тянутся в мою высоту строки. Автоподбор высоты в данном случае не работает. Как сию беду победить? Или как это 1С делает? RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Мяу! Снова бодаюсь с выгрузкой 1С. Тащу данные [vba]Код
.UsedRange.Copy ThisWorkbook.Sheets(selSheet).Range("A1")
[/vba] Ширину столбцов в шаблоне выставил, попадаю. Но теперь возникла проблема с высотой строки. Ячейки в исходнике с переносом строки, и разной высоты. А ко мне тянутся в мою высоту строки. Автоподбор высоты в данном случае не работает. Как сию беду победить? Или как это 1С делает? Автор - RAN Дата добавления - 03.12.2013 в 23:08
_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] Снимаем галку "Переносить по словам" Автоподбор высоты строки Ставим галку
Так пойдет? [vba]Код
Sub tt() Range("J8:J19").WrapText = False Rows("8:19").EntireRow.AutoFit Range("J8:J19").WrapText = True End Sub
[/vba] Снимаем галку "Переносить по словам" Автоподбор высоты строки Ставим галку _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Так пойдет? [vba]Код
Sub tt() Range("J8:J19").WrapText = False Rows("8:19").EntireRow.AutoFit Range("J8:J19").WrapText = True End Sub
[/vba] Снимаем галку "Переносить по словам" Автоподбор высоты строки Ставим галку Автор - _Boroda_ Дата добавления - 03.12.2013 в 23:27
RAN
Дата: Среда, 04.12.2013, 00:32 |
Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Увы. Там еще и MergeCells. И они-то, чувствуется, и мешают. Но ведь эска как-то форматирует.
Увы. Там еще и MergeCells. И они-то, чувствуется, и мешают. Но ведь эска как-то форматирует. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Увы. Там еще и MergeCells. И они-то, чувствуется, и мешают. Но ведь эска как-то форматирует. Автор - RAN Дата добавления - 04.12.2013 в 00:32
RAN
Дата: Среда, 04.12.2013, 00:47 |
Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Пример
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Среда, 04.12.2013, 00:48
Ответить
Сообщение Пример Автор - RAN Дата добавления - 04.12.2013 в 00:47
anvg
Дата: Среда, 04.12.2013, 02:31 |
Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация:
271
±
Замечаний:
0% ±
2016, 365
А это от nerv не подходит?
Ответить
Сообщение А это от nerv не подходит? Автор - anvg Дата добавления - 04.12.2013 в 02:31
RAN
Дата: Среда, 04.12.2013, 03:00 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Как раз нашел, читаю...
Как раз нашел, читаю... RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Как раз нашел, читаю... Автор - RAN Дата добавления - 04.12.2013 в 03:00
RAN
Дата: Среда, 04.12.2013, 04:08 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Ох не зря говорят - хорошая мысля приходит опосля. И начитался по уши, и макрос Alex_ST прикрутил. А оказалось - одно словечко дописать надо. И никакого подбора. [vba]Код
.UsedRange.EntireRow.Copy ThisWorkbook.Sheets(selSheet).Range("A1")
[/vba]
Ох не зря говорят - хорошая мысля приходит опосля. И начитался по уши, и макрос Alex_ST прикрутил. А оказалось - одно словечко дописать надо. И никакого подбора. [vba]Код
.UsedRange.EntireRow.Copy ThisWorkbook.Sheets(selSheet).Range("A1")
[/vba] RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Ох не зря говорят - хорошая мысля приходит опосля. И начитался по уши, и макрос Alex_ST прикрутил. А оказалось - одно словечко дописать надо. И никакого подбора. [vba]Код
.UsedRange.EntireRow.Copy ThisWorkbook.Sheets(selSheet).Range("A1")
[/vba] Автор - RAN Дата добавления - 04.12.2013 в 04:08