VBA에서 CubeField/PivotField를 데이터 필드로 추가할 수 없습니다.

Question

귀하의 질문은 여전히 더 구체화하는 것과 관련이 있습니다. 예를 들어 처음부터 피벗 테이블을 만든 다음 필드를 추가하는지 또는 이미 필드가 있을 수 있는 기존 피벗 테이블에서 실행되는지 여부는 알 수 없습니다.

방금 누군가가 나에게 다음을 가리켰습니다.러버덕 문제 해결/ 블로그 게시물, 그리고 저는 여러분에게도 이를 지적할 것입니다. 왜냐하면 사람들이 관련된 모든 것을 알고 있다면 대답하는 데 도움이 되기 때문입니다.

~에https://msdn.microsoft.com/en-us/vba/excel-vba/articles/pivottable-adddatafield-method-excel.adddatafield의 구문은 AddDataField( Field , Caption , Function )이며 함수는 선택 사항입니다.

그럼 이것을 시도하면 어떻게 될까요?

If Name = "[effRent_perBed].[Manager]" Then
    .Orientation = xlColumnField
 Else:
    With ActiveSheet.PivotTables(1)
        .AddDataField ActiveSheet.PivotTables(1) _
            CubeFields(cubName), _
            "Average of " & cubName, _
            xlAverage
    End With
End if

원본 코드 블록에 몇 가지 문제가 있습니다. CubeFields 컬렉션을 반복하고 큐브 필드 수를 반복하는 이유를 이해할 수 없습니다. 즉, 이 비트:

For Each cubField In pvtTable.CubeFields
    For i = 1 To pvtTable.CubeFields.Count

Cubefields.count의 제곱으로 모든 것을 반복하는 것이 아닌가요? For i = 1 To pvtTable.CubeFields.Count 비트를 버리고 cubField 참조를 직접 사용할 수 있어야 합니다.

코드가 XLAverage로 요약을 설정하지 못한 이유는 데이터 영역에 필드를 추가하면 이름이 효과적으로 변경되기 때문이라고 생각합니다. DataField를 그대로 두고 다음 코드를 실행하면 이를 확인할 수 있습니다.

Sub Macro1()
'
' Macro1 Macro
'
Dim pvtTable As PivotTable
Dim cubField As CubeField
Dim i As Long
Dim cubName As String

Set pvtTable = ActiveSheet.PivotTables(1)
For Each cubField In pvtTable.CubeFields
    Debug.Print cubField.Name
Next

End Sub

그러면 모든 필드의 이름이 직접 실행 창(열려 있다고 가정)에 인쇄됩니다. 이때 [effRent_perBed].[Manager]에 대한 결과가 표시되지만 이는 데이터 필드가 아님을 알 수 있습니다. DataField는 [Measures].[Average of effRent_perBed]와 같습니다.

이것이 바로 코드가 실패한 이유입니다. 여전히 CubeField인 것처럼 관심 필드를 참조하고 있었습니다. 그러나 이를 DataFields 영역에 추가하자마자 새로운 DataField가 생성되고그건집계를 변경해야 하는 항목입니다.

위에서 말했듯이 DataField를 생성할 때 이 작업을 수행할 수 있습니다.

Answer 1