формирование сводной таблицы

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/формирование сводной таблицы - Мир MS Excel

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

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

формирование сводной таблицы (Макросы/Sub)

формирование сводной таблицы

Marus

Дата: Четверг, 17.09.2020, 21:24 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2019

Добрый вечер.
помогите с решением. с помощью макрорекодера записала макрос. но столкнулась с ситуацией, мне необходимо создание сводной таблицы на новом листе не зависимо сколько их в книге.
в моем же коде он создает на 2 листе

[vba]

Код

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Лист1!R1C1:R" & iLastRow & "C" & iLastCol, Version:=6).CreatePivotTable TableDestination:= _
"Лист2!R3C1", TableName:="Сводная таблица1", DefaultVersion:=6

[/vba]

Ответить

krosav4ig

Дата: Четверг, 17.09.2020, 22:19 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

Добрый вечер
[vba]

Код

    With ActiveWorkbook.Sheets
        With .Add(, .Item(.Count))
            .Parent.PivotCaches.Create(xlDatabase, "Лист1!R1C1:R" & iLastRow & "C" & iLastCol, 6) _
                .CreatePivotTable .Range("A3"), DefaultVersion:=6
        End With
    End With

[/vba]
[p.s.]для оформления кодов есть кнопочка

[/p.s.]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

формирование сводной таблицы (Макросы/Sub)

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