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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Готовые решения » Создание сводной таблицы макросом
Создание сводной таблицы макросом
Serge_007 Дата: Среда, 13.10.2010, 17:20 | Сообщение № 1
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

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
 
Ответить
Сообщение[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]

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

Автор - Serge_007
Дата добавления - 13.10.2010 в 17:20
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,
Прекрасный код;) biggrin
Но есть вопрос. Можно ли сделать, чтобы можно было выставить автоматически критерии по одному столбцу (поставить столбец в поле строк), например столбец A:A, а значения взять по другому столбцу(например, столбец B:B)?

Автор - Leo
Дата добавления - 25.01.2011 в 16:23
Serge_007 Дата: Вторник, 25.01.2011, 16:33 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

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


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеLeo, Этот форум не для вопросов, а для выкладывания готовых решений.
Для вопросов есть форум, который так и называется: "Вопросы по MS Excel"

Автор - Serge_007
Дата добавления - 25.01.2011 в 16:33
Мир MS Excel » Вопросы и решения » Готовые решения » Создание сводной таблицы макросом
  • Страница 1 из 1
  • 1
Поиск:

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