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

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-6-14 14:18 | 只看該作者

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

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

複製代碼

樞紐.rar (16.11 KB)

字典兩各字還真難理解

靜思自在 : 盡多少本份，就得多少本事。