帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-9-18 11:53 | 只看該作者

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

詢問一下在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  皆無法正常執行

樓主熱帖

Joforn

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-11-6

2^#

發表於 2015-9-18 12:17 | 只看該作者

Dim PivotItem As PivotItem
For Each PivotItem In .PivotTables("樞紐分析表6").PivotFields("風險名稱").PivotItems
PivotItem.Visible = True
Next PivotItem

複製代碼

世界那麼大，可我想去哪？

TOP

toromru

小學生 Rank: 1

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

3^#

發表於 2015-9-18 13:08 | 只看該作者

回復 2# Joforn

不好意思他指出 .PivotTables 不正確的引用耶@@

TOP

老夏

中學生 Rank: 2

帖子: 109
主題: 22
精華: 0
積分: 134
點名: 0
作業系統: Win7
軟體版本: Office 2000
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-5-1
最後登錄: 2023-3-5

論壇貢獻勳章

4^#

發表於 2015-9-18 19:01 | 只看該作者

[Range變數]沒有做動態處理

offset(,,,,)寫在定義名稱裡頭
//作包裝,樞紐分析表再引用,用不著vba

TOP

rogersg

中學生 Rank: 2

帖子: 14
主題: 0
精華: 0
積分: 58
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-20
最後登錄: 2020-3-9

5^#

發表於 2017-6-6 15:20 | 只看該作者

我剛剛正好需要Joforn大大提供的方法
試著將.PivotTables("樞紐分析表6")改為 ActiveSheet.PivotTables("樞紐分析表6")
就可以了使用了

Rogersg

TOP

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