Excel의 (많은) 실망스러운 점 중 하나는 다른 측정 단위를 사용하여 행 높이와 열 너비를 지정한다는 것입니다.

행 높이는 매우 간단합니다. 포인트 단위로 측정됩니다. 그러나 열 너비는 문자 너비로 측정됩니다. 표준 스타일이 Courier 10으로 설정된 경우 열 너비가 12이면 주어진 열에 정확히 12 개의 문자를 맞출 수 있음을 의미합니다. 비례 글꼴의 경우 문자 0은 문자 수를 계산하는 데 사용됩니다. (그래, 말도 안돼.)

특정 셀의 높이와 너비를 일치시켜 사각형을 만들면 문제가 발생합니다. 다행히도 약간의 매크로 마법사를 사용하면이 이상한 Excel을 우회하여 원하는 결과를 얻을 수 있습니다. MakeSquare 매크로를 고려하십시오.

Sub MakeSquare()

Dim WPChar As Double     Dim DInch As Double     Dim Temp As String          Temp = InputBox("Height and width in inches?")

DInch = Val(Temp)

If DInch > 0 And DInch < 2.5 Then         For Each c In ActiveWindow.RangeSelection.Columns             WPChar = c.Width / c.ColumnWidth             c.ColumnWidth = ((DInch * 72) / WPChar)

Next c         For Each r In ActiveWindow.RangeSelection.Rows             r.RowHeight = (DInch * 72)

Next r     End If End Sub

이 매크로는 만들려는 정사각형의 치수를 묻는 메시지를 표시 한 다음 각 셀을 설정할 너비와 높이를 정확히 계산합니다.

단일 셀을 선택한 상태에서 매크로를 실행하거나 더 큰 선택 세트를 만들 수 있습니다.

“수학 마법”은 WPChar 변수의 계산에서 수행됩니다. 이 값은 열 너비를 포인트 단위 (Width 속성에 의해 반환 됨)를 열 너비 (ColumnWidth 속성에 의해 반환 됨)로 나눈 값으로 설정됩니다. 현재 설정에서 문자의 포인트 수인이 값은 다음 프로그램 행에서 너비를 설정하는 데 사용할 문자 수를 계산하는 데 사용됩니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (1943)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.