樞紐分析表的篩選-自動全選

詢問一下在sheet裡面已有一個既定的樞紐分析表
也在樞紐分析表選項勾選了檔案開啟時自動更新，但我都是使用內建資料重新整理就不需重新開啟檔案

目前發現的是每次重新整理裡面的資料有些預設是不會顯示的需要到樞紐分析內點擊全選才會跑出
想說有沒有語法可以直接ALL Visible True這樣!!

我利用巨集錄製到下面的語法，但並不是每次內容都一樣

With ActiveSheet.PivotTables("樞紐分析表6").PivotFields("風險名稱")
      .PivotItems("1").Visible = True
      .PivotItems("a").Visible = True
      .PivotItems("c)").Visible = True
      .PivotItems("N").Visible = True
      .PivotItems("5").Visible = True
      .PivotItems("6").Visible = True
      .PivotItems("g").Visible = True
End With

可能下次裡面的值會變成    .PivotItems("P").Visible = True  之類的~ 這樣語法就沒辦法寫死

使用    .PivotItems(*).Visible = True 或    .PivotItems("*").Visible = True  皆無法正常執行

樓主熱帖

pcboy60

中學生 Rank: 2

帖子: 3
主題: 1
精華: 0
積分: 54
點名: 186
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2018-1-4
最後登錄: 2024-11-4

2023年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

6^#

發表於 2022-5-14 21:48 | 只看該作者

我使用了上述的語法，在上個月（四月）的檔案使用沒有問題
現在五月份，我沿用原本檔案，直接複製改檔名，內容更新成五月的資料
執行VBA，就出現錯誤訊息：執行階段錯誤 1004，無法設定種類PivotItem的Visible屬性
PivotItem.Visible = True <--這行出錯
我在偵錯模式下，鼠標在PivotItem字串上時，顯示PivotItem ＝ "4/1/2022"
請問會是什麼問題？
-----------------------------------------------------------
Dim PivotItem As PivotItem
For Each PivotItem In ActiveSheet.PivotTables("樞紐分析表6").PivotFields("風險名稱").PivotItems
PivotItem.Visible = True
Next PivotItem

TOP

rogersg