Question

我有一些vba代码，如果PivotItem可见，我想运行它，如果不可见则运行另一段代码。当我运行此子项并且项目已打开时，它无法识别它是否可见。

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

您希望visible属性不是pivotitem的value属性。

试试这个：

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

VBA - 如果PivotItem是可见的

1 个答案: