作者s52222b (陈猪静)
看板Office
标题[算表] vba 枢纽分析表问题
时间Mon Sep 9 11:59:36 2019
版本: 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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 101.13.224.182 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1568001578.A.F3B.html
1F：→ soyoso: 以内文巨集来测试，如是将date下全部项目都隐藏的话，就09/09 12:31
3F：→ soyoso: 因此问题方面，有可能要保留至少一项或是调整其他方式达成09/09 12:33
4F：→ soyoso: 要的结果09/09 12:33
我执行第一个日期就失败了他就出现这样了 有什麽方式可以解决吗
※ 编辑: s52222b (101.13.224.182 台湾), 09/09/2019 12:45:21
※ 编辑: s52222b (101.13.224.182 台湾), 09/09/2019 12:48:14
5F：→ soyoso: 要从档案来看比较清楚，如何排除该问题09/09 12:49
档案如下
https://drive.google.com/file/d/10ke3u7OnjF0O78_5lypX6NemEV1HfNbt/view
?usp=drivesdk
在麻烦您看哪里有问题
※ 编辑: s52222b (101.13.224.182 台湾), 09/09/2019 15:23:19
6F：→ soyoso: 连结要权限09/09 15:25
7F：→ s52222b: 我把权限开罗09/09 15:27
8F：→ soyoso: 档案测试的问题就是我回文提到的要保留至少一项09/09 15:30
9F：→ soyoso: 列标签的日期在回圈执行a.visible=false就一个个的被隐藏09/09 15:31
10F：→ soyoso: 直到最後一个(空白)要被隐藏时就会出现该错误讯息09/09 15:32
11F：→ soyoso: 也非原po回文写到的执行第一个日期就失败09/09 15:32
12F：→ soyoso: 以上是测试於2016，我再改测试於内文写到的2007试试09/09 15:36
13F：→ soyoso: 测试於2007内确实不行，解决方式a.caption= format(09/09 16:08
14F：→ soyoso: a.caption,"yyyy-m-d") 这样a.visible=false是可正常执行09/09 16:09
15F：→ soyoso: "yyyy/m/d"或是"@" 都可以 09/09 16:15
可以使用了 感谢神救援
那请问一下 有没有什麽方式可以一次将全部的筛选取消 这样就不用使用for跑 程式也比
较快
※ 编辑: s52222b (101.13.224.182 台湾), 09/09/2019 17:35:36
16F：→ soyoso: 不太确定筛选取消的意思，是指全部显示吗？ 09/09 17:41
17F：→ soyoso: 是的话巨集内的...pivotfields(...).clearallfilters09/09 17:43
不是耶 我指的是有没有办法将所有的项目一次visible.false
※ 编辑: s52222b (123.205.177.120 台湾), 09/09/2019 19:59:27
18F：→ soyoso: 但所有项目全选(勾选取消)时，确定就反灰 09/09 21:05
19F：→ soyoso: 且所提供的档案，如用回圈将所有的列标签都隐藏一样也会出 09/09 21:07
20F：→ soyoso: 现内文的错误讯息(回文就提到的要保留至少一项) 09/09 21:08