Question

如何参考屏幕上选择的pivotfield： http://imgur.com/a/JYisG。它是价值观中的一个：“СуммпополюВестовара，т”（重量之和，t）。

.DataLabelRange在此结构中不起作用

代码的主要目标是检查是否存在此类数据透视表。这是我的代码：

For Each f In p.PivotFields
If f = "Product" Or f.Name = "Export-Import" Then
f.Orientation = xlPageField
ElseIf f.Name = "Company" Or f.Name = "Partner" Then
f.Orientation = xlRowField
ElseIf f.Name = "Weight." Then
f.Orientation = xlDataField
ElseIf f.Name = "USD" Then
f.Orientation = xlDataField
Else f.Orientation <> xlHidden Then
f.Orientation = xlHidden
End If
Next

我想检查这个Weight和USD数据字段是否存在。如果他们然后跳过他们。否则，代码将再次添加相同的数据字段。

Answer 1

有多种方式。一个简单的方法是使用间接功能。示例=INDIRECT("B3",TRUE)

如何在pivottable VBA中引用valuefield

1 个答案: