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

작성자:  

 박중출 (wndcnf)

추천:  2
파일:     조회:  2080
제목:   매크로의 DATA의 길이가 다를시 길이를 인식할수있는 방법..??
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,,winXP):win2000
3. CPU (486,I/II/III/...):Pentium IV
4. RAM (32,64,128,,512MB,1G...):256 

* 아래줄에 질문을 작성하세요 >>

단위공정명 Batch                   Lot          투입수     양품수   불량수   IR2불량    OCV3 불량   △V 불량
PLI 2기 IR/OCV#1 3S3A17A6101B 1173723I3 58 58 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6101B 1173723I3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6101B 1173723I3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6101B 1173723I3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6101B 1173723I3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6101B 1173723I3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6101B 1173723I3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6101B 1173723I3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071A 1173721I2 200 200 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071A 1173721I2 256 255 1 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071A 1173721I2 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071A 1173721I2 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071A 1173721I2 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071A 1173721I2 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071A 1173721I2 256 253 3 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6081C 1173731D6 48 48 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6081C 1173731D6 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6081C 1173731D6 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6081C 1173731D6 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6081C 1173731D6 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6081C 1173731D6 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6081C 1173731D6 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6081C 1173731D6 256 256 0 0 0 0
PLI 2기 IR/OCV#1 1S3A17A6121I 1173742B3 73 73 0 0 0 0
PLI 2기 IR/OCV#1 1S3A17A6121I 1173742B3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 1S3A17A6121I 1173742B3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 1S3A17A6121I 1173742B3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 1S3A17A6121I 1173742B3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 1S3A17A6121I 1173742B3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 1S3A17A6121I 1173742B3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 1S3A17A6121I 1173742B3 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071C 1173721K2 72 72 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071C 1173721K2 256 253 3 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071C 1173721K2 256 255 1 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071C 1173721K2 256 255 1 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071C 1173721K2 256 255 1 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071C 1173721K2 256 256 0 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071C 1173721K2 256 252 4 0 0 0
PLI 2기 IR/OCV#1 3S3A17A6071C 1173721K2 256 254 2 0 0 0
위 의 문서를 피벗 테이블로 매크로를 만들었는데 데이타의 길이가 다를시
합계가 잘못계산되어 나옵니다. 제가 보기에는 데이타 범위 지정이 잘못된것 같은데 할때마다 변화는 DATA의 길이를 인식할수있는 방법을 어떻게 해
야 하는지요 및의것은 매크로를 그대로 복사한것입니다. 부탁드립니다.

Sub 연습()
'
' 연습 Macro
' csh이(가) 2003-07-13에 기록한 매크로
'

'
    Range("A8").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "ocv1!R8C1:R47C9").CreatePivotTable TableDestination:=Range("K8"), TableName _
        :="피벗 테이블1"
    ActiveSheet.PivotTables("피벗 테이블1").SmallGrid = False
    ActiveSheet.PivotTables("피벗 테이블1").AddFields RowFields:=Array("Batch", "Lot", _
        "데이터")
    With ActiveSheet.PivotTables("피벗 테이블1").PivotFields("투입수")
        .Orientation = xlDataField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("피벗 테이블1").PivotFields("양품수")
        .Orientation = xlDataField
        .Position = 2
    End With
    ActiveSheet.PivotTables("피벗 테이블1").PivotFields("불량수").Orientation = xlDataField
    Application.CommandBars("PivotTable").Visible = False
    ActiveWindow.SmallScroll ToRight:=5
    Columns("K:N").Select
    Range("K6").Activate
    Columns("K:N").EntireColumn.AutoFit
    Range("K7").Select
    ActiveWindow.SmallScroll Down:=-6
End Sub
 
 
 		　
[불량 게시물 신고]  
김종철안녕하세요?

윗부분에 있는 
SourceData:="ocv1!R8C1:R47C9"를 
SourceData:="ocv1!" & sheets("ocv1").cells(8,1).currentregion.address로
바꿔보세요.
currentregion은 빈셀로 둘러쌓인 범위입니다.

[지역발전!! 원전수거물관리센터 유치로...]		07-09 (22:09)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-07-09(21:16)
최종수정일 : 2003-07-09(21:16)