ピボットテーブルのマクロに関して

質問

ピボットテーブルのマクロを組む際に、必要な項目だけを表示させたいのですが、うまく行きません。
私は、マクロを学び始めて１カ月で、まだよくわかっていません。

下の例の場合

---------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
'

'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"データ!R1C1:R255C6", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Sheet2!R3C1", TableName:="ピボットテーブル2", DefaultVersion _
:=xlPivotTableVersion10
Sheets("Sheet2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("課名")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("地区名")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("ピボットテーブル2").AddDataField ActiveSheet.PivotTables( _
"ピボットテーブル2").PivotFields("売上額"), "データの個数 / 売上額", xlCount
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("課名")
.PivotItems("営業第1課").Visible = False
.PivotItems("営業第4課").Visible = False
End With
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("地区名")
.PivotItems("いなべ町").Visible = False
.PivotItems("海南町").Visible = False
.PivotItems("吉野川町").Visible = False
.PivotItems("魚津町").Visible = False
.PivotItems("篠山町").Visible = False
.PivotItems("小諸町").Visible = False
.PivotItems("小野田町").Visible = False
.PivotItems("西予町").Visible = False
.PivotItems("石垣町").Visible = False
.PivotItems("滝川町").Visible = False
.PivotItems("東根町").Visible = False
.PivotItems("南足柄町").Visible = False
.PivotItems("日南町").Visible = False
.PivotItems("萩町").Visible = False
.PivotItems("八日町町").Visible = False
.PivotItems("浜田町").Visible = False
.PivotItems("府中町").Visible = False
.PivotItems("本荘町").Visible = False
End With
End Sub
---------------------------------------------------------------
「営業第2課・営業第3課」を表示させるために、一度、課名を全部
表示させてから「営業第1課・営業第4課」を非表示にしています。

そして、町に関しても、いったん全部を表示させてから、不必要な町を
非表示にしています。

これを、表示したい項目だけ選択できるようなマクロに修正は
できないでしょうか。

実際のデータは会社から持ち出せないようになっていて、
わかりづらかったら済みません。

回答No.1

mt2008

どの様に使用したいのか判りませんが、毎回新たにピボットテーブルを作るのではなく、作っておいたピボットテーブル（表示項目を選択済み）に対して「データの更新」を行ってはいかがですか？

お礼

ピボットテーブルの更新ですか。
やったことはありませんが、試してみます。

ありがとうございました！！