数据透视图“For Each”功能

问题描述

我正在尝试使数据透视图根据单元格中的下拉值更改其轴主题。使用以下代码更改数据字段（值）时，我已经能够完成这项工作。

Dim PT As Pivottable
Dim PF As PivotField
Dim sField As String

        For Each PF In PT.datafields
        
          If PF.Name <> sField Then
          
            PF.Orientation = xlHidden
            
          End If
          
        Next PF

但是，当我尝试对数据透视图的轴执行相同操作时，使用以下代码出现运行时错误（424 - 需要对象）。我认为问题出在“Pivottable.PivotAxis”行中，并且与 .PivotAxis 有关。

Dim PT As Pivottable
Dim PF As PivotField
Dim sField As String
Dim PA As PivotAxis

        For Each PA In PT.PivotAxis
        
          If PA.Name <> sField Then
          
            PA.Orientation = xlHidden
            
          End If

    Next PA

有没有人有任何关于如何迭代检查数据透视图中每个枢轴名称的解决方案？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

pivot-chart pivot-table vba