|
ピボットテーブルのマクロを作っていて引っ掛かりました。
「実行時エラー1004
PivotItemクラスのVisibleプロパティを設定できません。」
というのが出てきてしまいます。
マクロの記録で出てきたコードなのに、何故動かなくなってしまうんでしょうか?
また、どこをどうすれば改善するのでしょうか?
というか、昨日まで動いていたのが、突然今日動かなくなったのでどうしたら良いのか全然分かりません。
以下がそのコードです。
宜しくお願い致します。
Sub ピボット()
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("A")
.PivotItems("1").Visible = True
.PivotItems("2").Visible = True
.PivotItems("3").Visible = False
End With
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("A")
.PivotItems("1").Visible = True
.PivotItems("2").Visible = True
.PivotItems("3").Visible = False
End With
With ActiveSheet.PivotTables("ピボットテーブル3").PivotFields("A")
.PivotItems("1").Visible = True
.PivotItems("2").Visible = True
.PivotItems("3").Visible = False
End With
End Sub
|
|