Макрос создания сводной таблицы на новом листе

Вход

Регистрация

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

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

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

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

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

Макрос создания сводной таблицы на новом листе

ArkaIIIa

Дата: Четверг, 10.12.2015, 12:32 | Сообщение № 1

Группа: Проверенные

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

Сообщений: 894

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

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

2010

Господа, помогите, пожалуйста.

Дело простецкое, но ограниченность во времени и криворукость - та еще беда.
Есть условная таблица (1-9), из нее нужно макросом (можно прикруть к кнопке) формировать сводную таблицу на новом листе.

Заранее прошу прощения, что отвлекаю по таким пустякам.
И, спасибо, разумеется!

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

Ответить

_Boroda_

Дата: Четверг, 10.12.2015, 13:21 | Сообщение № 2

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

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Что-то в этом роде нужно?
[vba]

Код

Sub tt()
    asn_ = ActiveSheet.Name
    sn_ = Sheets.Add.Name
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        asn_ & "!R3C2:R5C4").CreatePivotTable TableDestination:=sn_ & "!R3C1"
End Sub

[/vba]

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

Ответить

ArkaIIIa

Дата: Четверг, 10.12.2015, 13:28 | Сообщение № 3

Группа: Проверенные

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

Сообщений: 894

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

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

2010

_Boroda_
Да, спасибо большое!

Ответить

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

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