我有一个" Day"在过去6个月的数据透视表中过滤,格式如下:" 2/23/2016"。这些值会随着我添加更多天而每天都在变化,但我需要一个VBA脚本来从底部开始选择前30个值。我可以硬编码"过滤" 2/23/2016",但我想动态选择"从底部开始的前30"无论他们是什么。屏幕截图清晰:
答案 0 :(得分:1)
ActiveSheet.PivotTables("PivotTable1").PivotFields("Day").CurrentPage = "(All)"
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Day")
c = 5
For i = .PivotItems.Count To 1 Step -1
If (c > 0) Then
.PivotItems(i).Visible = True
Else
.PivotItems(i).Visible = False
End If
c = c - 1
Next
End With
我解决了。这里是。 C是您想要显示的底部的值。