지금 같은 상황이면 그냥 평균 함수를 작성하고 복사 붙여넣기를 하면 문항별 평균을 쉽게 구할것 같네요. 다른 상황에서는 유용한 매크로 일수도 있겠네요. ms님 말씀처럼 오히려 설문결과 가로 입력된표를 세로로 정규화해서 Db형태로 만든 후 피벗을 하면 훨씬 체계적으로 관리가 될 듯합니다. 지역이나 성별 정보를 쉽게 추가해서 분석할 수도 있구요. 제 경험으로는 처음 표 설계가 정말 중요한 것 같습니다.
피벗테이블에서는 텍스트일 경우는 디폴트로 갯수가 나타나고, 숫자일 경우는 디폴드로 합계가 나타납니다. 이것을 변경할 수 있는 옵션은 없고.. 강좌에서 설명드린 것과 같이 VBA를 활용하시는 방법 밖에 없습니다. 영상의 내용과 동일하게 하시되 xlSum을 입력하시면 될 것 같습니다.
For i = 1 To 40 QuestionName = "Q" & i Sheets(SheetName).PivotTables(PivotTableName).AddDataField _ Sheets(SheetName).PivotTables(PivotTableName).PivotFields(QuestionName), QuestionName & " ", xlAverage Sheets(SheetName).PivotTables(PivotTableName).PivotFields(QuestionName & " ").NumberFormat = "0.00" Next i Next j
End Sub 피벗 pv1 pv2를 만들어서 했는데 "피벗이 겹쳐질 수 없다"라는 에러가 나오네요. pv1만 있을 때는 잘 됐는데~ 응용하려 pv2까지 하려하니 에러남.
응... 영상을 찍을 때 내가 실수한 것도 그대로 보내야 겠네요... 이게 재미 요소네... 난 왜 그렇게 접근을 못하고 실수한 부분을 다 컷편집을 했었는지...
오늘도 한수 배우고 갑니다. 역시 엑셀 VBA는 매크로 기록 기능이 있어서 좋아요~~ ^^
파워포인트에는 매크로 기록 기능이 없어서 답답한게 많죠? ^^ 항상 화이팅입니다
@@엑셀장인촬스 넵! 촬스님도 늘 화륑입니다~ ^^
고민 해결되었습니다. 고맙습니다.
11:08 이런경우 나오면 노가다 보다 오래걸리는경우도 있죠 ㅋㅋ 노가다 하고 집에갈껄..ㅋㅋ 잘배우고있습니다
촬스님 요즘 제가 피벗테이블 고민하고 있었는데 큰 도움이 됐네요...항상 응원하고 있습니다. 좋은 강의 계속 부탁드립니다.
재밌어요. 새로운 내용이네요
와우 자기전에 좋은강의 보고 갑니다 ㅎㅎ
VBA로 구글스프레드시트를 DB화 해서 엑셀로 데이타를 불러오고, 반대로 스프레드시트에 접속해서 내용을 수정하고 싶습니다. 방법 좀 알려주시면 감사요.
항상 봐도 신기합니다. 저 같은 완초한테는요....감사합니다.
시간적 여유가 되신다면 완초들을 위한 강의도 부탁드리면 무리겠죠?^^
네. 완전 초보자 분들을 위한 강의도 꼭 진행할께요 ^^
근데 추후 활용성 고려하면 언피벗해서 DB형태로 데이터 관리하는데 더 좋지 않을까요 ㅋ
지금 같은 상황이면 그냥 평균 함수를 작성하고 복사 붙여넣기를 하면 문항별 평균을 쉽게 구할것 같네요.
다른 상황에서는 유용한 매크로 일수도 있겠네요.
ms님 말씀처럼 오히려 설문결과 가로 입력된표를 세로로 정규화해서 Db형태로 만든 후 피벗을 하면 훨씬 체계적으로 관리가 될 듯합니다. 지역이나 성별 정보를 쉽게 추가해서 분석할 수도 있구요.
제 경험으로는 처음 표 설계가 정말 중요한 것 같습니다.
잘보겠습니다~~감사요^^
감사합니다!
😆👍
디폴트로 항상 갯수가 뜨는데 합계를 뜨게 할수 없나요
피벗테이블에서는 텍스트일 경우는 디폴트로 갯수가 나타나고, 숫자일 경우는 디폴드로 합계가 나타납니다.
이것을 변경할 수 있는 옵션은 없고..
강좌에서 설명드린 것과 같이 VBA를 활용하시는 방법 밖에 없습니다. 영상의 내용과 동일하게 하시되 xlSum을 입력하시면 될 것 같습니다.
@@엑셀장인촬스 감사합니다. 정말 많이 배우고 있습니다. 숫자가 중간중간 비어 있으면 무조건 갯수로 나타나 F5로 빈셀 0으로 다 채우고 피벗 돌리면 합계로 바뀝니다.
Sub TreatingPivotTable()
Dim i As Integer
Dim j As Integer
Dim QuestionName As String
Dim SheetName As String
Dim PivotTableName As String
SheetName = "Sheet2"
For j = 1 To 2
PivotTableName = "pv" & j
Sheets(SheetName).PivotTables(PivotTableName).ClearTable
For i = 1 To 40
QuestionName = "Q" & i
Sheets(SheetName).PivotTables(PivotTableName).AddDataField _
Sheets(SheetName).PivotTables(PivotTableName).PivotFields(QuestionName), QuestionName & " ", xlAverage
Sheets(SheetName).PivotTables(PivotTableName).PivotFields(QuestionName & " ").NumberFormat = "0.00"
Next i
Next j
End Sub
피벗 pv1 pv2를 만들어서 했는데 "피벗이 겹쳐질 수 없다"라는 에러가 나오네요. pv1만 있을 때는 잘 됐는데~ 응용하려 pv2까지 하려하니 에러남.