標題: [發問] (已解決)樞紐項目如何隱藏? [打印本頁]

---

作者: freeffly    時間: 2012-3-5 14:05     標題: (已解決)樞紐項目如何隱藏?

本帖最後由 freeffly 於 2012-3-6 13:41 編輯

1. Sub Macro1()
   
2.     With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("月份")
   
3.         .PivotItems("200901").Visible = False
   
4.         .PivotItems("200902").Visible = False
   
5.         .PivotItems("200903").Visible = False
   
6.         .PivotItems("200904").Visible = False
   
7.         .PivotItems("200905").Visible = False
   
8.         .PivotItems("200906").Visible = False
   
9.         .PivotItems("200907").Visible = False
   
10.         .PivotItems("200908").Visible = False
    
11.         .PivotItems("200909").Visible = False
    
12.         .PivotItems("200910").Visible = False
    
13.         .PivotItems("200911").Visible = False
    
14.         .PivotItems("200912").Visible = False
    
15.         .PivotItems("201001").Visible = False
    
16.         .PivotItems("201002").Visible = False
    
17.         .PivotItems("201003").Visible = False
    
18.         .PivotItems("201004").Visible = False
    
19.         .PivotItems("201005").Visible = False
    
20.         .PivotItems("201006").Visible = False
    
21.         .PivotItems("201007").Visible = False
    
22.         .PivotItems("201008").Visible = False
    
23.         .PivotItems("201009").Visible = False
    
24.         .PivotItems("201010").Visible = False
    
25.         .PivotItems("201011").Visible = False
    
26.         .PivotItems("201012").Visible = False
    
27.     End With
    
28. End Sub

複製代碼

上面是錄製的
我想要改成類似下面的
不知道還差什麼

1. Sub ddd()
   
2. 
   
3.     For i = 2009 To 2010
   
4.     For n = 1 To 12
   
5.     x = i & Format("n", "00")
   
6.     With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("月份")
   
7.         .PivotItems("" & x & "").Visible = False
   
8.     End With
   
9.     Next
   
10.     Next
    
11.    
    
12.    
    
13.    
    
14. End Sub

複製代碼

[attach]9857[/attach]

---

作者: register313    時間: 2012-3-5 14:31

回復 1# freeffly

變數不加雙引號

1. Sub ddd()
   
2.     For i = 2009 To 2010
   
3.     For n = 1 To 12
   
4.     x = i & Format(n, "00")
   
5.     With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("月份")
   
6.         .PivotItems(x).Visible = False
   
7.     End With
   
8.     Next
   
9.     Next
   
10. End Sub

複製代碼

---

作者: freeffly    時間: 2012-3-5 14:43

回復 2# register313


    謝謝大大
   真是困擾我好久沒想到答案這麼簡單
   再問一各剛剛找到另一種方式
   每各月新增資料雖然排序後會放到後面(201202)
    可是在下面的程式碼好像會把201202這各項目當第一各
   不知道這有沒有方式解決

1.     With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("月份")
   
2.     c = .PivotItems.Count
   
3.     .PivotItems(c).Visible = False
   
4.         For i = 1 To c - 13
   
5.             .PivotItems(i).Visible = False
   
6.         Next
   
7.     End With

複製代碼

---

作者: register313    時間: 2012-3-5 15:02

本帖最後由 register313 於 2012-3-5 15:08 編輯

回復 3# freeffly

1. Sub xx()
   
2. With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("月份")
   
3.     c = .PivotItems.Count
   
4. '   .PivotItems(c).Visible = False     '多了這一行
   
5.         For i = 1 To c-13
   
6.         .PivotItems(i).Visible = False
   
7.         Next
   
8.     End With
   
9. End Sub

複製代碼

---

作者: freeffly    時間: 2012-3-5 15:20

回復 4# register313


    謝謝大大
   可能昏頭了
   竟然沒注意到這一句
   謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)