返回列表 上一主題 發帖

[發問] 顯示部分項目-樞紐分析表

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-25 15:24 | 只看該作者

[發問] 顯示部分項目-樞紐分析表

  1. Sub 顯示部份項目()
  2.     Application.ScreenUpdating = False
  3.     Dim pt As PivotTable, pi As PivotItem
  4.     Set pt = Sheets("銷售Data").PivotTables("樞紐分析表2")
  5.     On Error Resume Next
  6.      For Each pi In pt.PivotFields("規  格").PivotItems
  7.                     pi.Visible = False
  8.         Next pi
  9.     For i = 1 To 111
  10.     A = Sheets("Sheet1").Cells(i, 1).Value
  11.     With ActiveSheet.PivotTables("樞紐分析表2").PivotFields("規  格")
  12.         .PivotItems("& A &").Visible = True
  13.     End With
  14.     Next
  15.    
  16. End Sub
複製代碼
For i = 1 To 111
    A = Sheets("Sheet1").Cells(i, 1).Value
    With ActiveSheet.PivotTables("樞紐分析表2").PivotFields("規  格")
        .PivotItems("& A &").Visible = True
    End With
    Next
請問這部份要怎麼改?
我的整各構想是要將1000多各項目只選出我要看的項目就好
可是上面這一段好像不會執行出來
是不是我寫的方式有問題
收藏 分享
字典兩各字 還真難理解

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題