ピボットテーブル内のすべてのアイテムをvbaを使用して選択解除する

Question

新しく作成したピボットテーブル内のすべてのアイテムを選択解除して1つまたは2つのアイテムだけを選択できるように説明できますか？私は以下を試した：

.PivotItems("(Select All)").Visible = False 

ありがとう。

Answer 1

これはおそらく、あなたが欲しいものを得ることができる最も近い：

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

これは（これはそのpivotfieldを指すとの範囲内にあると仮定して）非常に最初のオプションのみ選択したオプションになります。あなたが手前で欲しいものが分かっていればそれに応じて修正してください。

Answer 2

以下を確認してください。特定のフィールド名のデータを選択します。デフォルトでは、少なくとも1つのアイテムを選択する必要があります。アイテムを非表示にする場合は、ピボットテーブルフィールド内の連続したアイテムだけを非表示にすることもできます。おそらく、ページの読み込み時やワークシートが開いているとき、または他のサブトリガーの場合は、特定の項目に基づいて選択する項目を選択できます。その後、あなたのコードを他のものと一緒に進めることができます。

Sub specificItemsField() 
Dim pf As PivotField 
Dim pi As PivotItem 
Dim strPVField As String 

strPVField = "Field Name" 
Set pt = ActiveSheet.PivotTables(1) 
Set pf = pt.PivotFields(strPVField) 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

On Error Resume Next 
    pf.AutoSort xlManual, pf.SourceName 
    For Each pi In pf.PivotItems 
     pi.Visible = True 
    Next pi 
    pf.AutoSort xlAscending, pf.SourceName 

Application.DisplayAlerts = True 
Application.ScreenUpdating = True 

End Sub  

Answer 3

カスタムフィルタの選択方法です。二重ループのために遅くなることがあります。私は、各データ項目をループすると、あなたはすべての項目をループすることなく、ピボットに単一の項目にフィルタを適用したい場合は、あなたが何ができるか、多くの時間を要することがわかってきました

Dim toSelect(1 To 3) As String 

toSelect(1) = "item1" 
toSelect(2) = "item2" 
toSelect(3) = "item3" 


For Each pvItem In objField.PivotItems 
    For Each st In toSelect 
     If pvItem.Value = st Then 
      pvItem.Visible = True 
      Exit For 
     Else 
      pvItem.Visible = False 
     End If 
    Next 
Next 

Answer 4

は、次のコードを使用しています：

ActiveSheet.PivotTables("Your Pivot Name").PivotFields("Your Field Name").ClearAllFilters 
ActiveSheet.PivotTables("Your Pivot Name").PivotFields("Your Field Name").PivotFilters.Add _ 
    Type:=xlCaptionEquals, Value1:="Your string here" 

これは基本的にラベルフィルタですが、私のために働きました。