版本: excel 2007
各位好今天遇到一个问题
我用vba要执行枢纽时要用程式将筛选取消时遇到了一些问题
我用visible要将date的筛选取消
执行时出现无法设定种类的pivotitem的visible属性 请问怎么处理 我找不到哪里有问题
程式码如下
Sub Macro1()
Dim a As PivotItem
Dim b As String
'
For Each a In ActiveSheet.PivotTables("枢纽分析表3").PivotFields("Date").Pivot
Items
a.Visible = False
Next
End Sub
https://i.imgur.com/86RvjG9.jpg

以内文宏来测试，如是将date下全部项目都隐藏的话，就会回传该错误讯息 https://i.imgur.com/6eFPEaW.jpg因此问题方面，有可能要保留至少一项或是调整其他方式达成要的结果要从档案来看比较清楚，如何排除该问题连结要权限

我把权限开囉

档案测试的问题就是我回文提到的要保留至少一项列标签的日期在循环执行a.visible=false就一个个的被隐藏直到最后一个(空白)要被隐藏时就会出现该错误讯息也非原po回文写到的执行第一个日期就失败以上是测试于2016，我再改测试于内文写到的2007试试测试于2007内确实不行，解决方式a.caption= format(a.caption,"yyyy-m-d") 这样a.visible=false是可正常执行"yyyy/m/d"或是"@" 都可以不太确定筛选取消的意思，是指全部显示吗？是的话宏内的...pivotfields(...).clearallfilters但所有项目全选(勾选取消)时，确定就反灰且所提供的档案，如用循环将所有的列标签都隐藏一样也会出现内文的错误讯息(回文就提到的要保留至少一项)