[求助]关于数据透视表的宏代码

Dong2000

请问怎样让透视表的PivotFields为标题栏，也就是怎样修改第一句代码。谢谢

    
    With ActiveSheet.PivotTables("数据透视表1").PivotFields(Range("Q2").Offset(0, 8 * (i - 1)))
        .Orientation = xlDataField
        .Caption = "求和项:" & Range("Q2").Offset(0, 8 * (i - 1))
        .Position = 4 * (i - 1) + 1
        .Function = xlSum
    End With

清风_ll

没用过透视表,最好传一个附件.

sunsoncheng

.Position = 4 * (i - 1) + 1

这是一个什么属性？

sunsoncheng

我一直都是在录制宏的基础上修改一下再使用的，也想知道多一点！

下面是我在用的一个东东：选取了范围后列名是自动的，要更改名是不能同名的，所以的数量中间加了个空格！

    With .PivotTables("箱单").PivotFields("数量")
        .Orientation = xlDataField
        .Caption = "数 量"
        .Function = xlSum
    End With

[此贴子已经被作者于2006-8-29 11:56:19编辑过]