數據透視表-VBA宏

Question

我正在嘗試使用vba宏創建數據透視表。 我可以創建初始數據透視表（圖像1），但是當我嘗試修改排列（圖像2）時，出現錯誤。

啊哈！ 得到它了！

.Orientation = xlRowField

這是關鍵，並使用1-n表示事件數。

'Setting Fields
With pt
With .PivotFields("ID")
.Orientation = xlRowField
.Position = 1
End With

'set column field
With .PivotFields("WorkTime")
.Orientation = xlRowField
.Function = xlSum
.Position = 2
End With

'set column field
With .PivotFields("OvertimePeriod")
.Orientation = xlRowField
.Function = xlSum
.Position = 3
End With

With .PivotFields("Sick leave")
.Orientation = xlRowField
.Function = xlSum
.Position = 4
End With

With .PivotFields("Vacation")
.Orientation = xlRowField
.Function = xlSum
.Position = 5
End With

它們並非都如圖2所示！

任何建議將不勝感激。謝謝您。

Ĵ

Answer 1

嘗試在Excel中使用“錄制宏”進行錄制。