VBA切片器选择空白

Question

我有以下情况：我有一个带有切片器的工作表，应该只选择“空白”。 有时我只有空白，其他时候我有空白，还有1到5个其他选项。 我的问题是，我不能强迫宏只留下空白而不影响其他选项。 我的文件是一个模板，所以我不知道人们是否会留空或选择其他内容。

我有几个特长：

With ActiveWorkbook.SlicerCaches("Slicer_OOS_Reason_2017___Performance")

.SlicerItems("(blank)").Selected = True

当我有空白以外的其他东西时它不起作用:(

   With ActiveWorkbook.SlicerCaches("Slicer_OOS_Reason_2017___Performance")
    .SlicerItems("(blank)").Selected = True
    .SlicerItems("option1").Selected = False
    .SlicerItems("option2").Selected = False
    .SlicerItems("option3").Selected = False
    .SlicerItems("option4").Selected = False
    .SlicerItems("option5").Selected = False
End With

仅当所有选项均可用时，此选项才能完美工作

如果一个选项不在切片器中，我会收到“无效的过程调用或参数”

我看到了其他代码，但我有些失落。 我需要一个简单的代码，然后不需要每次都选择空白：)

我不需要遍历列表中的每个选项，我只需要一个选项就可以不考虑可用选项的数量和名称

以后的编辑：即使在切片器中选择了该选项，我使用的切片器也不会显示旧的删除数据。

谢谢，索林

Answer 1

尝试遍历所有项目，然后选择空白的项目：

Dim si as SlicerItem
With ActiveWorkbook.SlicerCaches("Slicer_OOS_Reason_2017___Performance")
For Each si in .SlicerItems
    If si.Name = "(blank)" Then
        si.Selected = True
    Else
        si.Selected = False
    End If
Next si
End With