Цикл, чтобы создать много сводной таблицы - PullRequest
Новая
       11

Цикл, чтобы создать много сводной таблицы

0 голосов
/ 03 сентября 2018

Просто хочу спросить о некоторых вещах VBA Excel.

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

вот пример моего кода 

Angka = Application.InputBox("Berapa Jumlah Agent", Type:=2)
For n = 1 To Angka
Dim WorkRng As Range
Dim DestRng As Range
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range Table", "Enter Range", WorkRng.Address, Type:=8)
Set DestRng = Application.Selection
Set DestRng = Application.InputBox("Range Table", "Enter Range Destination", DestRng.Address, Type:=8)
Dim namaTable() As String
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    WorkRng, Version:=6).CreatePivotTable TableDestination:= _
    "'Pivot'!R8C1:R11C3", TableName:="namaTable(n)", DefaultVersion:=6
Sheets("Pivot").Select
Cells(3, 1).Select
Next n

Я сокращаю часть кода для сокращения цели.

поэтому я обнаружил, что моя ошибка в строке 12 -> Tablename: = namaTable (n) я попытался использовать 1 имя таблицы, например "pivottable1", но следующая сводная таблица получит сообщение об ошибке.

Вопрос:

  1. Можно ли зациклить эту сводную таблицу, используя для функции?

  2. Есть ли способ зациклить это?

Спасибо: D

...