Question

使用宏时，已存在的数据透视表与另一张工作表的信息不完全匹配，因此我要清除数据透视表工作表“ TJC”，然后从另一张工作表“ TJ”中输入一个新的数据表。我使用了一个宏记录器来精确显示我想要的数据透视表。我不确定如何获取表格的某些条件，但是如果您需要除此宏记录器之外的更多信息，请告诉我。

isum.Sheets("TJ").Cells.Select
Selection.delete Shift:=xlUp
Range("H13").Select
Sheets("TJC").Select
Cells.Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "TJCust!R1C1:R1048576C7", Version:=6).CreatePivotTable _
    TableDestination:="TJCust!R1C1", TableName:="PivotTable1", _
    DefaultVersion:=6
Sheets("TJCust").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("PivotTable1")
    .ColumnGrand = True
    .HasAutoFormat = True
    .DisplayErrorString = False
    .DisplayNullString = True
    .EnableDrilldown = True
    .ErrorString = ""
    .MergeLabels = False
    .NullString = ""
    .PageFieldOrder = 2
    .PageFieldWrapCount = 0
    .PreserveFormatting = True
    .RowGrand = True
    .SaveData = True
    .PrintTitles = False
    .RepeatItemsOnEachPrintedPage = True
    .TotalsAnnotation = False
    .CompactRowIndent = 1
    .InGridDropZones = False
    .DisplayFieldCaptions = True
    .DisplayMemberPropertyTooltips = False
    .DisplayContextTooltips = True
    .ShowDrillIndicators = True
    .PrintDrillIndicators = False
    .AllowMultipleFilters = False
    .SortUsingCustomLists = True
    .FieldListSortAscending = False
    .ShowValuesRow = False
    .CalculatedMembersInFilters = False
    .RowAxisLayout xlCompactRow
End With
With ActiveSheet.PivotTables("PivotTable1").PivotCache
    .RefreshOnFileOpen = False
    .MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables("PivotTable1").RepeatAllLabels xlRepeatLabels
ActiveWorkbook.ShowPivotTableFieldList = True
Range("B10").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Item$SV$Item")
    .Orientation = xlRowField
    .Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
    "PivotTable1").PivotFields("Hand_Amount"), _
    "Count of Hand_Amount", xlCount
With ActiveSheet.PivotTables("PivotTable1").PivotFields( _
    "Count of Hand_Amount")
    .Caption = "Sum of Hand_Amount"
    .Function = xlSum
End With

Answer 1

在下面的代码中，创建并命名了数据透视表。 xlRowFields是您的类别（和子类别）。 xlDataFields是类别的列数据（以及该数据上的函数类型）。然后，将根据“列”（数据字段）的值对数据透视表进行排序。

此示例中免除了很多代码，例如，建立了新的列以查找每个数据透视表行的平均值，并且将一个副本复制到几乎一个数据表中，以便在将整个表复制到该表之前简化格式报表（作为基于单元格的表，不再作为枢轴）

Option Explicit

'Added this code so you can see where the worksheet is coming from
'Use your own worksheet set up here
Dim CalcSheet as Worksheet
Set CalcSheet = ThisWorkbook.Worksheets("Calc Sheet")

'***************************************
'Make the Sales-Customer Pivot and table
'***************************************

    '***************************
    'Add Sales Pivot Table
    'Also edited to place the Picot in cell A1 of the worksheet that you set up above
    'Do not forget to modify the SourceData Range for your intended data range . . . 
    'Walk through this line by line so you understand what is happening

   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        CalcSheet.Range("K14:AY" & LastDR), Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:=CalcSheet.Range("A1"), TableName:="SalesPVT", DefaultVersion _
        :=xlPivotTableVersion15

    With CalcSheet.PivotTables("SalesPVT").PivotFields("Salesperson")
        .Orientation = xlRowField
        .Position = 1
    End With

    With CalcSheet.PivotTables("SalesPVT").PivotFields("Customer")
        .Orientation = xlRowField
        .Position = 2
    End With

    With CalcSheet.PivotTables("SalesPVT").PivotFields("DD Rev")
        .Orientation = xlDataField
        .Function = xlSum
        .NumberFormat = "$#,##0"
    End With

    With CalcSheet.PivotTables("SalesPVT").PivotFields("Job Days")
        .Orientation = xlDataField
        .Function = xlSum
        .NumberFormat = "#,##0"
    End With

    CalcSheet.PivotTables("SalesPVT").PivotFields("Salesperson").AutoSort _
        xlDescending, "Sum of DD Rev"

这是可复制数据透视表的方式，在报表上根据数据构建更多的计算列时，对它们的处理并不是那么有趣。

'copy pivot table to get rid of it
 CalcSheet.PivotTables("SalesPVT").TableRange1.Copy
'Paste it as values with formatting
CalcSheet.Range("CA100").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

这将删除复制后创建的数据透视表

 CalcSheet.PivotTables("SalesPVT").TableRange1.Delete

在VBA中使用某些条件创建数据透视表

1 个答案: