通過 Excel VBA 選擇切片器值/項目

Question

我想知道 VBA 代碼到 select 在切片器中一次一個項目。 實際上我有一個切片機，里面有 10 個項目。 我還錄制了宏來查看代碼。 在該代碼中，它使我想查看的項目為真，而所有其他項目為假。 我想知道是否有任何其他方法我不必使 1 為真而所有其他方法為假。

Answer 1

此宏將僅將您在 ItemToFilter 中指定的項目設置為 true。

Sub Slicer_Filtering()
    Dim SlicerName As String
    Dim ItemToFilter As String
    Dim sl As SlicerItem
    
    SlicerName = "Slicer_test" 'Change as needed
    ItemToFilter = "Test3" 'Change as needed
    ThisWorkbook.SlicerCaches(SlicerName).ClearAllFilters
    
    For Each sl In ThisWorkbook.SlicerCaches(SlicerName).SlicerItems
        If sl.Name = ItemToFilter Then
            sl.Selected = True
        Else
            sl.Selected = False
        End If
    Next

End Sub