2016-12-08 41 views
0

我有一個包含340個過濾器的切片機。我想排除1項。我怎樣才能做到這一點,而無需手動選擇其他339?Excel 2016切片機 - 選擇除1之外的全部

我希望能夠包括所有項目,即完全切換過濾器關閉,包括除項目AB12345

回答

1

考慮通過在VBA具體SlicerCache所有SlicerItems迭代和有條件的所有項目之間切換設定的特定項目要.SelectedFalse使用.Caption財產(以下假定爲AB12345):

Sub SelectSpecificItem() 

    Dim slcCache As SlicerCache 
    Dim index As Integer 

    Set slcCache = ThisWorkbook.SlicerCaches("SlicerName") ' OR USE SLICER INDEX NUMBER 

    With slcCache 

     For index = 1 To .SlicerItems.Count    
      If .SlicerItems(index).Caption = "AB12345" Then      
       .SlicerItems(index).Selected = False 
      Else 
       .SlicerItems(index).Selected = True  
      End If 
     Next index 

    End With 

End Sub 
+1

能消除'If'塊一個行:'.SlicerItems(指數).Selected =不.SlicerItems(指數).Caption = 「AB12345」' –

+0

偉大的建議@ScottHoltzman! – Parfait