我需要在刷新后更新数据透视过滤器以选择除blank.
这里的其他答案利用.ShowAllItems方法对我不起作用，因为它也会显示没有数据的项目（下面的枢轴选项Display).
我尝试使用在另一个问题上找到的另一个解决方案，.PivotItems("(All)").Visible = True然后删除空白，但这没有任何作用。
如何修改数据透视表字段Activity Name检查除空白之外的所有项目？
Sub PivotRefresh()
Dim ws As Worksheet
Dim pvt As PivotTable
Application.ScreenUpdating = False
ThisWorkbook.RefreshAll
Application.Calculation = xlCalculationManual
For Each ws In Worksheets
If ws.Name = "OC" Or ws.Name = "P2" Then
For Each pvt In ws.PivotTables
On Error Resume Next
pvt.PivotFields("Exclude").PivotItems("Yes").Visible = False
pvt.PivotFields("Activity Name").PivotItems("(All)").Visible = True
pvt.PivotFields("Activity Name").PivotItems("(blank)").Visible = False
On Error GoTo 0
Next pvt
End If
ws.Range("A:W").EntireColumn.AutoFit
Next ws
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
当我必须这样做时，我只需使用类似的东西：
On Error Resume Next
With pvt
.ClearAllFilters
.PivotItems("(blank)").Visible = False
End With
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
