看起來每作一次樞紐分析表就會進一個編號, 樞紐分析表9, 樞紐分析表10.....
Sub 製作樞紐()
'
'
'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"清單!R1C1:R1905C78", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="工作表11!R3C1", TableName:="樞紐分析表9", DefaultVersion:= _
xlPivotTableVersion14
Sheets("工作表11").Select
Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("樞紐分析表9").PivotFields("Sheet")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("樞紐分析表9").PivotFields("Name")
.Orientation = xlColumnField
.Position = 2
End With
With ActiveSheet.PivotTables("樞紐分析表9").PivotFields("Type")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("樞紐分析表9").PivotFields("Order P/N")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("樞紐分析表9").AddDataField ActiveSheet.PivotTables("樞紐分析表9" _
).PivotFields("需求製作總數量"), "計數 - 需求製作總數量", xlCount
With ActiveSheet.PivotTables("樞紐分析表9").PivotFields("計數 - 需求製作總數量")
.Caption = "加總 - 需求製作總數量"
.Function = xlSum
End With
Range("K1").Select
End Sub
更新1:
我是要設計用VBA建立一個基本的樞紐欄位已經定好選項的樞紐分析表,有需要使用者再去修改,可是VBA就是無法做成功。 因為多個使用者,每次都要教怎麼做基本設定很麻煩,A單位提供的資料區的數字天天在更新,我需要利用新來的檔案,先用VBA整理+樞紐分析,才會得到我要的答案。 此問題是用VBA建立新的樞紐分析表,如果是更新樞紐分析表,有很多網路資料可以參考了...感恩