VBA를 사용하여 피벗 테이블의 한 열을 끝까지 이동하는 방법?

Question

피어 테이블을 만들지 만 콜럼 순서는 내가 원하는 것이 아닙니다. 하나의 열을 오른쪽 끝으로 옮기고 싶습니다. Excel에서 할 수 있지만 VBA로 수행하는 방법을 모릅니다.

Excel에서 이동하려는 열 머리글을 활성화하고 오른쪽 단추를 클릭 한 다음 이동, "-"을 선택하여 끝내십시오.

매크로 기록 -. 기록 매크로, 그냥 정확한 위치, 단지, ActiveSheet.PivotTables ("PivotTable16을")처럼 표시 할 때 PivotFields ("WK") PivotItems ("#의 VALUE!") _ .. Position = 12 하지만 다른 파일에서 매크로를 사용하고 싶습니다. 끝 위치가 12가 아닐 수도 있습니다. 그러면 매크로를 사용할 수 없습니다.

희망은 여기에서 도움을 얻을 수 있습니다. 어떻게 VBA에 의해 끝내려면 colunm 이동하려면 어떻게해야합니까? 감사.

Answer 1

나는 당신이 올바르게되기를 바랍니다.

당신은

ActiveSheet.PivotTables("PivotTable1").PivotFields("whatever").PivotItems.count

에 의해 종료 위치를 얻을 수는 기본적으로 당신이

Dim total as Integer 

total = ActiveSheet.PivotTables("PivotTable1").PivotFields("whatever").PivotItems.count 

ActiveSheet.PivotTables("PivotTable1").PivotFields("whatever").PivotItems("whatever").position = total 

같이 할 수있는 그래서

편집 레이블

에 대한 항목 수를 반환

Answer 2

이 문제를 해결하고 내가 한 것과 동일한 문제에 부딪히는 사람에게 무작위로 메모합니다. 매크로에서 필드를 숨기면 오류가 발생합니다. 피봇 테이블을 설정할 때 마지막으로이 코드를 사용하지 마십시오. 이 코드를 사용하여 맨 아래 위치로 이동 한 다음 필드를 숨기는 코드를 작성하십시오. 필드를 먼저 숨기면 숨겨진 필드가 계산되어 피벗 테이블 밖으로 이동하여 오류가 발생합니다.