透視：VBA檢查所有選擇，但空白透視表

隨着話題的幫助下我得到了一個代碼，但它不工作，希望任何人可以看到它出錯的地方。 How to select (All) in a pivot table filter

最好，VBA應該選擇全部，如果可能的話，不是取消選中空白，但是我並沒有達到這一點尚未：

Sub Showallpivot() 

Dim pt As PivotTable 
Dim pf As PivotField 

Set pt = ActiveSheet.PivotTables("PivotTable1") 

For Each pf In pt.PivotFields 
    pf.ShowAllItems = True 
Next pf 
End Sub

我在做什麼錯？

在此先感謝。

來源

2016-05-06 bart1701

閱讀帖子一點點。你重複了這個問題，而不是遵循答案。 – OldUgly

哦，哇，多麼愚蠢的錯誤，讓我深入瞭解這個答案。這一次更接近.. – bart1701

@OldUgly，抱歉再次打擾，但：pf.ShowAllItems = True應該是我的答案吧？然而，我可能在某個地方犯了錯誤？任何線索？ – bart1701

在你的聯繫，使用你的代碼，看起來像這樣的職位的「答案」 ......

Sub Showallpivot() 
Dim pt As PivotTable 

    Set pt = ActiveSheet.PivotTables("PivotTable1") 
    pt.ClearAllFilters 

End Sub

這將刪除已到位任何過濾，留在數據透視表它的完整形式。

如果這不符合你的要求，那麼你需要提供一個更清楚的問題解釋。

您的評論「最好，VBA應該選擇全部，如果可能的話，不是取消選中空白，但是我並沒有達到這一點呢。」意味着你正在尋找其他信息，表現出他所有的支點表。您還沒有提供足夠的詳細信息供我進一步評論。它應該是一個單獨的問題。

來源

2016-05-09 07:35:14 OldUgly

謝謝，這個作品！我主要關注「全部展示」而不是「全部清除」。我的問題的最後一部分：現在所有的過濾器都被清除了，但是在清除了所有的過濾器之後，應該有1個過濾器，它取消選擇'空白'..這有什麼意義嗎？下面的代碼不能正常工作.. 設定PT = ActiveSheet.PivotTables（「PivotTable1」） pt.ClearAllFilters pt.PivotItems（「（空白）」）可見=假 – bart1701

@ bart1701 - 應該是一個單獨的問題。 – OldUgly

好的謝謝！我會更深入地探討這個問題，希望我可以在論壇上的某個地方找到它，否則我會再次開始新的Q.再次感謝！ – bart1701

透視：VBA檢查所有選擇，但空白透視表

回答

相關問題