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

Question

The code does not cause an error and a table with the correct row and column fields are created. Nothing appears in the value field though.

'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

This is only part of the code, the above code should not cause the value field to not appear. The data source of the pivot table includes the column and all the data I want to appear in the value field.

Answer 1

Not having your lines properly indented can cause all sorts of issues. Try this

    '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

To define a pivot field as "value field", you have to use xlDataField .

.Orientation = xlDataField

Just in case:
The often called "filter fields" have the orientation xlPageField .