Note: The other languages of the website are Google-translated. Back to English

피벗 테이블에 여러 필드를 추가하는 방법은 무엇입니까?

피벗 테이블을 만들 때 필드를 행 레이블 또는 값으로 하나씩 수동으로 끌어 야합니다. 필드 목록이 긴 경우 몇 개의 행 레이블을 빠르게 추가 할 수 있지만 나머지 필드는 값 영역에 추가해야합니다. 피벗 테이블에서 한 번의 클릭으로 다른 모든 필드를 값 영역에 추가 할 수있는 빠른 방법이 있습니까?

VBA 코드로 피벗 테이블의 값 영역에 여러 필드 추가

Office 탭 Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.
  • 무엇이든 재사용 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용 할 수 있습니다.
  • 20 개 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트의 일부 추출 또는 제거 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서와 시트를 하나로; 데이터 손실없이 여러 셀 / 행 / 열 병합; 중복 행과 합계를 병합합니다.
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할합니다. 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 한 열에서 여러 열로.
  • 붙여 넣기 건너 뛰기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 개인화 된 이메일을 여러 수신자에게 대량으로 보냅니다.
  • 슈퍼 필터 : 고급 필터 구성표를 만들고 모든 시트에 적용하십시오. 종류 주, 일, 빈도 등으로; 필터 굵게, 수식, 주석으로 ...
  • 300개 이상의 강력한 기능; Office 2007-2021 및 365에서 작동합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다.

화살표 블루 오른쪽 거품 VBA 코드로 피벗 테이블의 값 영역에 여러 필드 추가

안타깝게도 한 번의 클릭으로 피벗 테이블 필드 목록의 모든 필드를 빠르게 확인할 수있는 확인란이 없지만 다음 VBA 코드를 사용하면 나머지 필드를 값 영역에 한 번에 추가 할 수 있습니다. 다음과 같이하십시오 :

1. 피벗 테이블을 만든 후 먼저 필요에 따라 행 레이블 필드를 추가하고 값 필드는 보고서에 추가 할 필드 선택 목록, 스크린 샷 참조 : </ p>

doc-add-multiple-fields-1

2. 누르고 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창.

3. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

VBA 코드 : 활성 워크 시트에서 피벗 테이블의 값 영역에 여러 필드 추가

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. 그런 다음 F5 이 코드를 실행하려면 나머지 모든 필드가 값 영역에 동시에 추가되었습니다. 스크린 샷을 참조하십시오.

doc-add-multiple-fields-1

주의 사항:이 VBA 코드는 활성 워크 시트의 모든 피벗 테이블에 적용됩니다.


관련 기사 :

통합 문서를 구성하는 모든 피벗 테이블을 나열하는 방법은 무엇입니까?

통합 문서에 피벗 테이블이 있는지 확인하는 방법은 무엇입니까?


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단

 

