VBA - 如果 PivotItem 可见

Question

我有一些 vba 代码，如果 PivotItem 可见，我想 运行，如果不可见，我想 运行 另一段代码。 当我 运行 这个 sub 和项目打开时，它无法识别它是可见的。

Sub test()

If Sheets("Sheet1").PivotTables("PivotTable1").PivotFields("TestField").PivotItems("TestItem").Value = xlOn Then
MsgBox "is on"
Else: MsgBox "is off"
End If

End Sub

干杯

Answer 1

您想要可见的 属性 而不是数据透视项的值 属性。

试试这个：

If Sheets("Sheet1").PivotTables("PivotTable1").PivotFields("TestField").PivotItems("TestItem").Visible = True Then