엑셀 VBA에서 RowHeight 속성은 행의 높이를 설정하거나 가져오는 기능을 제공합니다.
즉, 엑셀의 행 크기를 조절할 때 사용됩니다.
1. 기본 문법
|
Range("행 범위").RowHeight = 숫자
|
- 행 범위 → 높이를 설정할 행 또는 셀 범위
- 숫자 → 행 높이 값 (기본값: 15)
📌 기본 행 높이 = 15 (엑셀 기본값)
📌 셀의 값에 맞게 행 높이 자동 조정은 AutoFit 사용
2. 단일 행의 높이 설정
|
Sub 단일행_높이()
Rows("1").RowHeight = 25
End Sub
|
📌 1행의 높이를 25로 설정
3. 여러 행의 높이 설정
|
Sub 여러행_높이()
Rows("1:5").RowHeight = 20
End Sub
|
📌 1~5행의 높이를 20으로 설정
4. 특정 범위 내 행 높이 설정
|
Sub 특정범위_행높이()
Range("A1:D10").RowHeight = 18
End Sub
|
📌 A1:D10 범위의 행 높이를 18로 설정
5. 현재 행 높이 가져오기
|
Sub 현재_행높이_출력()
MsgBox "1행의 현재 높이: " & Rows("1").RowHeight
End Sub
|
📌 1행의 현재 높이를 메시지 박스로 출력
6. 셀 범위의 행 높이 자동 조정 (AutoFit)
|
Sub 행높이_자동조정()
Rows("1:5").AutoFit
End Sub
|
📌 1~5행의 높이를 내용에 맞게 자동 조정
7. 전체 워크시트의 행 높이 자동 조정
|
Sub 전체_행높이_자동조정()
Cells.EntireRow.AutoFit
End Sub
|
📌 전체 시트의 행 높이를 자동 조정
8. 모든 시트에서 행 높이 자동 조정
|
Sub 모든시트_행높이_자동조정()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Cells.EntireRow.AutoFit
Next ws
End Sub
|
📌 현재 통합 문서의 모든 시트에서 행 높이 자동 조정
9. 행 높이가 특정 값보다 크면 자동 조정
|
Sub 특정값_초과_자동조정()
Dim ws As Worksheet, rw As Range
Set ws = ActiveSheet
For Each rw In ws.UsedRange.Rows
If rw.RowHeight > 25 Then
rw.AutoFit
End If
Next rw
End Sub
|
📌 행 높이가 25보다 큰 경우만 자동 조정
10. 행 높이를 원래 기본값으로 복원
|
Sub 행높이_초기화()
Rows("1:5").RowHeight = 15 ' 기본값으로 초기화
End Sub
|
📌 1~5행의 높이를 기본값 15로 복원
11. 선택된 행의 높이 설정
|
Sub 선택된행_높이()
Selection.EntireRow.RowHeight = 22
End Sub
|
📌 사용자가 선택한 행의 높이를 22로 설정
12. 행 높이를 두 배로 설정
|
Sub 행높이_두배()
Dim rw As Range
For Each rw In Rows("1:5")
rw.RowHeight = rw.RowHeight * 2
Next rw
End Sub
|
📌 1~5행의 높이를 현재 값의 두 배로 변경
📝 정리
|
기능
|
VBA 코드
|
|
단일 행 높이 설정
|
Rows("1").RowHeight = 25
|
|
여러 행 높이 설정
|
Rows("1:5").RowHeight = 20
|
|
특정 범위 내 행 높이 설정
|
Range("A1:D10").RowHeight = 18
|
|
현재 행 높이 가져오기
|
MsgBox Rows("1").RowHeight
|
|
행 높이 자동 조정 (AutoFit)
|
Rows("1:5").AutoFit
|
|
전체 워크시트 행 자동 조정
|
Cells.EntireRow.AutoFit
|
|
모든 시트 행 자동 조정
|
For Each ws In ThisWorkbook.Sheets: ws.Cells.EntireRow.AutoFit: Next ws
|
|
특정 값 이상이면 자동 조정
|
If rw.RowHeight > 25 Then rw.AutoFit
|
|
행 높이 초기화 (기본값 15)
|
Rows("1:5").RowHeight = 15
|
|
선택된 행 높이 설정
|
Selection.EntireRow.RowHeight = 22
|
|
행 높이를 두 배로 조정
|
rw.RowHeight = rw.RowHeight * 2
|
🔥 VBA의 RowHeight 속성을 활용하면 원하는 대로 행의 크기를 조절할 수 있습니다! 🚀