vba - 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