Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » формирование сводной таблицы (Макросы/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]
 
Ответить
СообщениеДобрый вечер.
помогите с решением. с помощью макрорекодера записала макрос. но столкнулась с ситуацией, мне необходимо создание сводной таблицы на новом листе не зависимо сколько их в книге.
в моем же коде он создает на 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]

Автор - Marus
Дата добавления - 17.09.2020 в 21:24
krosav4ig Дата: Четверг, 17.09.2020, 22:19 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2323
Репутация: 976 ±
Замечаний: 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
 
Ответить
СообщениеДобрый вечер
[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.]

Автор - krosav4ig
Дата добавления - 17.09.2020 в 22:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » формирование сводной таблицы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!