返回列表下一主題上一主題發帖

[發問] 樞紐分析項目累計的問題

freeffly

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-28 12:41 | 顯示全部帖子

[發問] 樞紐分析項目累計的問題

我有一個做可以選擇累計到該月的資料樞紐，可是我做了12個程序
每個月做一個，想知道有沒有方式可以只做一個讓程序判斷?
.PivotItems("99年1月")這各可以用for ... i = 1 to 12之類的方式取代嗎?

Sub 報表10月()
With Sheets("實際與預算比較").PivotTables("樞紐分析表4").PivotFields("月份")
      .Orientation = xlPageField
      .Position = 1
      .PivotItems("99年1月").Visible = True
      .PivotItems("99年2月").Visible = True
      .PivotItems("99年3月").Visible = True
      .PivotItems("99年4月").Visible = True
      .PivotItems("99年5月").Visible = True
      .PivotItems("99年6月").Visible = True
      .PivotItems("99年7月").Visible = True
      .PivotItems("99年8月").Visible = True
      .PivotItems("99年9月").Visible = True
      .PivotItems("99年10月").Visible = True
      .PivotItems("99年11月").Visible = False
      .PivotItems("99年12月").Visible = False
End With

End Sub