|
|
|
|
|
|
'-------------------------------------
' vba 코드에 문제가 있는 게 아니고
' 양식에 문제가 있었습니다.
' 데이타가 여러 열에 걸쳐 있을 경우(병합)
' 행 높이 자동 맞춤이 안 먹네요.
' 그래서 한 행에 데이타 넣도록 수정하였고
' 또한 코드도 약간 수정했습니다.
' 글구 이름정의로 옆 데이타 가져오게 했습니다.
'-------------------------------------
'-------------------------------------
Sub ResetFormat()
'-------------------------------------
Application.ScreenUpdating = False
' 시작 셀 지정
Dim rngX As Range: Set rngX = Worksheets("실무").Range("C5")
' 범위 지정-> 행 높이 자동 맞춤
Set rngX = Range(rngX, rngX.End(xlDown)).Rows
rngX.AutoFit
Dim row As Range
' 행을 돌려 줄 간격을 약간 넉넉하게 해 준다.
For Each row In rngX
' 숫자 수정해 주세요.
row.RowHeight = row.RowHeight + 15
Next
Application.ScreenUpdating = True
End Sub
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2018-11-17(22:43)
최종수정일 : 2018-11-17(22:49) |
|
|
|
|