엑셀에서 mm로 환산하는 방법

ㅎㅎ 오랜만에 포스팅을 하는군요^^
포스팅을 꾸준히 하시는 블로거님들은 정말 대단하시다는 걸 느낍니다.

오늘은 제가 필요한 것이라서 포스팅을 해두려고 합니다.
블로그라는게 내가 획득한 정보를 잊어버리지 않고 어디서든 볼 수 있다는 커다란 장점을 가지고 있거든요.
더불어서 다른 분들께도 필요한 정보가 된다면 더욱 좋겠지요.

위에 엑셀 자동차를 넣었는데요... 오늘 하려는 이야기는 자동차 이야기가 아니라
마이크로소프트의 "엑셀" 프로그램에 관한 이야기입니다.
다들 경험하셨겠지만 엑셀을 쓰다보면 프린터로 출력되는 셀의 크기가 센티미터로 환산하면
어느정도의 크기가 되는지 가늠하기 어려울 때가 많습니다.
특히 일정한 사이즈의 셀크기로 출력해서 어딘가에 붙여야 할 경우에 이런 기능을 필요로 하게됩니다.

이때에는 먼저. 엑셀문서를 열고,

원하는 크기로 하고픈 셀들을 선택 한다음~

Alt + F11 키를 누르면~ 비베가 뜹니다~

거기 메뉴에서. [삽입] -> [모듈] 을 클릭하고~

나오는 화면에 아래 문구를 복사해서 붙여넣기하고~

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

그리고, F5 를 누르시면. 셀의 행 높이와 열너비를 mm로 물어봅니다.

이때, 자기가 원하는 크기를 입력하면~ 원하는 사이즈가 됩니다.

출력해보면 거의 정확합니다.

가끔씩 필요한 팁입니다. 잘들 활용하시기 바래요~~~