코멘트 (23)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 멋지고 유용한 매크로입니다. 그러나 이미 내 필드의 절반을 값에 추가했으며 이 매크로를 실행하면 동일한 필드가 모두 다시 추가되었습니다. 이유를 알겠어요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
우와. 아주 잘 작동합니다. 감사합니다! 그럼에도 불구하고 Microsoft에 다소 간단한 작업을 위한 기능이 내장되어 있지 않다는 사실에 다소 놀랐습니다...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
환상적이다. 값 대신 행 레이블에 모두 추가하도록 매크로를 수정할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
제외된 필드에 대해서만 이것을 실행하여 실행할 때 중복 필드가 생기지 않도록 하는 방법이 있습니까? 즉. "필드" 및 "Field_2"
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용] 제외된 필드에 대해서만 실행하여 실행할 때 중복 필드가 생기지 않도록 하는 방법이 있습니까? 즉. "필드" 및 "Field_2"[/인용] 예- 두 가지 예 나머지 모든 선택되지 않은 항목을 ROWS에 추가하려면 이것을 사용합니다. Sub AddAllFieldsRow() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 To iColEnd With .PivotFields(iCol) If .Orientation = 0 Then .Orientation = xlRowField End If End With Next iCol End With End Sub 이 옵션을 사용하여 VALUES Sub AddAllFieldsValues()에 나머지 선택되지 않은 항목을 추가합니다. Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) with pt iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 to iColEnd .PivotFields(iCol) If .Orientation =0 .Orientation = xlDataField End If End With End With End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나머지 또는 전체가 아닌 일부 ekstra 필드만 추가하고 이미 확인되지 않은 한 쌍만 추가하는 방법이 있습니까? :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
예, 마커를 에코하려면 확실히 필드 레이블이 있는 선택되지 않은 필드만 추가하도록 코드를 편집하는 방법이 있습니까(예: if 포함 기능)? 예를 들어, 주제별로 실제로 50개의 예/아니오 값이 있는 질문이 있는데 이 값을 모두 값 필드로 옮기고 싶습니다. 그들은 모두 동일한 질문 레이블 q9_[특정 질문 주제]로 시작합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
어쨌든 기본 파일에서 모든 열 대신 선택한 열을 추가하려는 경우가 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
계산으로 값을 가져옵니다. 모든 수를 합으로 변환하는 방법
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
필드(필드를 열 레이블, 행 레이블 등으로 드래그하는 영역)를 클릭한 다음 "값 필드 설정"을 클릭하면 "합"을 선택할 수 있는 드롭다운 목록이 나타납니다!
A     El
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 훌륭합니다! 감사해요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"xlDataField"가 PowerPivot에서 작동하지 않습니까? 피벗 테이블에 모든 측정값을 추가하는 데 사용되는 아래 코드가 있습니다. "xlColumnField" 및 "xlRowField"와 함께 작동합니다. 이 작업을 수행하는 방법에 대한 아이디어가 있습니까?

하위 AddAllFieldsValues()
어둡게 pt 피벗 테이블로
Dim iCol As Long
iColEnd를 최대한 어둡게

Set pt = ActiveSheet.PivotTables (1)

pt와 함께

아이콜 = 1
iColEnd = .CubeFields.Count

iCol의 경우 = 1 iColEnd로
.CubeFields(iCol) 사용
.Orientation = xlHidden이면
.방향 = xlDataField
END IF

다음 아이콜



최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕.

실행을 클릭하면 컴파일 오류가 발생합니다.

도와주세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매력처럼 작동합니다. 감사해요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다 많은 도움이 되었습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 고맙습니다!!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
참고: Che의 오류 메시지:




하위 AddAllFieldsValues()




'업데이트 20141112




pt를 피벗 테이블로





나는 흐리게






각각
ActiveSheet.PivotTables의 pt






I = 1 pt.PivotFields.Count로













다음



다음




최종 하위










참고: Che는 다음을 추가하려고 합니다.
fields/snapshot- "기타 차이의 합계, 4096의 합계
80개 이상의 필드에서 차이점"
추가







기타 차이점



4096 차이



4016 차이
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"값이
행 값이 표시되지 않도록 하는 방법 "0" 또는 "Null"

(ex. 2743 차이의 합)





피벗 "행"
피벗 "가치"





행 레이블





NP9 - 총 미지불
세출





기타 차이의 합 1,045,355,165.31




3200 차이의 합
0.00




0108 차이의 합
12,873,630.29



4586 차이의 합
(33,024,706.93)



0148 차이의 합
(72,046,783.14)



0129 차이의 합
(5,583,891.98)



4598 차이의 합
(929,574.56)



2743 차이의 합



4041 차이의 합
0.00



2799 차이의 합
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
필드를 값 대신 행 레이블로 보내는 매크로를 편집하는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Задача же не всегда стоит в получении списка, хочется допустим поправить названия таблиц илинс 무엇입니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 선택되지 않은 열만 추가하는 방법이 있습니까? 감사해요. 
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드를 실행 중입니다. 완료하는 데 시간이 얼마나 걸립니까? 현재 45분이 지났습니다. 아직 실행 중입니다. 도와주세요. 그건 그렇고, 내 총 필드 열은 3600입니다.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호