|
>マクロ実行中に途中で止めたりすると、また同様の不具合が出るようです。
どのマクロを、途中でどのようにして止めてらっしゃるのか解りませんが、
こちらでは再現しないので
>何が原因なんでしょうか。。。?
ちょっと解りません。すみません。
別アプローチするなら、全表示の場合
Sub try()
Dim pvi As PivotItem
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("A")
For Each pvi In .PivotItems
pvi.Visible = True
Next
End With
End Sub
となりますから、試してみてください。
特定のItemを非表示にしたい時、表示Itemがなくなる場合のエラー対策を考えて、
効率悪いかもしれませんが2回Loopして
Sub try2()
Const chk = "3" 'とか"[3|4]"とか
Dim pvi As PivotItem
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("A")
For Each pvi In .PivotItems
pvi.Visible = True
Next
For Each pvi In .PivotItems
If pvi.Value Like chk Then pvi.Visible = False
Next
End With
End Sub
こんな感じではいかがでしょう。
|
|