- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
 
|
本帖最後由 freeffly 於 2012-3-6 13:41 編輯
- Sub Macro1()
- With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("月份")
- .PivotItems("200901").Visible = False
- .PivotItems("200902").Visible = False
- .PivotItems("200903").Visible = False
- .PivotItems("200904").Visible = False
- .PivotItems("200905").Visible = False
- .PivotItems("200906").Visible = False
- .PivotItems("200907").Visible = False
- .PivotItems("200908").Visible = False
- .PivotItems("200909").Visible = False
- .PivotItems("200910").Visible = False
- .PivotItems("200911").Visible = False
- .PivotItems("200912").Visible = False
- .PivotItems("201001").Visible = False
- .PivotItems("201002").Visible = False
- .PivotItems("201003").Visible = False
- .PivotItems("201004").Visible = False
- .PivotItems("201005").Visible = False
- .PivotItems("201006").Visible = False
- .PivotItems("201007").Visible = False
- .PivotItems("201008").Visible = False
- .PivotItems("201009").Visible = False
- .PivotItems("201010").Visible = False
- .PivotItems("201011").Visible = False
- .PivotItems("201012").Visible = False
- End With
- End Sub
我想要改成類似下面的
不知道還差什麼- Sub ddd()
- For i = 2009 To 2010
- For n = 1 To 12
- x = i & Format("n", "00")
- With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("月份")
- .PivotItems("" & x & "").Visible = False
- End With
- Next
- Next
-
-
-
- End Sub
 Book1.rar (34.47 KB)
|
|
發表於 2012-3-5 14:05
| 
