[已解决]用宏录的透视表单价应为最大为什么成为求和

江河行地

以单价区分。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-10-10 17:15

'创建方式1：先创建数据透视表缓存对象，再创建数据透视表
Sub test1()
    Dim pc As PivotCache
    Dim pt As PivotTable

    '创建空白工作表，存放数据透视表。
    Sheets.Add after:=Sheets(Sheets.Count)
    '创建 数据透视表的缓存（PivotCache 对象）
    Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, Sheets("Sheet1").[a1].CurrentRegion, 2)
    '创建一个基于 数据透视表的缓存（PivotCache 对象）的数据透视表。透视表左上角在A1
    Set pt = pc.CreatePivotTable([a1])
    With pt
        .PivotFields("单价").Orientation = xlRowField
        .PivotFields("数量").Orientation = xlDataField
        .PivotFields("单价").Orientation = xlDataField
        .PivotFields("金额").Orientation = xlDataField
        .DataPivotField.Orientation = xlColumnField

        .PivotFields("求和项:单价").Caption = "最大值项:单价"
        .PivotFields("最大值项:单价").Function = xlMax
    End With
End Sub

跳转到最佳答案楼层

江河行地

这个效果是想用VBA完成的，主要是单价问题?VBA中不会实现?

sry660

你是用“单价”作为“行标签”，但是“单价列”为数值格式，导致录制宏运行后不能正常显示；
解决办法：
重新增加单价列（如命名为“单价1”），用分列将新增单价列的数值格式变更为文本型数值格式，此时在此基础上在以宏录制透视表，新增的单价列作为行标签，此种方式录制出来的宏就可以使用了，见附件。

爱疯

'创建方式1：先创建数据透视表缓存对象，再创建数据透视表
Sub test1()
    Dim pc As PivotCache
    Dim pt As PivotTable

    '创建空白工作表，存放数据透视表。
    Sheets.Add after:=Sheets(Sheets.Count)
    '创建 数据透视表的缓存（PivotCache 对象）
    Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, Sheets("Sheet1").[a1].CurrentRegion, 2)
    '创建一个基于 数据透视表的缓存（PivotCache 对象）的数据透视表。透视表左上角在A1
    Set pt = pc.CreatePivotTable([a1])
    With pt
        .PivotFields("单价").Orientation = xlRowField
        .PivotFields("数量").Orientation = xlDataField
        .PivotFields("单价").Orientation = xlDataField
        .PivotFields("金额").Orientation = xlDataField
        .DataPivotField.Orientation = xlColumnField

        .PivotFields("求和项:单价").Caption = "最大值项:单价"
        .PivotFields("最大值项:单价").Function = xlMax
    End With
End Sub