ピボット可能なVBAのvaluefieldを参照する方法

Question

画面上で選択したピボットフィールドを参照するにはどうすればよいですか： http://imgur.com/a/JYisGそれは値の1つです： "СуммпополюВестовара、т"（合計の重み、t）。

.DataLabelRange

は、この構造

コードの主な目的は、このようなpivotfieldが存在するかどうかを確認することですでは動作しません。私はこの重量とUSDのデータフィールドが存在するかどうかを確認したい

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 

： はここに私のコードです。彼らはそれらをスキップしている場合。それ以外の場合、コードは同じデータフィールドを再度追加します。

Answer 1

さまざまな方法があります。簡単なのは、間接関数を使うことです。例=INDIRECT("B3",TRUE)