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

freeffly

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多各項目只選出我要看的項目就好
可是上面這一段好像不會執行出來
是不是我寫的方式有問題