| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2003
* 아래줄에 질문을 작성하세요 >>
엑셀파일을 이용하여 특정 Sheet에 데이터가 (+) 카운트 되는 A셀을 참조하여 다른 B셀에서 "1"을 조건식으로 만들어 이 B셀이 "1"이 되면 다른 시트의 내용을 삭제하는 매크로를 만들었습니다.
A셀의 데이터는 설비에서 통신을 이용하여 받는 데이터로서 초 단위로 1 ~ 40 정도씩 변하는 데이터라서 A셀의 데이터 범위가 40범위내에 들어오면 B셀에 "1" 40이라는 데이터가 지나가는 동안 "1"이 표현되게 됩니다.
B셀에 "1"이 표현되는 시간은 1~3초 정도 소요 됩니다.
B셀에 "1"이 표현되면 아래 내용의 매크로가 실행되어 다른 시트에 저장된 내용을 삭제 하도록 하였습니다.
그런데 아래 매크로의 "Selection.ClearContents" 부분에서 멈춰서 진행이 안되는 현상이 발생하게 됩니다.
파일을 보고 있자면 처음부터 "Selection.ClearContents" 부분까지 반복 실행되는 것으로 보여집니다.
한참을 멈춰 있다가 엘셀이 에러가 발생하여 매크로 실행이 안되는 현상이 발생하게 되어 파일을 강제로 종료하여야 하는 상황이 됩니다.
그러나 버튼을 만들어 아래의 매크로를 연결하여 매크로를 실행하면 전혀 이상없이 동작 합니다.
해결방법이 없는지 고수님들의 고견이 필요합니다.
이 현상은 PC OS 환경에 따라 약간의 차이가 있기도 합니다.
WinXP 환경에서는 "Selection.ClearContents" 부분에 멈춰 있다가
"Sheets("Data").Select
Range("A1").Select"
부분으로 이동하여 멈춰있는 현상을 보이다가 약 20여초 이후에 종료 된 이후 파일은 정상 실행 상태가 되기도 합니다.
화면을 보고 있자면 처음부터 "Selection.ClearContents" 부분까지 반복 실행하다가, 다시 "Range("A1").Select" 부분까지 반복 실행하는 것으로 보여 집니다.
그러다가 매크로 실행이 종료되는 것으로 보여집니다.
*매크로 내용*
Sub Data_Clear()
Sheets("Ar_P_Check").Select
Range("A2:C5000").Select
Selection.ClearContents
Range("A2").Select
Sheets("Data").Select
Range("A1").Select
End Sub
|
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
