- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
 
|
我想要執行程式碼時就可以轉換成我要的資料欄位
對於樞紐分析的vba還不太熟
請大家幫忙看依下
我想要執行時只出現如目前工作表時的模樣
但是每執行一次都會增加一欄資料
不知道跟我的資料是自訂公式有沒有關係
或是單純程式碼的問題?- Sub 測試()
- '
- '
- Dim pt As PivotTable
- Dim pf As PivotField
- Dim pi As PivotItem
-
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- On Error Resume Next
- For Each pt In ActiveSheet.PivotTables
- pf.Orientation = xlHidden
- Next
- For Each pi In pt.DataFields
- pi.Orientation = xlHidden
- Next
- ActiveSheet.PivotTables("樞紐分析表1").PivotFields("總時數").Orientation = xlDataField
- ActiveSheet.PivotTables("樞紐分析表1").AddFields RowFields:="部門", ColumnFields:= _
- Array("年度", "月份")
- End Sub
 加班單明細表-測試.rar (11.99 KB)
|
|
發表於 2011-10-26 17:09
| 
