2014-05-21 22 views
0

我需要(All)在我的透視表中選擇選擇(全部)如何在數據透視表濾波器

我嘗試以下

Dim pf As PivotField 
Set pf = Worksheets("xxx").PivotTables("PivotTable1").PivotFields("myFilterField") 
    For Each Pi In pf.PivotItems 
      Pi.Visible = True 
     Next Pi 

這工作很慢,並不能很好

另一種選擇根本不起作用。它只是選擇一些以前選擇

Worksheets("xxx").PivotTables("PivotTable1").PivotFields("myFilterField").CurrentPage = "(All)" 

回答

1

,你可以調用。可見=真正的一對夫婦的原因的下方,所以希望一個項目涵蓋你正在嘗試做的事:

如果你的意思是你要設置的所有曹丕一步到位可見的話,而不是通過PI值pf.PivotItems列舉只是:

pf.ShowAllItems = True

如果,另一方面,你的意思是你想清除所有然後過濾:

pf.ClearAllFilters()

或者,如果您只想手動清晰過濾器(即不反對申請,而是對一個過濾器領域的實際行/列應用的過濾器),那麼:

pf.ClearManualFilters

的完整列表

+0

謝謝請教關於透視字段對象成員的幫助。然而,由於某種原因,它對我來說並沒有訣竅 – Buras

+0

@ Buras謝謝 - 我意識到現在你可能指的是一些事情,這取決於想讓它們可見的原因。請參閱我編輯的答案,特別是pf.ClearManualFilters(我認爲您所指的'(全部)'是關於過濾器上的下拉菜單)。如果這沒有辦法,那就讓我知道! –

+0

非常感謝。我需要clearAllFilters – Buras