엑셀 VBA 셀의 너비와 높이 가져오기 , 셀의 너비와 높이 변경하기

포스트 목차.

• 01. 엑셀에서 셀의 너비와 높이 설정하기
• 02. VBA에서  셀의 높이와 너비 가져오기
• 03. VBA에서 셀의 높이와 너비 설정하기

 

00. 사용할 데이터

본 포스트에서는 위의 데이터를 이용하여 셀의 너비/높이에 대해 설명한다.

 

 

01. 엑셀에서 셀의 너비와 높이 설정하기

엑셀에서 셀의 너비와 높이를 설정하는 방법은 여러가지가 있다.

 

(1) 행 번호와 열 번호에 있는 셀을 이용하여 크기 조정하기

 

열의 너비는 열 번호 행의 셀의 경계를 클릭하면 확인할 수 있다.

클릭 후 해당 아이콘을 드래그하면 셀의 너비를 조정할 수 있다.

 

 

행의 높이는 행 번호 행의 셀의 경계를 클릭하면 확인할 수 있다.

 

클릭 후 해당 아이콘을 드래그하면 셀의 높비를 조정할 수 있다.

 

 

(2) 셀 선택 후 서식 메뉴 이용

 

위의 방식은 셀의 너비/높이의 수치는 나오지만, 마우스로 조정해야하고 정확한 수치로 조정하기는 힘들수 있다는 단점이 있다. 또한 셀의 너비 또는 높이가 모니터에 표기되는 크기를 초과하면 해당 높이/너비를 변경할 수 없다는 단점이 있다.

 

셀 선택 후 서식 메뉴에서 수치를 직접 입력하여 셀 너비/높이를 바꾸는 것도 가능하다.

 

 -  셀을 선택한다.

 - 홈 > 셀 > 서식 메뉴를 실행한다.

셀 크기의 행 높이 또는 열 너비를 선택한다.

 

 - 수치를 입력한다.

 

02. VBA에서 셀의 높이와 너비 가져오기

 

셀의 너비는 Range 객체의 ColumnWidth 프로퍼티를 이용하여 구할 수 있다.

예) Worksheets("sheet1").Cells(2, 1).ColumnWidth

 

셀의 높이는 Range 객체의 RowHeight 프로퍼티를 이용하여 구할 수 있다.

예) Worksheets("sheet1").Cells(2, 1).RowHeight

 

위의 예는 셀 A2의 너비와 높이를 구하는 스크립트이다.

 

버튼을 하나 추가한 후 셀 A2의 너비와 높이를 메시지 박스로 출력하는 예제를 구성해보자.

 

 

Sub 단추1_Click()
    
    MsgBox "높이: " & Worksheets("sheet1").Cells(2, 1).RowHeight & " 너비: " & Worksheets("sheet1").Cells(2, 1).ColumnWidth
    
End Sub
 

 

버튼을 클릭했을 때 출력되는 값은 다음과 같다.

 

 

03. VBA에서 셀의 높이와 너비 설정하기

 

셀의 너비는 Range 객체의 ColumnWidth 프로퍼티를 이용하여 설정할 수 있다.

예) Worksheets("sheet1").Cells(2, 1).ColumnWidth = 10

 

셀의 높이는 Range 객체의 RowHeight 프로퍼티를 이용하여 설정할 수 있다.

예) Worksheets("sheet1").Cells(2, 1).RowHeight = 50

 

버튼을 하나 추가하여 셀의 너비를 10으로 셀의 높이를 50으로 변경해보자.

 

 

셀의 높이/너비 설정 버튼을 누르면 셀의 너비는 10으로 셀의 높이는 50으로 변경된다.

초기화 버튼을 누르면 셀의 너비는 5.58로 셀의 높이는 30으로 초기화된다.

 

Sub 단추2_Click()
 
Worksheets("sheet1").Cells(2, 1).RowHeight = 50
Worksheets("sheet1").Cells(2, 1).ColumnWidth = 10
 
 
End Sub
 
 
 
Sub 단추3_Click()
 
Worksheets("sheet1").Cells(2, 1).RowHeight = 30
Worksheets("sheet1").Cells(2, 1).ColumnWidth = 5.58
 
 
End Sub
 

 

셀의 높이/너비 설정 버튼을 누른 결과는 다음과 같다.