엑셀의 셀크기를 MM단위로 만들기

오피스튜터 http://www.officetutor.co.kr 에서 퍼왔습니다.

엑셀에서 셀크기를 일정한 크기로 정확히 맞추고 싶은데 엑셀의 셀크기의 단위는 미터법이 아니라 잘 안될때가 많습니다. 이럴때 유용한 매크로입니다. 도구-매크로-Visual Basic Editor 로 들어가서 F7을 누르시고 아래의 내용을 복사해 붙여넣으세요.

Sub AdjstCell()
Dim rowHt As Single
Dim colWt As Single
'설정하고자하는 행높이를 입력받습니다.
rowHt = InputBox("행높이를 mm단위로 입력하세요." & Chr(13) & "예: 10")
'설정하고자하는 열너비를 입력받습니다.
colWt = InputBox("열너비를 mm단위로 입력하세요." & Chr(13) & "예: 10")
With Selection
 For i = 1 To .Columns.Count
 '열너비를 조정합니다
   .Columns(i).ColumnWidth = colWt / 1.96 - 0.35
 Next i
 For j = 1 To .Rows.Count
'행높이를 설정합니다.
   .Rows(j).RowHeight = Application.CentimetersToPoints(rowHt / 10)
 Next j
End With
End Sub

그리고 Visual Basic Editor를 빠져나오시고 엑셀에서 원하는 셀을 선택하신 다음에 도구-매크로-매크로 (또는 단축키 Alt-F8) 를 누르시면 AdjustCell이라는 이름의 매크로를 찾아 실행시키면 됩니다.