나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 푸른가을하늘 (zeroship)

추천:  2
파일:     조회:  2465
제목:   [RE]피벗테이블 매크로실행오류
　 　 　
　 저도 초보라.....아래 코드를 참고하세요...
그럼 도움이 되셨길...

Sub 피벗테이블1()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

ActiveWorkbook.Names.Add "자료", Sheets("데이타").Range("a1").CurrentRegion
    Sheets("피벗").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "자료").CreatePivotTable TableDestination:=Sheets("피벗").Range("A1"), TableName _
        :="피벗 테이블"
    ActiveSheet.PivotTables("피벗 테이블").SmallGrid = False
    ActiveSheet.PivotTables("피벗 테이블").AddFields RowFields:="종목", ColumnFields _
        :="펀드"
    ActiveSheet.PivotTables("피벗 테이블").PivotFields("수량").Orientation = xlDataField
    Range("H22").Select

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub
 		　
[불량 게시물 신고]  
 　  　  　
  

작성일 : 2003-09-03(13:48)
최종수정일 : 2003-09-03(13:48)
　


 ◎ 관련글
  제 목   작성자   날짜
피벗테이블 매크로실행오류 초짜 2003-09-03
◎ [RE]피벗테이블 매크로실행오류 푸른가을하늘 2003-09-03