Question

您好我试图只在我的数据表中显示5个特定项目。该表包含大约50个不同的项目，因此我想隐藏这5个项目之外的所有内容，但我正在努力。我可以获得的最好结果是删除所有内容，然后显示5个项目，但由于您无法删除所有项目，因此将始终保留表格中的最后一项。有人可以帮我这个吗？

Dim pvtitem As PivotItem

With ActiveSheet.PivotTables("PIV4").PivotFields("MSG TYPE")
    .PivotItems("TEXT1").Visible = True
    .PivotItems("TEXT2").Visible = True
    .PivotItems("TEXT3").Visible = True
    .PivotItems("TEXT4").Visible = True
    .PivotItems("TEXT5").Visible = True

For Each pvtitem In .PivotItems
    If Not pvtitem.Name Like "TEXT1" Then pvtitem.Visible = False
    ElseIf Not pvtitem.Name Like "TEXT2" Then pvtitem.Visible = False
    ElseIf Not pvtitem.Name Like "TEXT3" Then pvtitem.Visible = False
    ElseIf Not pvtitem.Name Like "TEXT4" Then pvtitem.Visible = False
    ElseIf Not pvtitem.Name Like "TEXT5" Then pvtitem.Visible = False
    Next pvtitem
End With

Excel 2003 VBA数据透视表显示特定项目

0 个答案: