標題: [發問] 如何只挑出選定的資料欄位 [打印本頁]

---

作者: freeffly    時間: 2011-10-26 17:09     標題: 如何只挑出選定的資料欄位

我想要執行程式碼時就可以轉換成我要的資料欄位
對於樞紐分析的vba還不太熟
請大家幫忙看依下
我想要執行時只出現如目前工作表時的模樣
但是每執行一次都會增加一欄資料
不知道跟我的資料是自訂公式有沒有關係
或是單純程式碼的問題?

1. Sub 測試()
   
2. '
   
3. '
   
4. 
   
5.     Dim pt As PivotTable
   
6.     Dim pf As PivotField
   
7.     Dim pi As PivotItem
   
8.    
   
9.     Application.ScreenUpdating = False
   
10.     Application.DisplayAlerts = False
    
11.     On Error Resume Next
    
12.     For Each pt In ActiveSheet.PivotTables
    
13.         pf.Orientation = xlHidden
    
14.     Next
    
15.     For Each pi In pt.DataFields
    
16.         pi.Orientation = xlHidden
    
17.     Next
    
18.     ActiveSheet.PivotTables("樞紐分析表1").PivotFields("總時數").Orientation = xlDataField
    
19.     ActiveSheet.PivotTables("樞紐分析表1").AddFields RowFields:="部門", ColumnFields:= _
    
20.         Array("年度", "月份")
    
21. End Sub

複製代碼

[attach]8341[/attach]

---

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