[算表] vba 樞紐分析表問題

[s52222b (陳豬靜)]

版本: 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://www.ptt.cc/bbs/Office/M.1568001578.A.F3B.html
→ soyoso: 以內文巨集來測試，如是將date下全部項目都隱藏的話，就
→ soyoso: 會回傳該錯誤訊息 https://i.imgur.com/6eFPEaW.jpg
→ soyoso: 因此問題方面，有可能要保留至少一項或是調整其他方式達成
→ soyoso: 要的結果
我執行第一個日期就失敗了他就出現這樣了  有什麼方式可以解決嗎
※ 編輯: s52222b (101.13.224.182 臺灣), 09/09/2019 12:45:21
※ 編輯: s52222b (101.13.224.182 臺灣), 09/09/2019 12:48:14
→ soyoso: 要從檔案來看比較清楚，如何排除該問題
檔案如下https://drive.google.com/file/d/10ke3u7OnjF0O78_5lypX6NemEV1HfNbt/view
?usp=drivesdk
在麻煩您看哪裡有問題
※ 編輯: s52222b (101.13.224.182 臺灣), 09/09/2019 15:23:19
→ soyoso: 連結要權限
→ s52222b: 我把權限開囉
→ soyoso: 檔案測試的問題就是我回文提到的要保留至少一項
→ soyoso: 列標籤的日期在迴圈執行a.visible=false就一個個的被隱藏
→ soyoso: 直到最後一個(空白)要被隱藏時就會出現該錯誤訊息
→ soyoso: 也非原po回文寫到的執行第一個日期就失敗
→ soyoso: 以上是測試於2016，我再改測試於內文寫到的2007試試
→ soyoso: 測試於2007內確實不行，解決方式a.caption= format(
→ soyoso: a.caption,"yyyy-m-d") 這樣a.visible=false是可正常執行
→ soyoso:           "yyyy/m/d"或是"@" 都可以
可以使用了 感謝神救援

那請問一下 有沒有什麼方式可以一次將全部的篩選取消 這樣就不用使用for跑 程式也比
較快
※ 編輯: s52222b (101.13.224.182 臺灣), 09/09/2019 17:35:36
→ soyoso: 不太確定篩選取消的意思，是指全部顯示嗎？
→ soyoso: 是的話巨集內的...pivotfields(...).clearallfilters
不是耶 我指的是有沒有辦法將所有的項目一次visible.false 
※ 編輯: s52222b (123.205.177.120 臺灣), 09/09/2019 19:59:27
→ soyoso: 但所有項目全選(勾選取消)時，確定就反灰
→ soyoso: 且所提供的檔案，如用迴圈將所有的列標籤都隱藏一樣也會出
→ soyoso: 現內文的錯誤訊息(回文就提到的要保留至少一項)