[發問] 樞紐如何只顯示特殊項目

freeffly

下面的程式碼找了好久才看到
不過有一個問題
如果我要顯示的資料有好幾個
可以用什麼方式?
譬如我要顯示的項目在工作表"項目"中那幾個

1. Sub dd()
   
2. For i = 1 To ActiveSheet.PivotTables("樞紐分析表1").PivotFields("客戶簡稱").PivotItems.Count
   
3.     If ActiveSheet.PivotTables("樞紐分析表1").PivotFields("客戶簡稱").PivotItems(i) <> "中環" Then
   
4.     ActiveSheet.PivotTables("樞紐分析表1").PivotFields("客戶簡稱").PivotItems(i).Visible = False
   
5.     End If
   
6.     Next
   
7. End Sub

複製代碼

樞紐.rar (16.11 KB)

下載次數: 2

2012-6-14 14:15