版本: 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但所有項目全選(勾選取消)時，確定就反灰且所提供的檔案，如用迴圈將所有的列標籤都隱藏一樣也會出現內文的錯誤訊息(回文就提到的要保留至少一項)