選択解除ピボットテーブルの項目エラー

私はthis linkのコードを使用しようとしているが、私は438 選択解除ピボットテーブルの項目エラー

は誰もい

ActiveSheet.PivotItems(1).Visible = True

ラインは、「オブジェクトはこのプロパティまたはメソッドをサポートしていません」実行時エラーを得続けます何が起こっているか知っていますか？

全コード：

Sub DeleteAllFields() 
    Dim i As Long 
    ActiveSheet.PivotItems(1).Visible = True 
     For i = 2 To ActiveSheet.PivotItems.Count 
      ActiveSheet.PivotItems(i).Visible = False 
     Next 
End Sub

全開示 - 私は初心者VBAのユーザーです。

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

出典

2016-10-13 user7003894

の.PivotItems()を使用して、エラーが発生しました。

ActiveSheet.PivotTables("PivotTable1").PivotFields("Example Field").PivotItems(1).Visible = True

出典

2016-10-13 16:20:31 Jordan

こんにちはヨルダン、応答に感謝：あなたのようなものが必要になりますので、

PivotItems()プロパティはPivotFields()オブジェクトの一部です。私はまだ少し混乱している。ピボット・フィールドを呼び出す必要があるのは、i = 1以外のすべてのフィールドを非表示にするというコードの考えですか？ – user7003894

基本的にピボットテーブルの行を表示しているだけですが、まだ行を隠していない場合は違いはありませんが、 '.Visible = False'を設定すると行が隠れてしまいます。たとえば、インデックス番号を使用してピボットアイテムをループすることができます。 '.PivotItems（i）'を呼び出し、 '.PivotItems（i）.Name'をチェックし、それに基づいて非表示にするかどうかを指定します。これは通常、この関数が使用されるものです。 – Jordan

選択解除ピボットテーブルの項目エラー

答えて

関連する問題