Excel 2013 VBA数据透视表仅选择带有领带的前5个项目

Question

我正在尝试找到一种使用Excel 2013 VBA的方法来仅选择数据透视表中的前5个项目。 我尝试了以下几行代码，以尝试仅显示前5个项目：

Dim c
dim i as long

Worksheets("sheet1").PivotTables(1).PivotFields ("field1")
ActiveSheet.PivotTables(1).PivotFields("field1").CurrentPage = "(All)"
With ActiveSheet.PivotTables(1).PivotFields("field1")
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

这是宏记录器提供给我的代码，它不起作用：

ActiveSheet.PivotTables("PivotTable5").PivotFilters. _
.PivotFields("field1") Add2 Type:=xlTopCount, _        DataField:=ActiveSheet.PivotTables("PivotTable5"). _
    PivotFields("fied1"), Value1:=5

如果没有在前5名列表中的任何值没有价值纽带，则下面的代码可以正常工作。 利用我们的数据集，我们将始终与我们的前5名名单保持联系。

With Workbooks(cFileName).Worksheets("sheet1")
.PivotTables(1).PivotFields("Field1").PivotFilters.Add2     
xlTopCount, .PivotTables(1).PivotFields("Field1"), 5
End With

编辑：数据透视表列表将显示某些项目被选中，但没有数据与这些值关联。 基于这些数据透视表的图表是空白的，下面的代码仅按照原先的意图选择字段中的底部5个值。

With workbook.Worksheets("sheet1").PivotTables("PivotTable2").PivotFields
("Count of Description")

For Each WS In ActiveWorkbook.Worksheets
For Each pvt In WS.PivotTables

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

End With

Answer 1

我终于想通了。 万一其他人想知道的话，最好的方法是在您录制宏时：

1. 选择要开始查看数据的单元格。 在我的情况下是“ B10”。 对于其他所有人，这将有所不同，具体取决于数据透视表数据的位置。
2. 按SHIFT + END +向下箭头键可向下移至使用范围的底部。
3. 选择所有要隐藏的行。
4. 右键单击要隐藏的值。
5. 从列表中选择“过滤器”。
6. 单击“隐藏所选项目”。

下面是我将来会参考的代码。

Application.Goto reference:=Workbooks("File").Sheets("Sheet1").Range("B10")
If IsEmpty(Range("B11").value) = False Then
Range("B10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
Else
End If