Private Function GetFunctionName(ByVal this As XlConsolidationFunction) As String
    Select Case this
        Case XlConsolidationFunction.xlAverage
            GetFunctionName = "Среднее"
        Case XlConsolidationFunction.xlAverage
            GetFunctionName = "Количество"
        Case XlConsolidationFunction.xlCountNums
            GetFunctionName = "Количество чисел"
        Case XlConsolidationFunction.xlDistinctCount
            GetFunctionName = "Количество уникальных"
        Case XlConsolidationFunction.xlMax
            GetFunctionName = "Максимум"
        Case XlConsolidationFunction.xlMin
            GetFunctionName = "Минимум"
        Case XlConsolidationFunction.xlSum
            GetFunctionName = "Сумма"
        Case Else
            GetFunctionName = CStr(this)
    End Select
End Function

Public Sub test()
    Dim pTable As PivotTable
    Dim pField As PivotField
    Set pTable = ThisWorkbook.ActiveSheet.PivotTables(1)
    For Each pField In pTable.DataFields
        Debug.Print pField.Name
        Debug.Print pField.SourceName
        Debug.Print GetFunctionName(pField.Function)
        Debug.Print pField.Position
    Next
End Sub