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

 큰형 (큰형)

추천:  2
파일:     2008-04-29_092920.png (8.6KB) 조회:  16843
제목:   [RE]VBA에서 '1004'런타임 오류발생, 뭐가 문제인지
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007): 엑셀 2003

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

첨부파일에서 보시는 바와 같이 VBA 코드 (행렬변환)을 짜보았습니다.

Sheet2에 gray zone에 행렬바뀐 결과가 표시는 됩니다. 
그러나 MoveData 매크로에 마지막에서의 오류로 인해서 

그 아래. DecoCell 선언한 매크로를 수행이 되지 않습니다.
일단, #라 옆같의 빈칸 제거 하는 거 넣어봤습니다.
데이터가 있는 것들은 흰색으로 셀에 색도 넣고. 테두리도 하고자 합니다.
분명 위에서 오류가 있으니, 여기도 많은 오류가 있을 것이라 봅니다.

미흡하여 문제가 뭔지 모르고 있습니다. 
한수 가르쳐 주십시오.

첨부파일을 같이 올립니다.
==============[가늘고길게님 글에 대한 답변입니다]==============
안녕하세요?
만족한 답변이 될런지는 모르겠습니다만 ...
['1004'런타임 오류]는 개체 변수에 할당한 영역(또는 범위 등)이 실제로
존재하지 않을 경우에 발생합니다.
즉, 첨부한 사진에서와 같이 rngStart.Offset(0, col) = cell 에서 발생하는
오류는 프로시저를 실행하는 과정에서 변수 col의 값이 254가 되고 개체변수
rngStart는 이미 위에서 Sheet2의 C1셀로 정의되어 있으므로, Sheet2에서
C1셀을 기준으로하여 오른 쪽으로 254칸 떨어진 위치, 즉 Offset(0, col)의
셀을 존재하지 않으므로 발생합니다.

그럼, 도움되시기를 바라며 즐거운 하루 보내세요 ^^* ;;;


 
[불량 게시물 신고]  
가늘고길게감사합니다. 좀더 고민하고 실행해야 하겠네요.04-30 (07:37)
삭제 ■신고
        
  

작성일 : 2008-04-29(09:35)
최종수정일 : 2008-04-29(09:35)
 


 ◎ 관련글

  제 목   작성자   날짜
VBA에서 '1004'런타임 오류발생, 뭐가 문제인지 가늘고길게 2008-04-29
[RE]VBA에서 '1004'런타임 오류발생, 뭐가 문제인지 큰형 2008-04-29