求救excel vba樞紐分析表:錄了一段的巨集,但是不知道怎麼改?

2016-08-19 11:08 am
錄了巨集,再刪除完成的樞紐分析表,再執行VBA,卻會發生錯誤,要怎麼修改?
看起來每作一次樞紐分析表就會進一個編號, 樞紐分析表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建立新的樞紐分析表,如果是更新樞紐分析表,有很多網路資料可以參考了...感恩

回答 (1)

2016-08-20 12:19 am
針對不同需求設計不同樞紐分析表然後使用重整取得資料更新


收錄日期: 2021-05-03 13:47:14
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20160819030818AA1cEWs

檢視 Wayback Machine 備份