0

VBA Excel マクロ ツールで、2 つのデータ シートから多くの新しいシートとピボット テーブルを作成する必要があります。

私たちには双方向があります

  1. ピボット キャッシュを使用して、新しいピボット テーブルを作成します。
  2. 同じデータシートで新しいピボット テーブルを何度も作成します。

2 番目のアプローチを選択した場合の影響

これにより、Excel ファイルが重くなりますか?

依存関係が必要な場合、最初のピボット テーブルがすべての Excel ワークブックに存在する必要があるため、最初のアプローチをスキップしますか?

エクセル2010を使用。

4

1 に答える 1

0

既存のシートにピボット テーブルを作成し、データを新しいスプレッド シートにコピーするプロジェクトを 1 つ実行しました。それがあなたの質問である場合..以下のコードを参照してください

Dim objtable as pivottable, objfield as pivotfield
set objtable = sheet1.pivotwizard
   ptname = activesheet.pivottables(1).name 'this code is to give pivot table name which will help in creating new pivot tables
   set objfield.objtable.pivotfields("Month") 'this code will select month in page field
 objfield.orientation = xlpagefield
set objfield = objtable.pivotfields ("Dept & Mgr") 'this code will select dept & mgr in page field
objfield.orientation = xlpagefield
set objfield = objtable.pivotfields("Legal Entity") 'this code will select legal entity in row field
objfield.orientation = xlrowfield
set objfield = objtable.pivotfields("Cost Code") 'this code will select cost code in row field
objfield.orientation = xlrowfield
set objfield = objtable.pivotfields("CC Description") 'this code will select CC Description in row field
objfield.orientation = xlrowfield
set objfield = objtable.pivotfields("User") 'this code will select Usr in row field
objfield.orientation = xlrowfield
set objfield = objtable.pivotfields("Carrier") 'this code will select carrier in row field
objfield.orientation = xlrowfield
set objfield = objtable.pivotfields("Description") 'this code will select Description in row field
objfield.orientation = xlrowfield
set objfield = objtable.pivotfields("Amount Incl Tax") 'this code will amount incl tax in Datafield
objfield.orientation = xlDatafield
activesheet.pivottables(ptname).format xlreport6 '
于 2013-04-06T08:25:56.773 に答える