freeffly

回復 1# enoch
不太清楚你問的跟我想的一不一樣
下面是我在國外網站爬文爬到過的
我沒有試
他的方式是第一個項目顯示
第2各到最後一個隱藏

你可以在那之後再補一個
第一個隱藏 然後你固定要挑選的顯示
這樣就應該可以達到快速篩選項目

1. Dim i As Long
   
2. .PivotItems(1).Visible = True
   
3. For i = 2 To .PivotItems.Count
   
4.     .PivotItems(i).Visible = False
   
5. Next

複製代碼