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字段不出现。数据透视表的数据源包括该列以及我要在值字段中显示的所有数据。

Answer 1

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

<div class="content">
<ul class="crumb no-scrollbar">
<li>Home</li>
<li>Category1</li>  
<li>Category2</li>  
<li>Category3</li>
<li>Category4</li>
<li>Category5</li>
<li>Category6</li>
<li>Category7</li>
<li>Category8</li>
<li>Category9</li>
<li>Category9</li>
</ul>
<div class="desr">
</div>
</div>

Answer 2

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

.Orientation = xlDataField

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

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

2 个答案: