使多个数据透视项可见

Question

我想让一些枢轴项可见而另一些不可见。但问题是有些项目在数据透视字段中不可用。 GE、KG、KZ、MN、AZ、TM 等国家/地区将在下个月推出。

但我想创建一个单一的代码。如果项目存在于数据透视字段中，那么它必须是可见的，否则它必须是不可见的。我怎样才能更改代码。帮帮我

Application.ScreenUpdating = False
      With ActiveSheet.PivotTables("MainTable").PivotFields("Country Code")
        For i = 1 To .PivotItems.Count
          .PivotItems(i).Visible = False
          .PivotItems("DE").Visible = True
        Next i
        .PivotItems("UA").Visible = True 'Available
        .PivotItems("BY").Visible = True 'Available
        .PivotItems("MD").Visible = True 'Available
        .PivotItems("GE").Visible = True 'Not available
        .PivotItems("KG").Visible = True 'Not available
        .PivotItems("KZ").Visible = True 'Not available
        .PivotItems("MN").Visible = True 'Not available
        .PivotItems("AZ").Visible = True 'Not available
        .PivotItems("TM").Visible = True 'Not available
        .PivotItems("DE").Visible = False
      End With
    Application.ScreenUpdating = True

Answer 1

我会这样做：

Application.ScreenUpdating = False
With ActiveSheet.PivotTables("MainTable").PivotFields("Country Code")
  For Each Pi In .PivotItems
    Pi.Visible = InStr(1, "UA,BY,MD,GE,KG,KZ,MN,AZ,TM", Pi.Name) > 0
  Next
End With
Application.ScreenUpdating = True

与其指定要显示的 PivotItem 名称列表，不如扫描所有可用的 PivotItem 名称并根据它们在字符串中的存在设置它们的可见性..

使多个数据透视项可见

Making multiple pivot items visible

excel

vba

pivot-table

excel-2010