返回列表 上一主題 發帖

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

freeffly

帖子
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
收藏 分享
字典兩各字 還真難理解

freeffly

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

熱烈參與勳章好學求知勳章
4#
發表於 2011-4-29 18:10 | 只看該作者
回復 2# kimbal


    大大我還沒修改完
     我想到依各問題要讓他判斷我現在要看的是幾月份是不是要用inputbox的方式?
   或者讓i以某各儲存格的值作判斷?
字典兩各字 還真難理解

TOP

freeffly

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

熱烈參與勳章好學求知勳章
3#
發表於 2011-4-28 17:40 | 只看該作者
回復 2# kimbal


    試過在告訴大大可不可以用
     看起來應該是可以
     因為我想了很久都不知道用什麼方法替代那個月份
字典兩各字 還真難理解

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2011-4-28 13:54 | 只看該作者
本帖最後由 kimbal 於 2011-4-29 07:56 編輯

試試這樣: (沒有詳細測試)
  1. Sub 報表(i as integer)

  3.     With Sheets("實際與預算比較").PivotTables("樞紐分析表4").PivotFields("月份")
  4.         .Orientation = xlPageField
  5.         .Position = 1
  6.         for j = 1 to 12
  7.                 .PivotItems("99年" & str(j) & "月").Visible = (j<=i)
  8.         next
  9.     End With
  10.    
  11. End Sub
複製代碼
呼叫時:
  1. call 報表(10)
複製代碼
10 為月份
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題