Question

我正在尝试使用vba从名为DATA的工作表中的数据创建数据透视表。组织在多个列中，其中三列被接受地称为NOM，NOM_MOVE和COMMENT。

我希望数据透视表具有以下字段：Col标签字段= Sum（值），行标签字段= COMMENT，值字段= NOM之和，NOM_MOVE之和

但是，我编写的代码不起作用或给出正确的字段（即使是使用pivottablewizard和cache / createpivottable的不同形式。

我的代码直到我在分配正确字段时遇到问题：

Sub CreatePivot()
' Create the 5 summary pivot tables using the TRADE_LIST sheet as data
Dim pivot1 As Worksheet
Dim datasheet As Worksheet
Dim dataCache As PivotCache
Dim PVT As PivotTable
Dim LastRow As Long
Dim LastCol As Long
Dim dataSource As Range
Dim PVTdest As Range

Set datasheet = Sheets("DATA")
Set pivot1 = Sheets("PIVOT")

' (1) Source data from the TRADE_LIST sheet and create a pivot cache from source data                     to use for each pivot table

LastRow = datasheet.Cells(1, 1).End(xlDown).Row
LastCol = datasheet.Cells(1, 1).End(xlToRight).Column
Set dataSource = datasheet.Cells(1, 1).Resize(LastRow, LastCol)

Set dataCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=dataSource)

' (2) Create a pivot table
Set PVTdest = pivot1.Cells(2, 2)
Set PVT = dataCache.CreatePivotTable(tabledestination:=PVTdest,              tablename:="Comment_Sums")

...

任何帮助非常感谢

Answer 1

我对您的代码进行了一些修改，请尝试以下操作：

Sub CreatePivot()
' Create the 5 summary pivot tables using the TRADE_LIST sheet as data
Dim LastRow, LastCol As Long
Dim dataSource, destination As String
Dim wb As Workbook
Dim data_sheet, pivot1 As Worksheet

Set wb = ThisWorkbook
Set data_sheet = wb.Sheets("DATA") 'in your code, you forgot to include WB
Set pivot1 = wb.Sheets("PIVOT")

' (1) Source data from the TRADE_LIST sheet and create a pivot cache from source data _
  to use for each pivot table

'i changed this part to cover all data 
LastRow = data_sheet.Cells(data_sheet.Rows.Count, 1).End(xlUp).Row
LastCol = data_sheet.Cells(1, data_sheet.Columns.Count).End(xlToLeft).Column

'PivotCache creation requires arguments in string format, no need to use Set
dataSource = data_sheet.Name & "!" & data_sheet.Cells(1, 1).Resize(LastRow, LastCol).Address(ReferenceStyle:=xlR1C1)
destination = pivot1.Name & "!" & pivot1.Range("A1").Address(ReferenceStyle:=xlR1C1)

'here we use the datasource and destination
wb.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    dataSource, Version:=xlPivotTableVersion12).CreatePivotTable _
    TableDestination:=destination, TableName:="PivotTable1", DefaultVersion _
    :=xlPivotTableVersion12

'after creating pivot, add the Row Field
With pivot1.PivotTables("PivotTable1").PivotFields("Comment")
    .Orientation = xlRowField
    .Position = 1
End With

'then add the column fields
With pivot1
    .PivotTables("PivotTable1").AddDataField .PivotTables( _
        "PivotTable1").PivotFields("NOM"), "Sum of NOM", xlSum
    .PivotTables("PivotTable1").AddDataField .PivotTables( _
        "PivotTable1").PivotFields("NOM_MOVE"), "Sum of NOM_MOVE", xlSum
End With

End Sub

希望这是你的开始。

VBA和数据透视表：获取两个数据字段

1 个答案: