728x90
엑셀 행높이 자동 설정
엑셀에 자료를 입력하고 나서 순서를 정렬해야 할 경우가 있습니다.
이럴 때 자동으로 행높이 정렬를 해두면 편리합니다.
행높이가 일정하게 18로 되어 있는 경우
비고란의 내용이 제대로 보이지 않는데요.
이를 해결하기 위한 방법은
엑셀에서 전체를 선택한 다음에 행과 행 사이에 마우스를 놓고 더블클릭을 합니다.
자동으로 늘어난 것을 볼 수 있습니다.
이걸 VBA 코드를 이용하여 한다고 하면 ....
[ 코드분석 ]
- 구간범위 rngAll 전체의 행높이를 자동으로 설정하면 정상적인 행간격은 16.5로 설정됨
- 행높이가 18보다 작은 셀인 경우에는 18로 설정하도록 반복 처리
Sub RowHeight_autofit()
Dim rngC, rngAll As Range
Application.ScreenUpdating = False
Set rngAll = Range("A2:C" & Cells(Rows.Count, "A").End(3).Row)
rngAll.EntireRow.AutoFit
For Each rngC In rngAll
If rngC.RowHeight <= 18 Then
rngC.RowHeight = 18
End If
Next rngC
Application.ScreenUpdating = True
End Sub
로 해주면 됩니다.
728x90
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA] 배열의 이해 (0) | 2015.03.29 |
|---|---|
| [VBA기초] 셀 지우기 (0) | 2015.03.23 |
| 텍스트 숫자(문자열 숫자)를 숫자로 일괄 변경 VBA (0) | 2014.12.09 |
| 고급 Split 함수 사용법 (0) | 2014.10.31 |
| [VBA기초] 틀리기 쉬운 사소한 실수 (0) | 2014.10.02 |
Link2Me
