2013-07-29 6 views
1
사람이 VBA를 사용하여이 일

매크로 : 전치 문제

를 도와 줄 수 있다면

원더, 나는 자동으로 단정 한 작은 목록으로 데이터를 접촉 한 후 다른 시트에 피벗 테이블을 전치로 시작하는 매크로를 설정 한 나중에 사용자가 데이터베이스에 설정할 수 있습니다.

이제 피벗 테이블을 위해 그것을 처음으로 구축 후에는 꿈을 근무하고 나에게 내가 원하는 결과를 제공하지만 피벗 테이블을 업데이트하고 길이를 변경할 때마다, 나는 문제가 시작하기 시작했다. 희망이 스크린 샷은 도움이 될 것입니다

enter image description here

당신은 거기에 대한 정보 만 알 필요가없는

매크로를 수행 할 수있는 전체 피벗 트랜스 여기에 할 것으로 예상된다 어떤 두 배의 단면을 클릭 총액 또는 셀을 마우스 오른쪽 버튼으로 클릭하고 모든 항목을 선택하십시오. 그것은 그 세포가 설정되어지고의 순간에 코드를 의미로

(노란색으로 강조 표시)입니다 : 내가 강조 곳으로 순간 (가 고정되어 있음을 깨달았다 곳

Range("AA65").Select 
Selection.ShowDetail = True 

이것은 등) 빨간색으로 나는 그것을 내에서 모든 내용을 바꾸어 할 수 있도록 매크로가 피벗 테이블의 다양한 길이에 적응하여이를 해결하는 방법을 모른다. 도움이된다면 그것은 그 변경 사항을 끝나는, 총계는 항상 특정 행에 그 바로 열 수 있습니다.

필자는 얼마나 많은 열을 뻗어 있더라도 피벗의 Grand Total 셀을 항상 선택할 수있는 코드를 만드는 방법이 있습니까?

읽기 주셔서 감사합니다 나는 피드백이 곧

친절 감사

조이

+0

이 마지막으로 사용 된 열을 얻기 위해, 을 예를 들어 :) 얻을 수 있도록 노력하겠습니다 Activesheet.Cells (rnum, Columns.Count) .END rnum가 ROWNUMBER이다 (xltoleft) .Column. 가 마지막으로 사용 된 행을 얻기 위해, Activesheet.Cells (Rows.Count, cnum) .END cnum는 columnnumber입니다 (xlup) 셀에만를 수행합니다. 희망이 도움이됩니다. –

답변

3

With ActiveSheet.PivotTables(1).TableRange1 
    .Cells(.Cells.Count).ShowDetail = True 
    End With 
+0

그리고 거기 당신은 그것이, 테스트^_^대단히 조시 감사합니다 당신은 나에게 많은 시간을 저장 한 완벽 다시 정상으로 작동했다 :) – Zoe