Keith는 A부터 H까지의 열을 사용하는 워크 시트를 가지고 있습니다. 그는 각 열을 비례 적으로 넓힐 수 있기를 원합니다. 예를 들어 8 개의 열을 모두 선택하면 H 열의 오른쪽 가장자리를 잡고 오른쪽으로 끌면 모든 열이 비례 적으로 간격을두고 배치되는 것이 좋습니다. 그는 이러한 유형의 열 확장을 수행하는 방법이 있는지 궁금합니다.

Keith가 말하는 내용을 더 잘 이해하려면 예를 들어 보겠습니다. 마우스를 사용하여 열 너비를 조정하는 일반적인 방법은 열을 선택한 다음 열 머리글 사이의 구분선을 오른쪽이나 왼쪽으로 끄는 것입니다. A 열의 너비가 5이고 B 열이 10이고 C 열이 15라고 가정합니다. A : C를 선택하고 C 열 헤더의 오른쪽에있는 구분선을 20으로 드래그하면 33 % 증가합니다. 이상적으로는 A 열과 B 열 모두 (Keith가 원하는대로) 33 % 크기가 조정되지만 대신 C 열과 일치하도록 너비가 20으로 설정됩니다.

또한 수정 자 키 (Ctrl, Alt 또는 Shift)를 누른 상태에서 마우스를 드래그해도 효과가 없습니다. 열 너비는 여전히 모두 서로 동일하게 설정됩니다. 마우스 오른쪽 버튼을 클릭하고 끌려고하면 상황에 맞는 메뉴가 표시되는 것 외에는 아무 작업도 수행되지 않습니다. 따라서 우리가 수행 할 수있는 모든 테스트에서 발견 할 수 있었던 Excel에서 열 너비를 비례 적으로 조정할 수있는 방법이 없습니다.

가장 쉬운 방법은 매크로를 사용하여 열 너비를 조정하는 것입니다.

다음은 이러한 접근 방식의 좋은 예입니다.

Sub ProportionalWidth()

Dim C As Range     Dim sRaw As String     Dim sTemp As String     Dim P As Single

sRaw = InputBox("Increase width by how what % (0 to 100)?")

P = Val(sRaw)

If P >= 0 And P <= 100 Then         P = 1 + (P / 100)

sTemp = ""

For Each C In Selection.Columns             sTemp = sTemp & "Column " & ColumnLetter(C.Column)

sTemp = sTemp & ": " & C.ColumnWidth & " ==> "

C.ColumnWidth = C.ColumnWidth * P             sTemp = sTemp & C.ColumnWidth & vbCrLf         Next C         MsgBox sTemp     Else         MsgBox "Out of range; no adjustment made"

End If End Sub
Function ColumnLetter(Col As Long) As String     Dim Arr     Arr = Split(Cells(1, Col).Address(True, False), "$")

ColumnLetter = Arr(0)

End Function

이 예제에는 실제로 두 개의 매크로가 있습니다. 첫 번째 (ProportionalWidth)는 선택한 열의 너비를 변경합니다. 두 번째 (ColumnLetter)는 숫자 열 번호를 열 문자로 변환하는 데 사용됩니다. 열의 이전 너비와 이후 너비의 보고서 (sTemp)를 모을 때만 사용됩니다.

열을 선택하고 매크로를 실행하면 해당 열을 얼마나 넓힐 것인지 묻는 메시지가 표시됩니다. 0에서 100 사이의 숫자를 입력하고 확인을 클릭하면 해당 비율만큼 열이 넓어집니다. 또한 각 열의 원래 너비와 조정 된 너비를 보여주는 메시지 상자가 표시됩니다.

이 매크로는 열만 넓 힙니다. 열을 비례 적으로 좁게 만드는데도 사용하려면 음수 값을 처리하도록 수정해야합니다.

_ 참고 : _

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

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

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

이 팁 (13429)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.