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

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

Serge_007

Дата: Среда, 13.10.2010, 17:20 | Сообщение № 1

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

[vba]

Код

Sub CreatePT()

Dim Pt As PivotTable
Dim strField As String

        strField = Selection.Cells(1, 1).Text
         Range(Selection, Selection.End(xlDown)).Name = "Items"

         ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
             SourceData:="=Items").CreatePivotTable TableDestination:="", _
                 TableName:="ItemList"

         Set Pt = ActiveSheet.PivotTables("ItemList")
         ActiveSheet.PivotTableWizard TableDestination:=Cells(3, 1)
         Pt.AddFields RowFields:=strField
         Pt.PivotFields(strField).Orientation = xlDataField
End Sub

[/vba]

Перед запуском необходимо выделить заголовок исходных данных.

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Leo

Дата: Вторник, 25.01.2011, 16:23 | Сообщение № 2

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

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

Сообщений: 3

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

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

Serge_007,
Прекрасный код;) biggrin

Но есть вопрос. Можно ли сделать, чтобы можно было выставить автоматически критерии по одному столбцу (поставить столбец в поле строк), например столбец A:A, а значения взять по другому столбцу(например, столбец B:B)?

Леонид

Сообщение отредактировал Leo - Вторник, 25.01.2011, 16:32

Ответить

Serge_007

Дата: Вторник, 25.01.2011, 16:33 | Сообщение № 3

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Leo, Этот форум не для вопросов, а для выкладывания готовых решений.
Для вопросов есть форум, который так и называется: "Вопросы по MS Excel"

ЮMoney:41001419691823 | WMR:126292472390

Ответить

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

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