使用VBA制作数据透视表时，“值”字段不显示值

Question

该代码不会导致错误，并且将创建具有正确的行和列字段的表。 但是，值字段中什么也没有出现。

'Insert Row Fields
With ActiveSheet.PivotTables("Rev by Facility")
    With .PivotFields("Facility")
        .Orientation = xlRowField
        .Position = 1
    End With
    'Insert Column Fields
    With .PivotFields("Revenue")
        .Orientation = xlColumnField
        .Position = 1
    End With
    'Insert Data Field
    With .PivotFields("SubTotal 2")
        .Orientation = xlValuesField
        .Position = 1
        .Function = xlSum
        .Name = "Sum of SubTotal 2"
    End With
End With

这只是代码的一部分，上面的代码不应导致value字段不出现。 数据透视表的数据源包括该列以及我要显示在value字段中的所有数据。

Answer 1

线条缩进不正确会导致各种问题。 尝试这个

    'Insert Row Fields
    With ActiveSheet.PivotTables("Rev by Facility")
        With .PivotFields("Facility")
            .Orientation = xlRowField
            .Position = 1
        End With
    'Insert Column Fields
        With .PivotFields("Revenue")
            .Orientation = xlColumnField
            .Position = 1
        End With
    'Insert Data Field
        With .PivotFields("SubTotal 2")
            .Orientation = xlValuesField
            .Position = 1
            .Function = xlSum
            .Name = "Sum of SubTotal 2"
        End With
    End With

Answer 2

要将枢轴字段定义为“值字段”，必须使用xlDataField 。

.Orientation = xlDataField

以防万一：
通常称为“过滤器字段”的方向为xlPageField 。