樞紐表程式問題

enoch

程式相檢查樞紐表內的資料內容
但遇到內容是空白時就會出現型態不符合
請問應如何修改呢?

Dim Pvttable As PivotTable
Dim pvtitem As PivotItem
Dim Field_Name As String

If Pvttable.PivotFields(Field_Name).PivotItems(pvtitem.Name).Visible = True Then

另外若想取消之前所有的篩選,
除了使用For Each......Next之外
有其它更好方法嗎 ?
請多多指教

    For Each pvtitem In Pvttable.PivotFields(Field_Name).PivotItems
        Pvttable.PivotFields(Field_Name).PivotItems(pvtitem.Name).Visible = True
    Next

stillfish00

回復 1# enoch
取消之前所有的篩選
Pvttable.ClearAllFilters

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

複製代碼