로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2012.11.26 11:19
고수가되고파님..
음.. 행을 지우면 그 만큼 전체적으로 위로 올라가겠죠..
아래 코드로 대체한다고 하더라도.. 행은 삭제되기 때문에 전체적으로 올라가는데요?
.Offset(1, 0).Resize(irow - 1, iColumn).EntireRow.Delete
암튼..
해당 행을 지우기 전에 남아 있을 행의 행높이를 지워질 행높이를 포함하는 크기로 조절한 다음 행을 삭제하면 될 것 같은데요..
코드 중에서 아래의 굵게 표시한 코드 한줄을 추가해보세요..
정확히 일치하지는 않지만.. 대충 비슷해집니다.
첨부파일을 참고하세요..
다운받기 : 예제(병합효과)-2.xlsm
End If .MergeCells = False '셀병합 해제 .Resize(1, iColumn).HorizontalAlignment = xlCenterAcrossSelection '선택영역의 가운데로 .RowHeight = .RowHeight + .Offset(1, 0).RowHeight .Offset(1, 0).Resize(irow - 1, iColumn).Delete shift:=xlUp iCount = iCount + 1 End If End With
새 창으로
선택한 기호
고수가되고파님..
음.. 행을 지우면 그 만큼 전체적으로 위로 올라가겠죠..
아래 코드로 대체한다고 하더라도.. 행은 삭제되기 때문에 전체적으로 올라가는데요?
.Offset(1, 0).Resize(irow - 1, iColumn).EntireRow.Delete
암튼..
해당 행을 지우기 전에 남아 있을 행의 행높이를 지워질 행높이를 포함하는 크기로 조절한 다음 행을 삭제하면 될 것 같은데요..
코드 중에서 아래의 굵게 표시한 코드 한줄을 추가해보세요..
정확히 일치하지는 않지만.. 대충 비슷해집니다.
첨부파일을 참고하세요..
다운받기 : 예제(병합효과)-2.xlsm
End If
.MergeCells = False '셀병합 해제
.Resize(1, iColumn).HorizontalAlignment = xlCenterAcrossSelection '선택영역의 가운데로
.RowHeight = .RowHeight + .Offset(1, 0).RowHeight
.Offset(1, 0).Resize(irow - 1, iColumn).Delete shift:=xlUp
iCount = iCount + 1
End If
End With