Вывод массива на лист Excel

@Denss · Регистрация: 09.01.2018

Author24 — интернет-сервис помощи студентам

Всем добрый день,

Помогите пожалуйста разобраться:
Вывожу одномерный массив на лист Excel (1 строка и 374 колонки)
Часть колонок сгруппирована
На листе есть автофильтр на строки

При отключенном автофильтре (на строки) массив выводится нормально, данные выводятся внутрь сгруппированных колонок
При включенном автофильтре (на строки) массив не выводится внутрь сгруппированных колонок
Приходится программно раскрывать сгруппированные колонки, выводить данные, затем снова группировать
Получается внешне неприятный "скачок", который хочется избежать
Код вывода: Range(.Cells(i, 37), .Cells(i, 410)) = RowDataArr
Использование Resize тоже не помогает

Заранее спасибо!

@Казанский · 10.01.2018, 00:28

Сообщение от Denss

Получается внешне неприятный "скачок", который хочется избежать

Visual Basic

1
2
3

Application.ScreenUpdating = False
'раскрыть сгруппированные колонки, вывести данные, снова группировать
Application.ScreenUpdating = True

~~Остап Бонд~~ · 10.01.2018, 00:29

Visual Basic

1	Application.ScreenUpdating=0

Сообщение от Denss

Visual Basic

1
2
3

'внешне неприятный "скачок", который хочется избежать 
'Код вывода: 
Range(.Cells(i, 37), .Cells(i, 410)) = RowDataArr

Visual Basic

1	Application.ScreenUpdating=-1

@Denss · 10.01.2018, 08:24 **[ТС]**

Работает, большое СПАСИБО!

@Denss 0 / 0 / 0 Регистрация: 09.01.2018 Сообщений: 2
		1
	Вывод массива на лист Excel 09.01.2018, 15:31. Показов 4476. Ответов 3 Метки нет (Все метки) Всем добрый день, Помогите пожалуйста разобраться: Вывожу одномерный массив на лист Excel (1 строка и 374 колонки) Часть колонок сгруппирована На листе есть автофильтр на строки При отключенном автофильтре (на строки) массив выводится нормально, данные выводятся внутрь сгруппированных колонок При включенном автофильтре (на строки) массив не выводится внутрь сгруппированных колонок Приходится программно раскрывать сгруппированные колонки, выводить данные, затем снова группировать Получается внешне неприятный "скачок", который хочется избежать Код вывода: Range(.Cells(i, 37), .Cells(i, 410)) = RowDataArr Использование Resize тоже не помогает Заранее спасибо! 0

@Denss 0 / 0 / 0 Регистрация: 09.01.2018 Сообщений: 2
	10.01.2018, 08:24 [ТС]	4
	Работает, большое СПАСИБО! 0