2017-11-21 1 views
0
gwbkEach.Worksheets(6).Range(rngDeleteStart, rngDeleteEnd.Offset(-1)).EntireRow.Delete 

위 코드는 행 11-54 ($ 11 : $ 54)를 삭제합니다. 그러나 Row-54 너머에있는 모양은 위쪽으로 이동하지 않습니다. 모든 셰이프는 placement 속성이 xlMoveAndSize으로 설정되어 있습니다.Excel VBA 코드를 통해 행이 삭제되었지만 다시 정렬되지 않는 모양

  • 수동으로 행을 삭제하면 모양이 예상대로 다시 으로 바뀝니다.
  • 이상하게도 위의 코드 줄에 중단 점을 넣으면 모든 것이 올바르게 작동하고 모양이 예상대로 으로 다시 위치합니다.

위의 코드 줄에서 DoEvents, Application.Wait을 사용해 보았지만 아무 것도 작동하지 않습니다. 제발 도와주세요.

gwbkEach.Worksheets(6).Activate ' FIXED THE ISSUE 
gwbkEach.Worksheets(6).Range(rngDeleteStart, rngDeleteEnd.Offset(-1)).EntireRow.Delete 

참고 : 나는 시트를 활성화하기 위해 코드를 추가 할 때

답변

0

이 문제는 해결되었다 당신은

작업 위의 솔루션을 위해 Application.ScreenUpdating = False를 사용하여을 피하기 에 있습니다
관련 문제