[질문]피벗테이블매크로II

[이정철]

Brown, 최재영씨의 답변에 감사드립니다.
용기를 얻어 다시 시도해보았습니다.
제가 Visual Basic을 잘 몰라서 그러는 것 같은데, 디버그 시에 계속 에러가
나옵니다.
알려주신 방법대로 아래와 같이 코드를 수정하였습니다.

PivotRange = ActiveCell.CurrentRegion
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:="작업순서!PivotRange").CreatePivotTable TableDestination:="",
TableName:="피벗 테이블1"

에러 메세지는 "참조가 잘못 되었습니다."라는 메세지가 뜹니다. 제 생각에는
SourceData 인수값을 지정하는데 문법적인 문제가 있지 않을까 생각되는데,
시간이 되시면 다시한번 답변을 주시면 감사하겠습니다.

[Brown]

너무 어렵네요.. 매크로 공부는 그리많이 하지 않아서요 -.-

하지만 소스를 보면

PivotRange = ActiveCell.CurrentRegion
| ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
| SourceData:="작업순서!PivotRange").CreatePivotTable

| ------------
| |
+--> 이곳은 정의할 범위① |
+--> 이곳은 이미 이름이 정의가
된곳이 아닌가요? ②

그러므로 그 두개의 이름은 동일할 수 없어야 될것같고....

②번을 사용하기 위해서는 위에서 범위지정하는 소스를 쓰던가
아니면 그냥 엑셀에서 이름 정의를 하시면 되지 않나요!

질문의 답변이 되었는지.....

아직 초급이라...

그럼 ^^

"이정철" <ljc...@dbstl.co.kr> wrote in message
news:#lbxSQpA...@cppssbbsa02.microsoft.com...

[최재영]

안녕하세요!

답변이 너무 늦은것 같네요.

무척 오랜만에 들렀거든요.

 

님이 질문하신곳을 보면

> PivotRange = ActiveCell.CurrentRegion
>     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,

> SourceData:="작업순서!PivotRange").CreatePivotTable TableDestination:="",
> TableName:="피벗 테이블1"

라고 하였는데, 사전에 먼저 PivotRange에 대해서 정의를 하셨는지요?

위의 것을 아래처럼 바꿔 보세요.

Dim PivotRange As Range  --> 추가

Set PivotRange = ActiveCell.CurrentRegion
>     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:=PivotRange).CreatePivotTable TableDestination:="",
> TableName:="피벗 테이블1"

도움이 되시기를.....
그럼 수고하세요.

[이정철]

감사합니다.

해결을 보았습니다. 제가 Visual Basic을 거의 모르기 때문에 일어난 문제인 것 같습니다.

여러번 친절하게 답변을 주신 Brown씨에게도 감사를 드립니다.

두분 모두 이곳을 찾은 많은 분들에게 용기를 주시는 분이 되시기를 바랍니다. ^^